Spiral matrix: Difference between revisions
m
→{{header|Factor}}: formatting
m (→{{header|Factor}}: slight simplification) |
m (→{{header|Factor}}: formatting) |
||
Line 1,460:
[ evJKT2 cum-sum inverse-permutation ] [ group ] bi ;
: spiral-demo ( -- ) 5 9 [ spiral simple-table. nl ] bi@ ;
MAIN: spiral-demo</lang>
|