Sequence of non-squares: Difference between revisions
Content added Content deleted
(Replaced "round.int" by "toInt". Simplified "issqr". Replaced "proc" by "func". Improved output.) |
Drkameleon (talk | contribs) (Added Arturo implementation) |
||
Line 139: | Line 139: | ||
HOWMANYSQUARES NONSQUARE 1000000 |
HOWMANYSQUARES NONSQUARE 1000000 |
||
0</lang> |
0</lang> |
||
=={{header|Arturo}}== |
|||
<lang rebol>f: function [n]-> |
|||
n + floor 0.5 + sqrt n |
|||
loop 1..22 'i -> |
|||
print [i "->" f i] |
|||
i: new 1, nonSquares: new [] |
|||
while [i<1000000][ 'nonSquares ++ f i, inc 'i] |
|||
squares: map 1..1001 'x -> x ^ 2 |
|||
if? empty? intersection squares nonSquares -> print "Didn't find any squares!" |
|||
else -> print "Ooops! Something went wrong!"</lang> |
|||
{{out}} |
|||
<pre>1 -> 2 |
|||
2 -> 3 |
|||
3 -> 5 |
|||
4 -> 6 |
|||
5 -> 7 |
|||
6 -> 8 |
|||
7 -> 10 |
|||
8 -> 11 |
|||
9 -> 12 |
|||
10 -> 13 |
|||
11 -> 14 |
|||
12 -> 15 |
|||
13 -> 17 |
|||
14 -> 18 |
|||
15 -> 19 |
|||
16 -> 20 |
|||
17 -> 21 |
|||
18 -> 22 |
|||
19 -> 23 |
|||
20 -> 24 |
|||
21 -> 26 |
|||
22 -> 27 |
|||
Didn't find any squares!</pre> |
|||
=={{header|AutoHotkey}}== |
=={{header|AutoHotkey}}== |