Smallest square that begins with n: Difference between revisions
→Version 2: Realigned with changed Pascal entry.
(→{{header|Wren}}: Added a Pascal translation.) |
(→Version 2: Realigned with changed Pascal entry.) |
||
Line 3,147:
var sqrtN = n.sqrt
var sqrtN10 = (n * 10).sqrt
var pow10 = 1
while (true) {
for (i in [sqrtN.truncate, sqrtN10.truncate]) {
for (j in 0..1) {
var mySqr = (i * i / pow10).floor
if (mySqr == n) return i
i = i + 1
}
pow10 = pow10 * 10
}
sqrtN = sqrtN * 10
Line 3,177 ⟶ 3,178:
{{out}}
<pre>
</pre>
| |||