I need conversion verbs to go from e,t,s (or a) to r1 and r2
and from r1 and r2 to e,t,s (or a)
----------------------------
require 'grid'
a=: 0 : 0
0 0 0
1 0 0
2 0 0
3 0 2
4 0 2
0 1 1
4 1 1
0 2 0
1 2 1
3 2 2
4 2 2
)
b=: <;._2 a
('e t s')=:|:>".&.> b
r1=:3 3$ 3;(0$0);2;(0$0);2;(0$0);1;1;2
grid r1
r2=:5 3
3$1;(0$0);(0$0);(0$0);1;(0$0);1;(0$0);(0$0);1;(0$0);(0$0);(0$0);(0$0);(0$0);(0$0);1;(0$0);1;(0$0);(0$0);(0$0);(0$0);(0$0);(0$0);(0$0);(0$0);(0$0);(0$0);1;(0$0);(0$0);(0$0);(0$0);(0$0);1;(0$0);(0$0);1;(0$0);1;(0$0);(0$0);(0$0);1
grid r2
------------------------------------
--
Björn Helgason, Verkfræðingur
Fugl&Fiskur ehf, Þerneyjarsund 23, Box 127
801 Grímsnes ,t-póst: [EMAIL PROTECTED]
Skype: gosiminn, gsm: +3546985532
Landslags og skrúðgarðagerð, gröfuþjónusta
http://groups.google.com/group/J-Programming
Tæknikunnátta höndlar hið flókna, sköpunargáfa er meistari einfaldleikans
góður kennari getur stigið á tær án þess að glansinn fari af skónum
/|_ .-----------------------------------.
,' .\ / | Með léttri lund verður |
,--' _,' | Dagurinn í dag |
/ / | Enn betri en gærdagurinn |
( -. | `-----------------------------------'
| ) | (\_ _/)
(`-. '--.) (='.'=)
`. )----' (")_(")
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
