Integer roots: Difference between revisions
Content added Content deleted
(→{{header|Phix}}: added syntax colouring the hard way) |
(Integer roots en FreeBASIC) |
||
Line 315: | Line 315: | ||
14142135623730950488016887242096980[...]32952546758516447107578486024636008 |
14142135623730950488016887242096980[...]32952546758516447107578486024636008 |
||
</pre> |
</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}}== |
=={{header|Go}}== |