Integer roots: Difference between revisions
Integer roots en FreeBASIC
(→{{header|Phix}}: added syntax colouring the hard way) |
(Integer roots en FreeBASIC) |
||
Line 315:
14142135623730950488016887242096980[...]32952546758516447107578486024636008
</pre>
=={{header|FreeBASIC}}==
{{trans|Ring}}
<lang freebasic>#define floor(x) ((x*2.0-0.5) Shr 1)
Function root(n As Uinteger, x As Uinteger) As Uinteger
For nr As Uinteger = floor(Sqr(x)) To 1 Step -1
If (nr ^ n) <= x Then Return nr
Next nr
End Function
Print root(3, 8)
Print root(3, 9)
Print root(4, 167)
Print root(2, 2e18)
Sleep</lang>
{{out}}
<pre>2
2
3
1414213562</pre>
=={{header|Go}}==
| |||