35 lines
754 B
Text
35 lines
754 B
Text
[ dip number$
|
|
over size -
|
|
space swap of
|
|
swap join echo$ ] is recho ( n n --> )
|
|
|
|
[ 1 & ] is odd ( n --> b )
|
|
|
|
[ dup dup * * ] is cubed ( n --> n )
|
|
|
|
[ dup 1
|
|
[ 2dup > while
|
|
+ 1 >>
|
|
2dup / again ]
|
|
drop nip ] is sqrt ( n --> n )
|
|
|
|
[ nested
|
|
[ dup -1 peek 1 != while
|
|
dup -1 peek
|
|
dup odd if cubed
|
|
sqrt join again ] ] is juggler ( n --> [ )
|
|
|
|
[ dup 4 recho
|
|
juggler
|
|
dup size 1 -
|
|
3 recho
|
|
0 swap behead swap
|
|
witheach
|
|
[ 2dup < if
|
|
[ rot drop
|
|
i^ 1+ unrot
|
|
swap ]
|
|
drop ]
|
|
15 recho 2 recho cr ] is stats ( n --> )
|
|
|
|
20 times [ i^ 20 + stats ]
|