Alternative conversions, using $. :
cnv0a=: 3 : '0-.~&.><"0 $.^:_1[ 1 (<"1 y)} 1$.>: >./"1 |: y'
NB. (".;._2 a) to r2
cnv1a=: 3 : '4$.$.,/"2>y' NB. r2 to ".;._2 a
(,&.>r2) -: cnv0a ".;._2 a
1
(/:~ ".;._2 a) -: cnv1a r2
1
R.E. Boss
> -----Oorspronkelijk bericht-----
> Van: [EMAIL PROTECTED] [mailto:programming-
> [EMAIL PROTECTED] Namens R.E. Boss
> Verzonden: zaterdag 16 februari 2008 22:04
> Aan: 'Programming forum'
> Onderwerp: RE: [Jprogramming] conversions
>
> 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
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
