M=: (i.11);(11+i.11);22+i.11
a=.1 0 0 1 1 0 2 2 0 1 0
apply a to M and get
11 1 2 14 15 5 28 29 8 20 10
a=.1 2 0 1 2 0 2 2 0 1 0
apply a to M and get
11 23 2 14 26 5 28 29 8 20 10
I could do it like this
M=: (i.11);(11+i.11);22+i.11
f=. 3 : 0
I=:>:I
I{ > y {M
)
I=:_1
a=.1 0 0 1 1 0 2 2 0 1 0
>f &.> a
11 1 2 14 15 5 28 29 8 20 10
a=.1 2 0 1 2 0 2 2 0 1 0
I=:_1
>f &.> a
11 23 2 14 26 5 28 29 8 20 10
I know there must be a simpler way
--
Björn Helgason, Verkfræðingur
Fugl&Fiskur ehf,
Þerneyjarsundi 23, Hraunborgum
Po Box 127,801 Selfoss ,
t-póst: [EMAIL PROTECTED]
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
