Averages/Root mean square: Difference between revisions

← Older editNewer edit →
Content deleted Content added
Added EchoLisp
Line 393:
<lang elixir>
defmodule RC do
def root_mean_square(listenum) do
enum
:math.sqrt(Enum.reduce(list, 0, &(&2 + &1 * &1)) / Enum.count(list))
|> square
end ▼
|> 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
 
Retrieved from "https://rosettacode.org/wiki/Averages/Root_mean_square"