Show what's using memory

memory.ex

# show top memory using processes
:erlang.processes()
  |> Enum.map(fn pid ->
    :erlang.process_info(pid, [:memory, :current_function, :current_location])
  end)
  |> Enum.sort_by(fn process_info -> process_info[:memory] end)
  |> Enum.reverse()
  |> Enum.take(25)

# show top memory using ETS tables
:ets.all()
  |> Enum.map(fn table ->
    [memory: :ets.info(table, :memory), size: :ets.info(table, :size), name: :ets.info(table, :name)]
  end)
  |> Enum.sort()
  |> Enum.reverse()
  |> Enum.take(25)