$Id: algorithm,v 1.1 1996/09/12 14:35:21 fraser Exp $ $Log: algorithm,v $ # Revision 1.1 1996/09/12 14:35:21 fraser # Initial revision # The algorithm used by agm has, like everything else, numerous bells and whistles attached, but is basically very simple. agm ("word") if ("word" is empty) print the current anagram return for each "subword" in dictionary contained by "word" remove "subword"s letters from "word" giving "smaller-word" agm ("smaller-word") return