tallakt

defmodule LazyPermutations do
  def permutations(list) do
    list
    |> Enum.sort
    |> Stream.unfold fn
      [] -> nil
      p -> {p, next_permutation(p)}
    end
  end

tallakt

defmodule Bubble do
  def sort(list) do
    do_sort list, {[], false}
  end

  defp do_sort([a, b | tail], {acc, _}) when b < a do
    do_sort [a | tail], {[b | acc], true}
  end
  
  defp do_sort([a | tail], {acc, swapped?}) do