Oops, missed the "unfindable" condition of board3

DropCoins/src/DropCoins/core.clj

@@ -51,29 +51,21 @@
                       down (delay (get-minimum-spin down-board result newlevel))]
                   (alter queue conj left right up down)
                   (- -1 level))
-
-          )
-         )
-
-
-        )
-      )
-  )
+          )))))
 
 (defn get-minimum [board result]
   (dosync (ref-set states #{})
           (ref-set queue [(delay (get-minimum-spin board result 0))])
           )
   (loop [item (first @queue)
          result (force item)]
-    ;(print result)
-    (if (> result -1) result
-        (do 
-          (dosync (ref-set queue (vec (rest @queue))))
-          (recur (first @queue) (force item)))
-        ))
-
-  )
+    (cond
+     (nil? item) -1
+     (> result -1) result
+     :else (do 
+       (dosync (ref-set queue (vec (rest @queue))))
+       (recur (first @queue) (force item)))
+     )))
 
 (def board1 [ ".o.."
               ,"oooo"