gistfile1.rbx

# > {1 => 'a', 2 => 'b', 3 => 'a'}.values.histogram
# => {"a"=>2, "b"=>1}
class Array
  def histogram
    inject(Hash.new(0)) do |memo,value|
      memo[value] += 1
      memo
    end
  end
end