Elixir reduce while

gistfile1.ex

defmodule Reduce do

  def while(collection, initial, while_func, reduce_func) do
    try do
      Enum.reduce collection, initial, fn element, acc ->
        if while_func.(element, acc) do
          reduce_func.(element, acc)
        else
          throw {:halt, acc}
        end
      end
    catch
      :throw, {:halt, acc} -> acc
    end
  end

end

iex(4)> Reduce.while [1, 2, 3], 0, fn _, _ -> true end, fn x, acc -> x + acc end
6
iex(5)> Reduce.while [1, 2, 3], 0, fn x, _ -> x < 3 end, fn x, acc -> x + acc end
3
iex(6)>