class ReeArray::GroupBy

def call(list, &proc)
  result = {}
  list.each do |element|
    key = yield(element)
    if result.has_key?(key)
      result[key] << element
    else
      result[key] = [element]
    end
  end
  result
end