Sequence of non-squares: Difference between revisions
Added Quackery.
m (→{{header|Phix}}: added syntax colouring the hard way) |
(Added Quackery.) |
||
Line 2,219:
True if any of the first 10^6 terms are perfect squares:
False</pre>
=={{header|Quackery}}==
<lang Quackery> $ "bigrat.qky" loadfile
[ dup n->v 2 vsqrt
drop 1 2 v+ / + ] is nonsquare ( n --> n )
[ sqrt nip 0 = ] is squarenum ( n --> b )
say "Non-squares: "
22 times [ i^ 1+ nonsquare echo sp ]
cr cr
0
999999 times
[ i^ 1+ nonsquare
squarenum if 1+ ]
echo say " square numbers found"</lang>
{{out}}
<pre>Non-squares: 2 3 5 6 7 8 10 11 12 13 14 15 17 18 19 20 21 22 23 24 26 27
0 square numbers found
</pre>
=={{header|R}}==
| |||