[awk]ジャンケン

書き溜め

BEGIN{
print "グー(g), チョキ(c), パー(p) 手を選択してください。¥n終了するにはqとタイプします"
}
$1~/^[gG|cC|pP|qQ]$/ {
janken($1) ; print "グー(g), チョキ(c), パー(p) 手を選択してください。¥n終了するにはqとタイプします"
}

function janken(hn , hand, ehand){

if (hn ~/^[gG]$/) {printf "グー¥t¥t"; hand = 0}
else if(hn~/^[cC]$/) {printf "チョキ¥t¥t"; hand =1}
else if(hn~/^[pP]$/) {printf "パー¥t¥t"; hand =2}
else if(hn~/^[qQ]$/) {exit}

# g win c
# c win p
# p win g

srand()
ehand = sprintf("%d",rand()*10%3)
if (ehand==0) {print "COM: グー"; }
else if (ehand==1) {print "COM: チョキ"}
else if (ehand==2) {print "COM: パー"}

if ( ((hand-ehand)==-1) || ((hand-ehand)==2) ) {
print "あなたのかち"
}
else if(hand==ehand) {
print "あいこ"
}
else {
print "あなたの負け"
}


}

JUGEMテーマ：コンピュータ