Concurrent file searcher in Elixir

cat_finder.ex

defmodule CatFinder do

  def find(scheduler) do
    send scheduler, {:ready, self}

    receive do
      { :find, file, scheduler_pid} ->
        send scheduler_pid, { :answer, file, num_of_cats(file) }
        find(scheduler)
      { :shutdown } ->
        exit(:normal)
    end
  end

  defp num_of_cats(file) do
    Regex.scan(~r/cat/, File.read!(file)) |> length
	end
end

defmodule Scheduler do
  def run(files) do
		files
    |> Enum.map(fn(_) -> spawn(CatFinder, :find, [self]) end)
    |> schedule_processes(files, [])
  end

  defp schedule_processes(processes, files, results) do
    receive do
      {:ready, pid} when length(files) > 0 ->
        [ next | tail ] = files
        send pid, {:find, next, self}
        schedule_processes(processes, tail, results)
      {:ready, pid} ->
        send pid, {:shutdown}
        if length(processes) > 1 do
          schedule_processes(List.delete(processes, pid), files, results)
        else
					results
        end

			{:answer, file, num_of_cats} ->
				schedule_processes(processes, files, [ {file, num_of_cats} | results ])
    end
  end
end


File.cd!("test_files")

files = File.ls!
results = Scheduler.run(files)
IO.puts(inspect results)