looksay.ex

defmodule Looksay do
  def build([h|l]) do
    n = l |> length |> Looksay.succ |> inspect
    n <> h
  end

  def succ(x), do: x + 1

  def group([],x),          do: [ x ]
  def group([h|t],[]),      do: group(t,[h])
  def group([h|t2],[h|t1]), do: group(t2,[h|[h|t1]])
  def group([h|t2],[g|t1]), do: [ [g|t1] | group([h|t2], []) ]

  def main(args) do
    args
      |> Enum.map(
          fn y
            -> y
            |> String.split("", trim: true)
            |> Looksay.group([])
            |> Enum.map( &( Looksay.build(&1) ) )
            |> Enum.reduce("", &(&2 <> &1))
            |> IO.puts
        end )
    :ok
  end
end