Permalink
Switch branches/tags
Nothing to show
Find file
Fetching contributors…
Cannot retrieve contributors at this time
8 lines (6 sloc) 128 Bytes
(ns win-fns)
(defn ffa-win-fn [cycles]
(case (count cycles)
1 (str (:name (first cycles)) " wins!")
0 "Tie!"
nil))