Thanks again!
Very interesting
Þann 17.2.2008, skrifaði R.E. Boss<[EMAIL PROTECTED]>:
>
> 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
>
--
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
