Integer roots: Difference between revisions
Content added Content deleted
(Integer roots en BASIC256) |
(Integer roots en Yabasic) |
||
Line 1,306: | Line 1,306: | ||
2e+18 ^ (1/2) = 1414213562 |
2e+18 ^ (1/2) = 1414213562 |
||
</pre> |
</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}}== |
=={{header|zkl}}== |