roulette!

gistfile1.clj

(ns roulette.core)

(defn spin []
  (int (rand 38)))

(def *bankroll* (atom 1000))

(defn dobet
  [bets]
  (let [winner (spin)]
    (doseq [[num bet] bets]
      (if (= num winner)
        (swap! *bankroll* + (* 36 bet))
        (swap! *bankroll* - bet)))
    winner))

;; (for [i (range 50)] (dobet {21 25 4 5 7 5 11 5 35 5 5 100}))