Distinct power numbers: Difference between revisions
Content added Content deleted
(Realize in F#) |
Not a robot (talk | contribs) (Add BCPL) |
||
Line 125: | Line 125: | ||
{{Out}} |
{{Out}} |
||
<pre>{4, 8, 9, 16, 25, 27, 32, 64, 81, 125, 243, 256, 625, 1024, 3125}</pre> |
<pre>{4, 8, 9, 16, 25, 27, 32, 64, 81, 125, 243, 256, 625, 1024, 3125}</pre> |
||
=={{header|BCPL}}== |
|||
<lang bcpl>get "libhdr" |
|||
let pow(n, p) = |
|||
p=0 -> 1, |
|||
n * pow(n, p-1) |
|||
let sort(v, length) be |
|||
if length > 0 |
|||
$( for i=0 to length-2 |
|||
if v!i > v!(i+1) |
|||
$( let t = v!i |
|||
v!i := v!(i+1) |
|||
v!(i+1) := t |
|||
$) |
|||
sort(v, length-1) |
|||
$) |
|||
let start() be |
|||
$( let v = vec 15 |
|||
let i = 0 |
|||
for a = 2 to 5 for b = 2 to 5 |
|||
$( v!i := pow(a,b) |
|||
i := i+1 |
|||
$) |
|||
sort(v, 16) |
|||
for i = 0 to 15 |
|||
if i=0 | v!i ~= v!(i-1) do writef("%N ", v!i) |
|||
wrch('*N') |
|||
$)</lang> |
|||
{{out}} |
|||
<pre>4 8 9 16 25 27 32 64 81 125 243 256 625 1024 3125</pre> |
|||
=={{header|F_Sharp|F#}}== |
=={{header|F_Sharp|F#}}== |
||
Line 134: | Line 167: | ||
4 8 9 16 25 27 32 64 81 125 243 256 625 1024 3125 |
4 8 9 16 25 27 32 64 81 125 243 256 625 1024 3125 |
||
</pre> |
</pre> |
||
=={{header|Go}}== |
=={{header|Go}}== |
||
{{trans|Wren}} |
{{trans|Wren}} |