RosettaCodeData/Task/Averages-Root-mean-square/Elixir/averages-root-mean-square.elixir
2016-12-05 22:15:40 +01:00

14 lines
258 B
Text

defmodule RC do
def root_mean_square(enum) do
enum
|> square
|> mean
|> :math.sqrt
end
defp mean(enum), do: Enum.sum(enum) / Enum.count(enum)
defp square(enum), do: (for x <- enum, do: x * x)
end
IO.puts RC.root_mean_square(1..10)