Problems? Is your data what you think it is? | |
PerlMonks |
Re: Solver for the game "Set" matches three timesby ChOas (Curate) |
on Jul 15, 2008 at 06:09 UTC ( [id://697643]=note: print w/replies, xml ) | Need Help?? |
I personally would try to keep track of the unique combinations of the cards using a hash, the keys being the card sorted contactenated shape/color/pattern values of the cards. so if I have 2 cards 2,3,1,2 and 1,2,3,1 first create two keys, 2312 and 1231, sort them 1231,2312, concat them as a key ++$unique_combo{"12312312"}; After been over all the cards the keys in my hash will be the unique combinations. Further, @{$combo->[0]} should just dereference your array GreetZ!,
print "profeth still\n" if /bird|devil/;
In Section
Seekers of Perl Wisdom
|
|