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