Data commit

Task/Playing-cards/Clojure/playing-cards.clj

@@ -0,0 +1,12 @@
+(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)))))