Mercurial > vba-clojure
changeset 287:7918c0dcc0bd
merge
author | Robert McIntyre <rlm@mit.edu> |
---|---|
date | Wed, 28 Mar 2012 06:06:13 -0500 (2012-03-28) |
parents | 0e31aff20d5f (diff) 33c546273619 (current diff) |
children | eec3e69500d9 |
files | |
diffstat | 1 files changed, 10 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
1.1 --- a/clojure/com/aurellem/gb/pokedex.clj Wed Mar 28 05:56:37 2012 -0500 1.2 +++ b/clojure/com/aurellem/gb/pokedex.clj Wed Mar 28 06:06:13 2012 -0500 1.3 @@ -90,3 +90,13 @@ 1.4 (set-pokedex-captured n true))) 1.5 state (range 1 152))) 1.6 ([] (give-full-pokedex @current-state))) 1.7 + 1.8 +(defn give-empty-pokedex 1.9 + ([^SaveState state] 1.10 + (reduce 1.11 + (fn [state n] 1.12 + (-> state 1.13 + (set-pokedex-seen n false) 1.14 + (set-pokedex-captured n false))) 1.15 + state (range 1 152))) 1.16 + ([] (give-empty-pokedex @current-state)))