2015-11-18 06:14:39 +00:00
|
|
|
defmodule RC do
|
|
|
|
|
def multifactorial(n,d) do
|
2016-12-05 22:15:40 +01:00
|
|
|
Enum.take_every(n..1, d) |> Enum.reduce(1, fn x,p -> x*p end)
|
2015-11-18 06:14:39 +00:00
|
|
|
end
|
|
|
|
|
end
|
|
|
|
|
|
|
|
|
|
Enum.each(1..5, fn d ->
|
2016-12-05 22:15:40 +01:00
|
|
|
multifac = for n <- 1..10, do: RC.multifactorial(n,d)
|
2015-11-18 06:14:39 +00:00
|
|
|
IO.puts "Degree #{d}: #{inspect multifac}"
|
|
|
|
|
end)
|