Sequence of non-squares: Difference between revisions
Add Red
(Add Red) |
|||
Line 2,300:
{{out}}
<pre>(2 3 5 6 7 8 10 11 12 13 14 15 17 18 19 20 21 22 23 24 26 27)</pre>
=={{header|Red}}==
<lang rebol>Red ["Sequence of non-squares"]
repeat i 999'999 [
n: i + round/floor 0.5 + sqrt i
if i < 23 [prin [to-integer n ""]]
if equal? round/floor n sqrt n [
print "Square found!"
break
]
]</lang>
{{out}}
<pre>
2 3 5 6 7 8 10 11 12 13 14 15 17 18 19 20 21 22 23 24 26 27
</pre>
=={{header|REXX}}==
| |||