awkでワンペアの判定

poker.awk

#!/usr/bin/gawk -f
# usage:
#   gawk -f poker.awk card.txt
#
# 1. ファイルから行単位で数字を読み出す
# 2. 数字を添え字にして連想配列にする
# 3. Value値に、同じ添え字(数字)があったら+1する
# 4. END句で、連想配列を全て読み出し、Value値が2の物があった場合に、one pairと表示する
# ※ 基本動作のみ


{
    card[$1]++
}

END{
    for(i in card) if (card[i]==2) print "cards is one pair"
}