Integer roots: Difference between revisions
Integer roots en Yabasic
(Integer roots en BASIC256) |
(Integer roots en Yabasic) |
||
Line 1,306:
2e+18 ^ (1/2) = 1414213562
</pre>
=={{header|Yabasic}}==
{{trans|FreeBASIC}}
<lang yabasic>sub root(n, x)
for nr = floor(sqr(x)) to 1 step -1
if (nr ^ n) <= x then return nr : fi
next nr
end sub
print root(3, 8)
print root(3, 9)
print root(4, 167)
end</lang>
=={{header|zkl}}==
| |||