Find square difference: Difference between revisions
Added Arturo implementation
(Added Sidef) |
Drkameleon (talk | contribs) (Added Arturo implementation) |
||
Line 52:
Smallest n where n^2 - (n-1)^2 is > 1000 is: 501
</pre>
=={{header|Arturo}}==
<lang rebol>i: 1
while ø [
if 1000 < (i*i)-(dec i)*(dec i)
-> break
i: i + 1
]
print i</lang>
{{out}}
<pre>501</pre>
=={{header|Asymptote}}==
| |||