Integer roots: Difference between revisions
Added XPL0 example.
m (→{{header|J}}: clarify an ambiguity) |
(Added XPL0 example.) |
||
Line 1,430:
</pre>
=={{header|XPL0}}==
<syntaxhighlight lang "XPL0">func real IRoot(X, N);
real X, N;
return Floor(Pow(X, 1./N));
[Format(1, 0);
RlOut(0, IRoot(8., 3.)); CrLf(0);
RlOut(0, IRoot(9., 3.)); CrLf(0);
RlOut(0, IRoot(2e18, 2.)); CrLf(0);
]</syntaxhighlight>
{{out}}
<pre>
2
2
1414213562
</pre>
=={{header|Yabasic}}==
| |||