Camicia

説明

この演習では、古典的なカードゲームCamiciaによく似たゲームをシミュレートします。プログラムは2人のプレイヤーの山札の初期状態を受け取り、ゲームが終わるまで（あるいは永遠に終わらないことを検出するまで）シミュレートします。

ルール

• 山札は2人のプレイヤーに分けられます。 プレイヤーのカードは左から右へと読み、いちばん左のカードが山札の一番上です。
• 1ラウンドは、両方のプレイヤーが少なくとも1枚のカードを出すことで構成されます。
• プレイヤーは交互に、自分の山札の一番上のカードを中央の山に置きます。
• カードが数字カード（2〜10）なら、そのまま相手に手番が移ります。
• カードが支払いカードなら、ペナルティを支払わなければなりません。
  • J → 相手はカードを1枚支払います
  • Q → 相手はカードを2枚支払います
  • K → 相手はカードを3枚支払います
  • A → 相手はカードを4枚支払います
• ペナルティを支払っているプレイヤーがさらに支払いカードを出すと、そのプレイヤーはペナルティの支払いをやめます。すると、もう一方のプレイヤーが新しい支払いカードに応じたペナルティを支払わなければなりません。
• ペナルティが途中で中断されることなくすべて支払われると、最後の支払いカードを置いたプレイヤーが中央の山を集め、自分の山札の一番下に置きます。そして、そのプレイヤーが次のラウンドを始めます。
• カードがなくなってカードを出せなくなった場合（ペナルティの支払い中でも、自分の手番でも）、もう一方のプレイヤーが中央の山を集めます。
• プレイヤーが中央の山からカードを集める瞬間をトリックと呼びます。
• トリックのあと、プレイヤーがすべてのカードを手にしていれば、ゲームは終了します。
• 山札がゲーム中の以前の状態とまったく同じになった時点で、ゲームはループに入ります。数字カードは数えません！

例

終了する試合の小さな例です。

status: "finished", cards: 13, tricks: 1

ループする試合の小さな例です。

ラウンド4の開始時点は、ラウンド2の開始時点と同じです。思い出してください。数字カードの値は関係ありません。

status: "loop", cards: 8, tricks: 3

タスク

• 入力を用いて、上記のルールに従ってゲームをシミュレートします。
• ゲームについて、次の情報を求めます。
  • Status: "finished" または "loop"
  • Cards: ゲーム全体で出されたカードの合計枚数
  • Tricks: 中央の山を集めた回数

from_quoteの長所と短所

Card.from_quote関数は、文字列をCardにパースします。これにより、次のようなコードを書くことができます。

card : Card
card = "Q"

このコードは、コンパイル時に暗黙的にCard.from_quote("Q")を呼び出します。この方法（または後述する他の方法）でコンパイル時にコードを実行すると、実行時にパースやデータの検証を行う必要がないため、プログラムを高速化できる可能性があります。さらに、不正なデータ（たとえば誤った形式の日付など）は実行時ではなくコンパイル時に拒否されるので、アプリがより堅牢になります。最後に、コードが読みやすくなるという利点もあります。たとえば、この演習のテストの一つを見てみましょう。

result = simulate_game({
    player_a: ["2", "A"],
    player_b: ["3", "4", "5", "6", "K"],
})

しかし、このコードを読んだ人は、simulate_game関数が2つのList(Str)を含むレコードを受け取ると勘違いするかもしれません。実際には、2つのList(Card)を含むレコードです。これは混乱やエラーの原因になりえます。そのため、少し長くなりますがより明示的な"Q".Cardという書き方を好むかもしれません。これもコンパイル時にfrom_quoteを呼び出します。

自分のプログラムでは、代わりにfrom_strを使うほうがよいかもしれません。

Card := { ... }.{
    from_str : Str -> Try(Card, [InvalidCard])
    from_str = |card_str| ...
}

次のように、コンパイル時にfrom_str（または他の任意の純粋関数）を呼び出すこともできます。

Ok(card) = Card.from_str("Q")

注：この定義をトップレベルに置くと、コンパイル時に実行されます（関数が純粋で、入力がコンパイル時にわかっているためです）。関数の中では、実行時にfrom_strを使うことができます。

ヒント

---

出典

Beggar-My-Neighbour