Return to Revisions

    awk 'BEGIN{ f["2"]="Twos"; f["3"]="Threes"; f["4"]="Fours"; f["5"]="Fives"; f["6"]="Sixes"; f["7"]="Sevens"; f["8"]="Eights"; f["9"]="Nines"; f["10"]="Tens"; f["J"]="Jacks"; f["Q"]="Queens"; f["K"]="Kings"; f["A"]="Aces"; }       
         { c[$2]++; printf("%s %s\t", $1, $2) }
         END{ print ""; for(i in c){ 
              if( c[i]==2 ){ print "PAIR:  " f[i]; cp++ }  
              if( c[i]==3 ){ print "THREE: " f[i] }
              if( c[i]==4 ){ print "FOUR:  " f[i] } } 
              if( cp==2  ) { print "TWO PAIRS"; }
              if( cp&&ct ) { print "FULL HOUSE" } }'

Example output:

♤ J     ♥ K     ♦ K     ♦ J     ♥ 8 
PAIR:  Jacks
PAIR:  Kings
TWO PAIRS