Select Code to Download

                                        @n
                                    =(2,3,4,5,
...
       &&$p{'p'}) {$p{'f'}=1;}if($p{'s'}){$R='Sequence!';$C+=6;}elsif(
+$p{'f'}
){$R='Fullhouse!';  $C+=4; } elsif( $p{'k'} ){ $R= 'Poker!'; $C += 10;
+} elsif ($p{'t'}
){$R='trio';$C+=2;}elsif($p{'p'}){$R="$p{'p'}pair"; $C++;}@h =(0,0,0, 
+0,0);}print"\n";