Mercurial > vba-clojure

comparison clojure/com/aurellem/run/bootstrap_1.clj @ 602:0e30fd920e6a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
fix silly glitch.
author Robert McIntyre <rlm@mit.edu>
date Sun, 02 Sep 2012 09:28:08 -0500
parents 747d47d96d2f
children b3e5006e23f0
comparison
equal deleted inserted replaced
601:bc2858781507 602:0e30fd920e6a
822 ;; I'd like to just press b here, but I can't 822 ;; I'd like to just press b here, but I can't
823 ;; because the smallest item with item id >= 75 is 823 ;; because the smallest item with item id >= 75 is
824 ;; TM01, which has value 201. 824 ;; TM01, which has value 201.
825 ;; (* 2 (- 201 75)) == 252, which plus 1 is 253 here :( 825 ;; (* 2 (- 201 75)) == 252, which plus 1 is 253 here :(
826 ;;(play-moves [[:b]]) 826 ;;(play-moves [[:b]])
827 (take 253 (interleave (repeat 1000 [:b]) 827 (play-moves
828 (repeat 1000 [])))))) 828 (take 253 (interleave (repeat 1000 [:b])
829 (repeat 1000 [])))))))
829 830
830 (def bootstrap-start pokemon-list-start) 831 (def bootstrap-start pokemon-list-start)
831 832
832 (defn test-main-bootstrap-integrety 833 (defn test-main-bootstrap-integrety
833 [] 834 []