Joker.egi

;; 従来のcard matcherをregular-card matcherにリネーム
(define $regular-card
  (algebraic-data-matcher
    {<card suit (mod 13)>}))
 
;; Joker入りcard matcher
;; (,<Joker>みたいなvalue typeは考えてない
;; 欲しけりゃプリミティブパターン節を一個追加すればいいと思うけど未検証)
(define $card
  (matcher
    {[<card $ $> [suit (mod 13)]
      {[<Card $x $y> {[x y]}]
       [<Joker> (concat (map (lambda [$x] (map (lambda [$y] [y x]) {<Spade> <Heart> <Club> <Diamond>})) (between 1 13)))]}]
         ;; Jokerは52種どんなカードとしてもマッチする。
     [$ [regular-card] {[$tgt {tgt}]}]}))