coffeemancy · September 25, 2014 03:23 · Sep 25, 2014
diff --git a/gistfile1.clj b/gistfile1.clj
@@ -0,0 +1,9 @@
+(defn collapse-row [row]                                     
+  (filterv (complement nil?)                                 
+           (reduce (fn [acc elm]                             
+                     (let [n (peek acc)]                     
+                       (if (= n elm)                         
+                         (conj (pop acc) (* n 2) nil)        
+                         (conj acc elm))))                   
+                  [nil]                                      
+                  row)))
No results found