Find square difference: Difference between revisions
Content added Content deleted
(Added Sidef) |
Drkameleon (talk | contribs) (Added Arturo implementation) |
||
Line 52: | Line 52: | ||
Smallest n where n^2 - (n-1)^2 is > 1000 is: 501 |
Smallest n where n^2 - (n-1)^2 is > 1000 is: 501 |
||
</pre> |
</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}}== |
=={{header|Asymptote}}== |