moved win condition to separate file, more refactorings in preparatio…

…n for bots
bitsai · Sep 17, 2010 · e59df23 · e59df23
1 parent d491ba4
commit e59df23
Showing 1 changed file with 8 additions and 0 deletions.
diff --git a/win_fns.clj b/win_fns.clj
@@ -0,0 +1,8 @@
+(ns win-fns)
+
+(defn ffa-win-fn [cycles]
+  (let [live-cycles (filter #(not (nil? %)) cycles)]
+    (case (count live-cycles)
+	  1 (str (:name (first live-cycles)) " wins!")
+	  0 "Tie!"
+	  nil)))