cond to condp

yuanmai · Mar 3, 2012 · ceece93 · ceece93
1 parent 43322da
commit ceece93
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/src/kata/bowling.clj b/src/kata/bowling.clj
@@ -2,8 +2,8 @@
 
 (defn frames [rolls]
   (take
-   (cond
-     (= 10 (apply + (take 1 rolls))) 3
-     (= 10 (apply + (take 2 rolls))) 3
-     :else 2)
+   (condp #(= 10 (apply + (take %1 %2))) rolls
+     1 3
+     2 3
+     2)
    rolls))