This post originated from an RSS feed registered with Ruby Buzz by Rudi Cilibrasi. Original Post: /mnt/cjhttpd/home/cilibrar/stuff/esotericruby/RubyKata/katasix.rb.html Feed Title: Esoteric Ruby Blog Feed URL: http://cilibrar.com/~cilibrar/erblog.cgi/index.rss Feed Description: A weblog made to explore some Ruby ideas in great detail and try to work out ideal solutions to real problems. Latest Ruby Buzz Posts Latest Ruby Buzz Posts by Rudi Cilibrasi Latest Posts From Esoteric Ruby Blog

Ruby Kata Six  --  Anagram

# This was a fun one; another classic algorithm popular in class but always
# fun to recreate.  This reminds me also of the related Boggle type problem.
# Here's my answer for the anagram list.  Just feed the list of words to stdin.

#!/usr/bin/env ruby

def toHistogram(str)
  res = [ ]
  str.each_byte { |i| res << i }
  res.sort
end

result = STDIN.readlines.inject({}) do |n, w|
           w.chomp!
           h = toHistogram(w)
           n[h] ||= [ ]
           n[h].push(w)
           n
end

goodkeys = result.keys.sort_by { |i| -result[i].size }

goodkeys.each { |k|
  v = result[k]
  puts v.join(' ') if v.size > 1
}