17 lines
349 B
Text
17 lines
349 B
Text
[ dup 1+ * 2 / ] is triangulared ( n --> n )
|
|
|
|
[ number$ tuck size -
|
|
times sp echo$ ] is rightecho ( n n --> )
|
|
|
|
[ dup triangulared
|
|
number$ size 1+
|
|
0 rot times
|
|
[ i^ 1+ times
|
|
[ 1+ 2dup
|
|
rightecho ]
|
|
cr ]
|
|
2drop ] is floyd ( n --> )
|
|
|
|
5 floyd
|
|
cr
|
|
14 floyd
|