Spiral matrix: Difference between revisions

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

edits