Self numbers: Difference between revisions

Content added Content deleted
(→‎{{header|Phix}}: replaced with translation of AppleScript)
No edit summary
Line 352: Line 352:


Overall took 7.0237244s</pre>
Overall took 7.0237244s</pre>

=={{header|Elixir}}==
<lang elixir>
defmodule SelfNums do

def digAndSum(number) when is_number(number) do
Integer.digits(number) |>
Enum.reduce( 0, fn(num, acc) -> num + acc end ) |>
(fn(x) -> x + number end).()
end

def selfFilter(list, firstNth) do
numRange = Enum.to_list 1..firstNth
numRange -- list
end

end

defmodule SelfTest do

import SelfNums

stop = 50

Enum.to_list 1..stop |>
Enum.map(&digAndSum/1) |>
SelfNums.selfFilter(stop) |>
IO.inspect
end
</lang>

{{out}}
[1, 3, 5, 7, 9, 20, 31, 42, 53, 64, 75, 86, 97, 108, 110, 121, 132, 143, 154,
165, 176, 187, 198, 209, 211, 222, 233, 244, 255, 266, 277, 288, 299, 310, 312,
323, 334, 345, 356, 367, 378, 389, 400, 411, 413, 424, 435, 446, 457, 468]


=={{header|F_Sharp|F#}}==
=={{header|F_Sharp|F#}}==