>>679 PowerShell
function Janken {
$hands = @($args[0]) + (1..$args[1] | %{ Get-Random "g","v","w" })
("[" + ($hands | % {"{0}`",'$_')" -f $(if ($i++ -eq 0) {"(`"You"} else {",(`"PC" + ($i-1)}) }) + "]")
$groups = @($hands | Group-Object)
$win = @{ "g" = "v"; "v" = "w"; "w" = "g" }[$args[0]]
if ($groups.Count -ne 2 -or $win -eq $null) { return "Draw" }
if (($groups | ? {$_.Name -eq $win}).Count -gt 0) { return "You Win!!" }
return "You Lose!!"
}
PowerShell > Janken g 1
[("You",'g') ,("PC1",'v')]
You Win!!
PowerShell > Janken v 2
[("You",'v') ,("PC1",'v') ,("PC2",'g')]
You Lose!!
PowerShell > Janken w 3
[("You",'w') ,("PC1",'v') ,("PC2",'g') ,("PC3",'w')]
Draw
PowerShell > Janken a 1
[("You",'a') ,("PC1",'g')]
Draw
プログラミングのお題スレ Part12
■ このスレッドは過去ログ倉庫に格納されています
695デフォルトの名無しさん
2018/11/24(土) 23:37:47.52ID:Wfpvwubu■ このスレッドは過去ログ倉庫に格納されています
ニュース
- 橋下徹氏 外務省幹部の訪中受け「口だけ番長」へ痛烈指摘 「喧嘩は日本の完敗…なんとかっこ悪い日本か」 [冬月記者★]
- 【外国人問題】小野田紀美担当相「不法就労や不法滞在は許さない」 [シャチ★]
- 【野球】井端監督 大谷翔平、山本由伸らのWBCへの参加 「1日も早く返事ほしい」「待っててといっても、国内組が遅くなってしまう」★3 [冬月記者★]
- 経団連会長、日中は建設的対話を 経済3団体が高市首相と初会談も日中関係は話題に登らず… [BFU★]
- 中国で「クレしん」公開延期 対日報復、エンタメに波及 [蚤の市★]
- 東京株式市場 インバウンド関連株が下落 中国政府の渡航自粛要請で [バイト歴50年★]
- 中国「高市が頭を下げて謝罪しない限り、絶対に許さない」 [329329848]
- 🏡
- 有識者「高市総理が発言を撤回したり、辞職するしかないと言っている人は、それで日中関係が今まで通りになると思ってる?」 [834922174]
- 減税は低所得者差別
- さわやかハンバーグって何が凄いの?? [134367759]
- 【動画】陽キャ、パルクール失敗
