Anonymous user
Playing cards: Difference between revisions
This is actual, idiomatic Clojure
m (→{{header|Sidef}}: modified the code to work with the latest version of Sidef) |
(This is actual, idiomatic Clojure) |
||
Line 763:
8 of ♠, 10 of ♥, 3 of ♠, 10 of ♣, 9 of ♥, 10 of ♠, 3 of ♣, J of ♠, K of ♣, K of ♦, A of ♠</pre>
=={{Header|Clojure}}==
<lang 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)
(doseq [[suit pip] deck]
(println (format "%s of %ss"
(if (keyword? pip) (name pip) pip)
</lang>
▲(defn new-deck []
=={{Header|CoffeeScript}}==
|