Spiral matrix: Difference between revisions

m
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@ ;
5 9 [ spiral simple-table. nl ] bi@ ;
 
MAIN: spiral-demo</lang>
1,808

edits