Kata six: Anagrams (pairing with Dan Dorman)

anagram_finder_spec.rb

class AnagramFinder
  def find_anagrams(words)
    output = []
    while (target_word = words.shift)
      matches = [target_word]
      words.reject! do |word|
        matches << word if check_for_anagram(word, target_word)
      end
      output << matches
    end
    output
  end

  def check_for_anagram(word, target_word)
    word.split(//).sort == target_word.split(//).sort
  end
end

describe AnagramFinder do
  describe "#find_anagrams" do
    it "returns a list of lists of anagrams" do
      input = %w[kinship pinkish elves]
      output = [%w[kinship pinkish], %w[elves]]
      subject.find_anagrams(input).should eq output
    end
  end

  describe "#check_for_anagram" do
    it "checks for identical letters in word" do
      subject.check_for_anagram("kinship", "pinkish").should be_true
    end

    it "returns false for a non-anagram pair" do
      subject.check_for_anagram("kinship", "monkeys").should be_false
    end
  end
end