Camicia

說明

在這個練習中，你將模擬一個和經典紙牌遊戲Camicia非常類似的遊戲。 你的程式會收到兩位玩家牌組的初始配置，並且必須模擬遊戲，直到遊戲結束（或是判斷出它永遠不會結束）。

規則

• 整副牌會分給兩位玩家。 玩家的牌由左至右讀取，最左邊的牌就是牌組的最上面。
• 一個回合中，兩位玩家都至少會出一張牌。
• 玩家輪流把自己牌組最上面的牌放到中央牌堆上。
• 如果這張牌是數字牌（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函式接收的是一筆包含兩個List(Str)的記錄，但實際上它接收的是一筆包含兩個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