Sequence of non-squares: Difference between revisions
→{{header|Picat}}
MaiconSoft (talk | contribs) (Added Delphi example) |
|||
Line 2,159:
Up to 1000000, found no square number in the sequence!
></pre>
=={{header|Picat}}==
<lang Picat>go =>
println([f(I) : I in 1..22]),
nl,
check(1_000_000),
nl.
% The formula
f(N) = N + floor(1/2 + sqrt(N)).
check(Limit) =>
Squares = new_map([I*I=1:I in 1..sqrt(Limit)]),
Check = [[I,T] : I in 1..Limit-1, T=f(I), Squares.has_key(T)],
println(check=Check.len).</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]
check = 0</pre>
=={{header|PicoLisp}}==
| |||