Square but not cube: Difference between revisions

=={{header|Forth}}==

<lang forth>: square dup * ;

: cube dup dup * * ;

: 30-non-cube-squares

0 1 1

begin 2 pick 30 < while

begin over over square swap cube > while

swap 1+ swap

repeat

over over square swap cube <> if

dup square . rot 1+ -rot

then

1+

repeat

2drop drop

;

30-non-cube-squares cr bye</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>