This comment is reply for 5187 GEOJ: sedで書けそうな気がするのですが、めん...(ポーカーの役判定). Go to thread root.
GEOJ #5191(2008/01/05 10:51 GMT) [ sed ] Rating3/3=1.00
その後、まじめにsedで書いてみました。こっちのほうがきれいかも。
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41
#!/bin/sed -f /^\([CDHS][A2-9TJQK]\)\{5\}$/!b /\([CDHS][A2-9TJQK]\).*\1/b /\(.\).\(\1.\)\{4\}/{ s/^/X/ } s/[CDHS]//g s/\([2468TQK]\+\)\([A3579J]\+\)/\2\1/g s/\([2468TQK]\+\)\([A3579J]\+\)/\2\1/ s/\([3478JQK]\+\)\([A2569T]\+\)/\2\1/g s/\([3478JQK]\+\)\([A2569T]\+\)/\2\1/ s/\([5-8K]\+\)\([A2349TJQ]\+\)/\2\1/g s/\([5-8K]\+\)\([A2349TJQ]\+\)/\2\1/ s/\([9TJQK]\+\)\([A2-8]\+\)/\2\1/g s/\([9TJQK]\+\)\([A2-8]\+\)/\2\1/ /[2-5]$/y/A2345/9TJQK/ /[6-9]$/y/A23456789/56789TJQK/ /[TJ]$/y/A23456789TJ/3456789TJQK/ /Q$/y/A23456789TJQ/23456789TJQK/ s/^\(.\)\1\1\1K$\|^.KKKK$/Four of a kind/ s/\(.\)\1\+//g s/^$/Full house/ s/^.$/Two pair/ s/^..$/Three of a kind/ s/^...$/One pair/ s/^[A9]TJQK$/Straight/ s/^.....$/No pair/ s/^XATJQK$/Royal flush/ s/^X9TJQK$/Straight flush/ s/^X.....$/Flush/
Rating3/3=1.00-0+
[ reply ]
GEOJ #5191() [ sed ] Rating3/3=1.00
その後、まじめにsedで書いてみました。こっちのほうがきれいかも。
#!/bin/sed -f /^\([CDHS][A2-9TJQK]\)\{5\}$/!b /\([CDHS][A2-9TJQK]\).*\1/b /\(.\).\(\1.\)\{4\}/{ s/^/X/ } s/[CDHS]//g s/\([2468TQK]\+\)\([A3579J]\+\)/\2\1/g s/\([2468TQK]\+\)\([A3579J]\+\)/\2\1/ s/\([3478JQK]\+\)\([A2569T]\+\)/\2\1/g s/\([3478JQK]\+\)\([A2569T]\+\)/\2\1/ s/\([5-8K]\+\)\([A2349TJQ]\+\)/\2\1/g s/\([5-8K]\+\)\([A2349TJQ]\+\)/\2\1/ s/\([9TJQK]\+\)\([A2-8]\+\)/\2\1/g s/\([9TJQK]\+\)\([A2-8]\+\)/\2\1/ /[2-5]$/y/A2345/9TJQK/ /[6-9]$/y/A23456789/56789TJQK/ /[TJ]$/y/A23456789TJ/3456789TJQK/ /Q$/y/A23456789TJQ/23456789TJQK/ s/^\(.\)\1\1\1K$\|^.KKKK$/Four of a kind/ s/\(.\)\1\+//g s/^$/Full house/ s/^.$/Two pair/ s/^..$/Three of a kind/ s/^...$/One pair/ s/^[A9]TJQK$/Straight/ s/^.....$/No pair/ s/^XATJQK$/Royal flush/ s/^X9TJQK$/Straight flush/ s/^X.....$/Flush/Rating3/3=1.00-0+