use strict; use warnings; my $n = <>; chomp $n; my @array = split / /, $n; @array = sort {$a <=> $b} @array; my $three = 0; my $two = 0; if((($array[0] == $array[1])&&($array[1] == $array[2])&&($array[2] == $array[3]))|| (($array[1] == $array[2])&&($array[2] == $array[3])&&($array[3] == $array[4]))) { print "NO HAND\n"; exit; } if(($array[0] == $array[1])&&($array[1] == $array[2])) { $three = 1; } elsif(($array[2] == $array[3])&&($array[3] == $array[4])) { $three = 2; } if($three == 1) { if($array[3] == $array[4]) { $two++; } } elsif($three == 2) { if($array[0] == $array[1]) { $two++; } } else { if($array[0] == $array[1]) { $two++; } if($array[1] == $array[2]) { $two++; } if($array[2] == $array[3]) { $two++; } if($array[3] == $array[4]) { $two++; } } if(($three != 0)&&($two == 1)) { print "FULL HOUSE\n"; } elsif($three != 0) { print "THREE CARD\n"; } elsif($two == 2) { print"TWO PAIR\n"; } elsif($two == 1) { print "ONE PAIR\n"; } else { print "NO HAND\n"; } exit;