Spiral matrix: Difference between revisions
Content added Content deleted
(Add Factor example) |
m (→{{header|Factor}}: slight simplification) |
||
| Line 1,449: | Line 1,449: | ||
IN: rosetta-code.spiral-matrix |
IN: rosetta-code.spiral-matrix |
||
: counts ( n -- seq ) |
: counts ( n -- seq ) 1 [a,b] 2 repeat rest ; |
||
[1,b] reverse 2 repeat rest ; |
|||
: vals ( n -- seq ) |
: vals ( n -- seq ) |
||