Thanks for encouragement... somehow I did a simple algorithm for matching elements of array... It`s a bit awkward pattern and it`s not 100% matching since it matches only numbers from the string :(
#!/usr/bin/perl -wT use strict; use utf8; my @hand = ('k of hearts', '2 of hearts', '2 of diamonds', '10 of spa +des', 'Q of clubs', 'j of clubs', '10 of diamonds', '3 of hearts'); for ( my $i=0; $i<$#hand+1; $i++) { for ( my $j=$i+1; $j<$#hand+1; $j++) { if ( ($hand[$i] << 1) == ($hand[$j] <<1 ) ) { print $hand[$i], $hand[$j], "\n"; } } }
This matched the pair of 2s and thee pair of 10s but matches and pair of Q and J which is wrong :(, well for now I can`t come with a better solution but I`ll keep improving.
In reply to Re^4: Checking for a special matching
by heatblazer
in thread Checking for a special matching
by heatblazer
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |