reduce-zip.ex

  def zip(a, b) do
    list = to_list(a)

    throw do
      { zipped, rest } = Reducers.reduce(b, { [], list }, fn
        entry, { acc, [h|t] } -> { [{entry, h}|acc], t }
        entry, { acc, [] } -> throw { :enum_zip, acc }
      end)

      :lists.foldl(fn(x, acc) ->
        [{ x, nil }|acc]
      end, zipped, rest) |> :lists.reverse
    catch
      { :enum_zip, rest } ->
        :lists.reverse(rest)
    end
  end