Pretty good!
Thanks!
Þann 16.2.2008, skrifaði R.E. Boss<[EMAIL PROTECTED]>:
>
> 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
>
--
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
