4 lines
144 B
Text
4 lines
144 B
Text
hcr=: (<ehs),. (A.~i.@!@#)cr
|
|
hcs=:~. (A.~i.@!@#)cs,2$<ehs
|
|
hlof=:(-i.4) |."0 1 lof,3$<ehs
|
|
hnext=: ,/((i.4) |."0 1 (3$<ehs)&,)"1 ;(,,:|.)&.> next
|