Narcissistic decimal number: Difference between revisions
Content added Content deleted
(add OCaml) |
(→OCaml: speedup by 4.5 with pre-calculated powers) |
||
Line 3,210:
=={{header|OCaml}}==
<syntaxhighlight lang="ocaml">
let rec
in
else if n = digit_pow_sum 0 n then Seq.Cons (n, next (succ n) l p)
else next (succ n) l p ()
▲ let rec aux x e =
in
let () =
narcissistic |> Seq.take 25 |> Seq.iter (Printf.printf " %u") |> print_newline</syntaxhighlight>
{{out}}
<pre> 0 1 2 3 4 5 6 7 8 9 153 370 371 407 1634 8208 9474 54748 92727 93084 548834 1741725 4210818 9800817 9926315</pre>
=={{header|Oforth}}==
|