Square but not cube: Difference between revisions
Content added Content deleted
Not a robot (talk | contribs) (Add BQN) |
(Added Quackery.) |
||
Line 2,374: | Line 2,374: | ||
32 -> 1024 |
32 -> 1024 |
||
33 -> 1089</pre> |
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}}== |
=={{header|Racket}}== |