AEM decomposition

AEM_decomposition.exs

defmodule AncientEgyptianMultiplication do
  require Integer

  def decompose(n) do
    power_ready = case Integer.is_odd(n) do
                    true -> n - 1
                    false -> n
                  end
    greatest_pow_2 = of(power_ready, []) |> count_of
    decompose(n, greatest_pow_2, [])
  end

  def decompose(n, _, state) when n == 1, do: state ++ [n]
  def decompose(n, _, state) when n <= 0, do: state
  def decompose(n, closest_number, state) do
    pow_2 = :math.pow(2, closest_number) |> Kernel.trunc
    case pow_2 <= n do
      true ->
        n = (n - pow_2)
        state = state ++ [pow_2]
        decompose(n, closest_number - 1, state)
      false ->
        decompose(n, closest_number - 1, state)
      end
  end

  defp of(n, state) when n <= 1, do: state
  defp of(n, state) do
      n = (n / 2)
          |> Kernel.trunc
      state = state ++ [n]
      of(n, state)
  end

  defp count_of([_head | tail]) do
    count_of(tail, 1)
  end
  defp count_of([], state), do: state
  defp count_of([_head | tail], state) do
    count_of(tail, state + 1)
  end

end