Playing with pipes in Elixir

upptec_pipes.ex

defmodule Upptec do
  def study(topics, match) do
    Stream.filter(topics, fn topic -> Regex.match?(match, topic) end)
  end

  def consider(topics, time_available) do 
    Stream.map(topics, fn topic -> 
      duration = :random.uniform(time_available)
      {topic, duration} 
    end)
  end

  def teach(topics, colleage, student) do 
    Stream.each(topics, fn ({topic, duration}) -> 
      IO.puts("#{colleage} taught #{student} #{topic} in #{duration} time.")
    end)
  end

  def lets_do_it do
    topics = ["elixir pipes", "driving a car", "OTP in elixir", "what a computer is"]
    Upptec.study(topics, ~r/elixir/) |> Upptec.consider(1000) |> Upptec.teach(:marcus, :morgan) |> Enum.to_list
  end
end