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