Mercurial > rlm
view src/rlm/play.clj @ 9:1065e7d615a4 tip
deactivate some cruft.
author | Robert McIntyre <rlm@mit.edu> |
---|---|
date | Mon, 08 Jul 2013 12:51:12 -0400 |
parents | 78a630e650d2 |
children |
line wrap: on
line source
1 (ns rlm.play)3 (defn play4 ([] (play 10))5 ([n]6 (loop [i 07 state false8 turned-on (vec (repeat n false))9 turned-off 0]10 (if (== turned-off (dec n))11 i12 (let [p (rand-int n)13 i (inc i)]14 (if (not= p 0)15 (if (and (not state) (not (turned-on p)))16 (recur i true (assoc turned-on p true) turned-off)17 (recur i state turned-on turned-off))18 (if state19 (recur i false turned-on (inc turned-off))20 (recur i state turned-on turned-off))))))))