Here is my Perl code for the diet puzzle, as well as sorting it splits the set into positive and negative subsets: https://gist.github.com/805894