blob: 0a58d46f45769758ae20c75b83d44d8358c9bf6b (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
|
d =: 10 #.inv 158937462
step =: 3 : 0
'c h t' =. ({. ; }.@(4&{.) ; 4&}.) y
'a b' =. t ({. ; }.)~ >: {. /: (|. (<:c) |. 1+i.9) i. t
a,h,b,c
)
,":"0}.(]|.~I.@(1&=)) step^:100 d
NB. part2 TBD
|