Square but not cube: Difference between revisions
Added Quackery.
Not a robot (talk | contribs) (Add BQN) |
(Added Quackery.) |
||
Line 2,374:
32 -> 1024
33 -> 1089</pre>
=={{header|Quackery}}==
<lang Quackery> [ swap - -1 1 clamp 1+ ] is <=> ( n n --> n )
[ dup * ] is squared ( n --> n )
[ dup squared * ] is cubed ( n --> n )
0 0 []
[ unrot
over squared
over cubed <=>
[ table
1+
[ 1+ dip 1+ ]
[ dip
[ tuck squared
join swap 1+ ] ] ]
do
rot dup size 30 = until ]
dip 2drop
echo</lang>
{{out}}
<pre>[ 4 9 16 25 36 49 81 100 121 144 169 196 225 256 289 324 361 400 441 484 529 576 625 676 784 841 900 961 1024 1089 ]</pre>
=={{header|Racket}}==
| |||