13 lines
370 B
Clojure
13 lines
370 B
Clojure
(def suits [:club :diamond :heart :spade])
|
|
(def pips [:ace 2 3 4 5 6 7 8 9 10 :jack :queen :king])
|
|
|
|
(defn deck [] (for [s suits p pips] [s p]))
|
|
|
|
(def shuffle clojure.core/shuffle)
|
|
(def deal first)
|
|
(defn output [deck]
|
|
(doseq [[suit pip] deck]
|
|
(println (format "%s of %ss"
|
|
(if (keyword? pip) (name pip) pip)
|
|
(name suit)))))
|