Clojureで七並べ序章 | Codetter（こーどったー）

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
;全自動モード
(def AUTO_MODE false)
;プレイヤー人数
(def PLAYER_NUMBER 4)
;パス回数
(def PASS_NUMBER 3)
;トランプカードクラス
(def TrumpCard-suitStrs ["▲" "▼" "◆" "■" "Jo" "JO"])
(def TrumpCard-powerStrs ["Ａ" "２" "３" "４" "５" "６" "７" "８" "９" "10" "Ｊ" "Ｑ" "Ｋ" "KR"])
(def TrumpCard-suits 4)
(def TrumpCard-powers 13)
(defrecord TrumpCard[name suit power])
(defn make-TrumpCard[suit power]
    (let [name (str (nth TrumpCard-suitStrs suit) (nth TrumpCard-powerStrs power))]
        (TrumpCard. name suit power)
    )
)
;トランプの束クラス
(defprotocol ITrumpDeck
    (-count[self])
    (-shuffle[self])
    (draw[self])
)
(defrecord TrumpDeck[__g __deck] ITrumpDeck
    (-count[self]
        (count @__deck)
    )
    (-shuffle[self]
        (swap! __deck shuffle)
    )
    (draw[self]
        (let [card (nth @__deck @__g)]
            (swap! __g inc)
            card
        )
    )
)
(defn make-TrumpDack[& {:keys [jokers] :or {jokers 0}}]
    (let [
        deck (vec(concat
            (apply concat (for[suit (range TrumpCard-suits)]
                (for[power (range TrumpCard-powers)]
                    (make-TrumpCard suit power)
                )
        ))
        (for[jokers (range jokers)]
            (make-TrumpCard (+ TrumpCard-suits jokers) TrumpCard-powers)
        )))
    ]
        (TrumpDeck. (atom 0) (atom deck))
    )
)
;プレイヤークラス
(defprotocol IPlayer
    (sortDeck[self])
    (addCard[self card])
    (removeCard[self cardName])
    (existCard[self cardName])
    (gameOut[self])
)
(def MPlayer{
    :sortDeck (fn[self]
        (let [sortValue (fn[v] (+(*(:suit v) TrumpCard-powers) (:power v)))]
            (swap! (:deck self) #(sort-by sortValue %1))
        )
    )
    :addCard (fn[self card]
        (swap! (:deck self) #(cons card %1))
    )
    :removeCard (fn[self cardName]
        (swap! (:deck self) #(remove (fn[card] (= cardName (:name card))) %1))
    )
    :existCard (fn[self cardName]
        (keep-indexed (fn[index card] (if(= cardName (:name card)) index)) @(:deck self))
    )
    :gameOut (fn[self]
        (reset! (:isGameOut self) true)
    )
})
(defrecord Player[deck id name isGameOut])
(extend Player IPlayer MPlayer)
(defn make-Player[id name]
    (Player. (atom '()) id name (atom false))
)
;メイン処理
(loop[i 0](when(< i 100)
    (println)
(recur(inc i))))
(print "
/---------------------------------------/
/                 七並べ                /
/---------------------------------------/
")
(let [
    trp (make-TrumpDack)
    p (atom '())
    pid (atom 0)
]
    (-shuffle trp)
    (loop[i 0](when(< i PLAYER_NUMBER)
        (swap! p #(cons (make-Player @pid (str "Player " (inc @pid))) %1))
        (swap! pid inc)
    (recur(inc i))))
    (swap! p reverse)
    (loop[i 0](when(< i (-count trp))
        (addCard (nth @p (mod i PLAYER_NUMBER)) (draw trp))
    (recur(inc i))))
    (doseq[pl @p]
        (sortDeck pl)
        (printf "\n【%s】\n" (:name pl))
        (doseq[card @(:deck pl)]
            (print (:name card))
        )
    )
)
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX