r2-:cnv0 ".;._2 a
1
(/:~ -: cnv1 @ cnv0) ".;._2 a
1
with
cnv0=: 3 : 0 NB. (".;._2 a) to r2
r=.>: >./"1 |: y
i=. r #. y
r$(<1)i}(*/r) # a:
)
cnv1=: 3 : '($y)#:I.(,y)e.<1' NB. r2 to ".;._2 a
R.E. Boss
> -----Oorspronkelijk bericht-----
> Van: [EMAIL PROTECTED] [mailto:programming-
> [EMAIL PROTECTED] Namens Björn Helgason
> Verzonden: zaterdag 16 februari 2008 14:12
> Aan: Programming forum
> Onderwerp: [Jprogramming] conversions
>
> 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
