私はハンドジェネレータを作成していますが、3カードハンドやフルハウスなどの特定のハンドが作成されたかどうかを記録したいと思います。私はこれを行う方法を理解しようとしており、文字列にgrepを使用する方法も考えましたが、多くの行を作成する必要があり、過度に反復的であることに気づきました。という最後に生成された文字列を保持するファイルがありますout.txt。
以下はスクリプトの出力です。
io@conroe$ ./card 5
♦ 6 ♦ Q ♠Q ♥J ♣3
私は次のようなものが欲しい：
io@conroe$ ./card 5
♦ 6 ♦ Q ♠Q ♥J ♣3
PAIR - QUEENS
コードは単純に見えますが、まだこの部分を完了する方法を見つけようとしています。 （今、私は小さなピクセルカードグラフィックセットを見つけてテキストの代わりに使うことができれば本当に良いようです。）コード：
#!/bin/bash
cat /dev/null > out.txt
z=$( < out.txt)
for (( y=1; y<=$1; y++ ))
do
< /dev/urandom LC_CTYPE=C tr -dc HDCS | head -c 1 | while read -n 1 s
do
case $s in
D)
printf ' \e[0;31;47m ♦ '
;;
H)
printf ' \e[0;31;47m ♥'
;;
S)
printf ' \e[0;30;47m ♠'
;;
C)
printf ' \e[0;31;47m ♣'
;;
esac
done
< /dev/urandom LC_CTYPE=C tr -dc "1""2""3""4""5""6""7""8""9""10""J""Q""K""A" | head -c 1 | while read -n 1 n
do
if [ $n = "0" ]
then
echo -n '10 '
echo -n '10 ' >> out.txt
else
echo -n "$n "
echo -n "$n " >> out.txt
fi
done
printf '\e[0m'
done
printf "\n"
編集：ところで、文字列はout.txt次のようになります。
6 Q Q J 3
答え1
printf '%s\n' {♠,♣,♢,♡}$'\t'{{2..10},J,K,Q,A} | shuf -n5 |
gawk 'BEGIN{ split(",Twos,Threes,Fours,Fives,Sixes,Sevens,Eights,Nines,Tens",vt,","); vt["J"]="Jacks"; vt["Q"]="Queens"; vt["K"]="Kings"; vt["A"]="Aces"; } # values-text
{ c[$2]++; printf("%s %s", $1, $2(NR==5?"\n":"\t")) }
END{ for(i in c){
if( c[i]==2 ){ print "PAIR: " vt[i]; cp++ }
if( c[i]==3 ){ print "THREE: " vt[i]; ct++ }
if( c[i]==4 ){ print "FOUR: " vt[i] } }
if( cp==2 ) { print "TWO PAIRS" }
if( cp&&ct ) { print "FULL HOUSE" } }'
出力例：
♡ Q ♣ A ♢ A ♢ Q ♡ 2
PAIR: Aces
PAIR: Queens
TWO PAIRS
bashがoptionsを介してawkに渡されたawkのrand（）シードメソッドを使用するawkことを除いて、ここではまったく同じことが行われます。出力は上記と同じです。 $RANDOM-v
gawk -v seed=$RANDOM '
BEGIN{srand(seed)
split("♠♣♢♡",s,"") # suit: 1-4
split("A,2,3,4,5,6,7,8,9,10,J,Q,K",v,",") # values: 1-13
split(",Twos,Threes,Fours,Fives,Sixes,Sevens,Eights,Nines,Tens",vt,","); vt["A"]="Aces"; vt["J"]="Jacks"; vt["Q"]="Queens"; vt["K"]="Kings"; # values-text
for(es in s){ for(ev in v){ sv[i++]=s[es]" "v[ev] }}; # 0-51
imax=4; for(i=0;i<=imax;i++){ # pick 5 cards at random from array `v`
rix=int(rand()*(52-i))+i # ranges from 0-51 to 4-51, as per `i`
tmp=sv[i]; sv[i]=sv[rix]; sv[rix]=tmp # swap ramdom value to front of array, as per `i`
split(sv[i],fv," "); c[fv[2]]++ # increment face-value counts
printf("%s", sv[i](i==imax?"\n":"\t")) # print the full hand in incremets
}
for(i in c){
if( c[i]==2 ){ print "PAIR: " vt[i]; cp++ }
if( c[i]==3 ){ print "THREE: " vt[i]; ct++ }
if( c[i]==4 ){ print "FOUR: " vt[i] } }
if( cp==2 ) { print "TWO PAIRS" }
if( cp&&ct ) { print "FULL HOUSE" }}'
答え2
可能なすべての組み合わせのリストを作成し、それらを混ぜて所定の数のカードを選択します（これにより、同じカードを複数回処理するのを防ぐことができます）。同じスーツとランクを計算するために連想配列を使用します。
これにより開始されます。
#!/bin/bash
count=$1
((count>52)) && exit 1 # Not enough cards.
cards=() # Create an array.
for suit in $'\e[0;31;47m ♦' $'\e[0;31;47m ♥' $'\e[0;30;47m ♠' $'\e[0;30;47m ♣' ; do
for rank in {2..10} J Q K A ; do
cards+=("$suit $rank"$' \e[0m') # All possible combinations.
done
done
hand=($(
for ((i=0; i<${#cards[@]}; i++)) ; do
echo $i
done | shuf -n "$count" # Pick random cards.
))
# Associative arrays to count occurrences.
declare -A suits
declare -A ranks
for card_i in "${hand[@]}" ; do
card="${cards[card_i]}"
echo "$card"
(( suits[${card:11:1}]++ )) # Extract the suit
(( ranks[${card:13:-5}]++ )) # and rank, add one to count.
done
for s in "${!suits[@]}" ; do
echo "$s ${suits[$s]}"
done
echo
for r in "${!ranks[@]}" ; do
echo "$r ${ranks[$r]}"
done
答え3
OPのコメントへの回答が遅れました。私はshufチョロバを使用していますが、私のカードは0から51の整数でエンコードされています。あるいは、$RANDOM一時テストに変数を利用することもできます。
この情報は、以下から入手できます。https://gist.github.com/yaegashi/57065723166e3a72b79e
#!/bin/bash
# This version conforms to Bash 3.2.53 on OS X.
stab=('\e[0;31;47m ♦' '\e[0;31;47m ♥' '\e[0;30;47m ♠' '\e[0;30;47m ♣')
ntab=(2 3 4 5 6 7 8 9 10 J Q K A)
match() {
for i; do
printf " ${stab[$((i/13))]}${ntab[$((i%13))]}\e[0m"
done
printf "\n"
suits=(0 0 0 0)
nums=(0 0 0 0 0 0 0 0 0 0 0 0 0)
same2=()
same3=()
same4=()
flush=-1
straight=-1
conseq=0
for i; do
((suits[i/13]++))
((nums[i%13]++))
done
for ((i=0; i<4; i++)); do
((suits[i]==5)) && flush=$i
done
for ((i=0; i<13; i++)); do
case ${nums[$i]} in
2) same2+=($i) ;;
3) same3+=($i) ;;
4) same4+=($i) ;;
esac
if ((i>0)); then
conseq=$((nums[i]>0?(nums[i-1]>0?conseq+1:1):0))
else
conseq=$((nums[i]>0?1:0))
fi
((conseq==5)) && straight=$i
done
if ((${#same4[*]}>0)); then
echo "FOUR OF A KIND - ${ntab[${same4[0]}]}"
elif ((${#same3[*]}>0)); then
if ((${#same2}>0)); then
echo "FULL HOUSE - ${ntab[${same3[0]}]} ${ntab[${same2[0]}]}"
else
echo "THREE OF A KIND - ${ntab[${same3[0]}]}"
fi
elif ((${#same2[*]}>1)); then
echo "TWO PAIR - ${ntab[${same2[1]}]} ${ntab[${same2[0]}]}"
elif ((${#same2[*]}>0)); then
echo "ONE PAIR - ${ntab[${same2[0]}]}"
elif ((straight>=0)); then
if ((flush>=0)); then
if ((straight==12)); then
echo "ROYAL FLUSH"
else
echo "STRAIGHT FLUSH"
fi
else
echo "STRAIGHT"
fi
elif ((flush>=0)); then
echo "FLUSH"
else
echo "NO PAIR"
fi
}
# Tests
match 14 45 0 11 49 # NO PAIR
match 51 13 39 9 50 # ONE PAIR
match 34 21 1 11 50 # TWO PAIR
match 8 3 21 22 34 # THREE OF A KIND
match 51 24 36 9 21 # STRAIGHT
match 1 3 5 7 9 # FLUSH
match 5 18 31 15 28 # FULL HOUSE
match 10 9 22 35 48 # FOUR OF A KIND
match 1 2 3 4 5 # STRAIGHT FLUSH
match 12 11 10 9 8 # ROYAL FLUSH
# Random draw
#match $(shuf -e -n 5 {0..51})
shuf=({0..51})
cards=()
for i in 0 1 2 3 4; do
j=$((RANDOM%${#shuf[*]}))
cards+=(${shuf[$j]})
unset shuf[$j]
done
match "${cards[@]}"
出力：
$ ./card.sh
♥3 ♣8 ♦2 ♦K ♣Q
NO PAIR
♣A ♥2 ♣2 ♦J ♣K
ONE PAIR - 2
♠10 ♥10 ♦3 ♦K ♣K
TWO PAIR - K 10
♦10 ♦5 ♥10 ♥J ♠10
THREE OF A KIND - 10
♣A ♥K ♠Q ♦J ♥10
STRAIGHT
♦3 ♦5 ♦7 ♦9 ♦J
FLUSH
♦7 ♥7 ♠7 ♥4 ♠4
FULL HOUSE - 7 4
♦Q ♦J ♥J ♠J ♣J
FOUR OF A KIND - J
♦3 ♦4 ♦5 ♦6 ♦7
STRAIGHT FLUSH
♦A ♦K ♦Q ♦J ♦10
ROYAL FLUSH
♠J ♠4 ♥A ♠6 ♣4
ONE PAIR - 4
バグが見つかりました。提案を歓迎します。
答え4
したがって、これを行うと間違いなくエラーが発生します。
tr -dc ... </dev/urandom
-d何も削除する必要はありません。あなたの目標がランダムであるならば、あなたは得たすべてを使うべきです。
たとえば、
tr '\0-\377' '[H*64][D*64][C*64][S*]' </dev/urandom |...
[HDCS] ...常に入力を削除せずに1つを返し、それを任意の入力バイトのスペクトラム拡散として返します。
混合デッキを埋める関数を書いた。
deck()( HOME=/dev/null; ${deck:+"echo"}
tr=$(printf '[%s*19]' 1 2 3 4 5 6 7 8 9 a b c d)
tr '\0-\377' "[J*9]$tr" |
dd cbs=1 obs=2 conv=unblock |
paste -d'W\nX\nY\nZ' - ~ - ~ - ~ - ~ |
sed ' /^J/d;1!G;/^\(..\).*\1/d
h;s/\n/&/51;tq' -e'd;:q' -eq
) <"${1:-/dev/urandom}"
行為...
time (deck|wc -l)
...印刷...
52
( deck | wc -l; ) \
0.03s user 0.04s system 224% cpu 0.028 total
deck()デフォルトはLinux /dev/urandomPRNGからランダムなデータを抽出することですが、引数を使用して呼び出すと、それをランダム入力の代替ソースのファイル名として解釈します。
すべてのカードが返されました。(1行に1つずつ)- ユニークです。スーツをランダム化してラウンドロビン順に割り当てようとしません。しかし、実際にはそうではありません。心配しなければならない：カード値の順序はすでにランダムであり、とにかくカードはランダムな順序で一意に剪定操作を実行する必要があるため、剪定操作の結果はランダムです。
sedこの問題は実際に対処できます。これがすることはsed：
/^J/d- すべてのピエロをクリア（バイト値
0-$(((256%13)-1))）
- すべてのピエロをクリア（バイト値
1!G- 最初の行を除くすべての行で、前のスペース
Gのコピーをhパターンスペースに追加します。
- 最初の行を除くすべての行で、前のスペース
/^\(.*\)\n.*\1/d;h- 現在スタックにインポートされたばかりのカードと一致する別のカードがある場合、パターン
dスペースは削除され、何も保存されません。 - ...そうでない場合、現在の行がこれまで一意の場合は、現在のスタックを
h古いスペースにコピーします。 - 最初の行は常に
hフィールドです。
- 現在スタックにインポートされたばかりのカードと一致する別のカードがある場合、パターン
/\(.*\n\)\{51\}/q;d\n当時、パターンスペースに51本のユーラインがある場合はsedq入力を取り、デッキを標準出力で印刷します。- ...そうしないと、
dパターンスペースが削除され、何も印刷されません。
今、欲しいならdraw...
draw() if [ -n "${1##*[!0-9]*}" ] || return 2
then case $((${#deck}>($1*3)))$deck in
(?*[!0-9W-Za-d[:space:]]*)
return 2;;
(0*) deck=$deck$(deck)
draw "$1";;
(1*) eval " hand='$(echo "$deck" |
sed "$1 N;s/\n/' deck='/")'"
esac; fi
...この関数は現在のシェル変数$handと。要求したカードの数のうち、上からカードを抜いて$deck入れます。毎回上からトリムします。呼び出したときに要求どおりに入力するのに十分でない場合は、最初に混ぜた新しいカードで補充されます。$deck$1$hand$deckdraw()$deck$hand$deck$deck
ついに：
show() case $1 in
(*[!0-9W-Za-d[:space:]]*|'') return 2;;
(*) ( eval " $(printf "T='\t' E=\033 nl='\n'")"
str(){ m=$1 l=\$1$2 r=\$i$3 d=......
set 9 8 7 6 5 4 3 2 1
for i in d c b a "$@"
do [ "$i" = d ] && M=ROYAL || M=STRAIGHT M=${M#"$m"}
eval printf "\"\ts/.*$l$d$r.*/"'$M${M:+ }$m:/;t$a.1\n"'
[ "$1" = 1 ] && unset a r l d i m M && break
shift; done; }
knd(){ c=$1 m="$1 OF A KIND" IFS=$nl
shift; s="$*"; set -f .'\\1'
until [ "$#" -gt "$((c-1))" ]
do set "$@" "$@"
done; shift "$(($#-(c-1)))"
printf %b "\t/\([a-d0-9]\)$@/{\n"
for s in $s; do eval 'printf "\t\t%s\n" "'"$s\""; done
printf "\tt$a.1\n\t}\n"; unset l c a s IFS; }
br(){ case $a.$1 in
(.*|*[!0-9]*.) return 2;;
(*.-t) printf "\n:$a.0\n%s\n" \
"$a!b${n:-$((a+1)).0}";;
(*.-b) printf ":$a.1\n";;esac;shift
for s do eval 'printf "\t%s\n" "'"$s\"";done
unset n IFS a s; }
for k in k1.2,1.2 k1.1,1.1 uk1.1,1.1
do echo "$1" | sort -"$k"; echo
done| sed -ne:n -e'$!N;s/\n\(.\)/\1/;tn
x;/./!g;x;$G;s/\n$//p' |
sed -ne"$( a=1 br -t
a=1 str FLUSH '\(.\)' '\\\1'
a=1 br -b 's/.*\([W-Z]\).......\\1.*/FLUSH:/' /:/h /^\[RS]/be n
a=2 br -t
a=2 knd 4 s/.\*/\$m:/
a=2 knd 3 s/// '/\(.\)[W-Z]\1/!s/.*[W-Z]/$m:/' s//FULLHOUSE:/
a=2 knd 2 s///2 tP 's/.*/$m:/' :P 's/.*[W-Z]/2 PAIR:/'
a=2 br -b /^\[F4]/h x //h //be x /:/h n
n=e a=3 br -t
a=3 str STRAIGHT .
a=3 br -b /:/h x h)
:e" -e'5!n;5!be' -e'y/123456789abcd/234567891JQKA/
s/\(.\)\([W-Z]\)/ '"$E[0;3\2;47m \1 $E[m /g"'
s/W\([^ ]* \)/1\1♦ /g;s/X\([^ ]* \)/1\1♥ /g
s/Y\([^ ]* \)/0\1♠ /g;s/Z\([^ ]* \)/0\1♣ /g
s/ 1/10/g;x;s/.*[^:]//;/.\{8\}/!s/$/'"$T/;G;s/\n/$T/
s/\([^m]*m\)\{26\} /&\\$nl\\$nl$T$T/g;s/[[:space:]]*$//p"
) esac
プロセス全体で、deck()カードdraw()は次のソート順に保存されます。
1 2 3 4 5 6 7 8 9 a b c d
2 3 4 5 6 7 8 9 10 J Q K A
そしてスーツ...
W X Y Z
♦ ♥ ♠ ♣
これにより作業が簡単になります。各カードは2バイトで、常に適切に配置されています。$handカードは常に行で区切られ$deckています。\nしたがって、show()最も困難な部分は簡単に実行できます。
sort -k1.1,1.1
...各行の最初のバイトで手を揃えます。残りは単なる比較です。これはsed...たくさんの。 2、3、4種類、フルハウス、2ペア、ロイヤルストレート、ストレート、ロイヤルフラッシュ、ストレートフラッシュを処理できます。最初の引数で見つかったカードの数に関係なく、次の順序で報告することをお勧めします。
ROYAL FLUSH
STRAIGHT FLUSH
4 OF A KIND
FULLHOUSE
FLUSH
STRAIGHT
3 OF A KIND
2 PAIR
2 OF A KIND
このshow()関数は必ずしも他の2つのうちの1つに接続する必要はありません。上記のエンコード方式と一致する方法で生成された引数を使用して呼び出すことができ、目的の出力を生成します。各機能は、必要に応じてモジュール方式で独立して存在できます。
また、3つの機能にはカード5枚の制限はありません。あらゆるサイズの手を扱うことができるはずです。すべて長持ちするように設計されています。$deck (エラー検査を含む)- だからある程度活用が可能です。
show()エンコーディングの終わりはデコード済み。エンコードされたすべての値は単一の操作でデコードおよびレンダリングされます。
y/123456789abcd/234567891JQKA/
1回の翻訳ですぐに発生するため、y///値を2回誤って編集するリスクはありません。
出力は次のとおりです。
