2016 Update

Task/Averages-Root-mean-square/Elixir/averages-root-mean-square.elixir

@@ -1,7 +1,14 @@
 defmodule RC do
-  def root_mean_square(list) do
-    :math.sqrt(Enum.reduce(list, 0, &(&2 + &1 * &1)) / Enum.count(list))
+  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)