Mercurial > vba-clojure

comparison clojure/com/aurellem/run/bootstrap_1.clj @ 596:747d47d96d2f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
determined that I cannot shorten the long B sequeuce during bootstrap.
author Robert McIntyre <rlm@mit.edu>
date Sun, 02 Sep 2012 06:36:57 -0500
parents 96ee9d72aeb9
children 0e30fd920e6a
comparison
equal deleted inserted replaced
595:96ee9d72aeb9 596:747d47d96d2f
798 0xD162 (+ 0xD162 (count pattern))) 798 0xD162 (+ 0xD162 (count pattern)))
799 (= (subvec (vec (memory (second pattern-insertion))) 799 (= (subvec (vec (memory (second pattern-insertion)))
800 0xD162 (+ 0xD162 (count pattern))) 800 0xD162 (+ 0xD162 (count pattern)))
801 pattern)))) 801 pattern))))
802 802
803 (defn-memo launch-main-bootstrap-program 803
804 (defn item-writer-test-script []
805 [[]
806 (-> (second (control-checkpoint))
807 (set-memory-range
808 (inc pc-item-list-start)
809 (pc-item-writer-program)))])
810
811
812 (defn launch-main-bootstrap-program
804 ([] (launch-main-bootstrap-program 813 ([] (launch-main-bootstrap-program
805 ;;(control-checkpoint) 814 ;;(control-checkpoint)
806 (launch-bootstrap-program) 815 ;;(launch-bootstrap-program)
816 (item-writer-test-script)
807 )) 817 ))
808 ([script] 818 ([script]
809 (->> script 819 (->> script
810 (play-moves 820 (play-moves
811 (bootstrap-pattern (main-bootstrap-program))) 821 (bootstrap-pattern (main-bootstrap-program)))
812 (play-moves 822 ;; I'd like to just press b here, but I can't
813 (take 253 (interleave (repeat 1000 [:b]) 823 ;; because the smallest item with item id >= 75 is
814 (repeat 1000 []))))))) 824 ;; TM01, which has value 201.
825 ;; (* 2 (- 201 75)) == 252, which plus 1 is 253 here :(
826 ;;(play-moves [[:b]])
827 (take 253 (interleave (repeat 1000 [:b])
828 (repeat 1000 []))))))
829
815 (def bootstrap-start pokemon-list-start) 830 (def bootstrap-start pokemon-list-start)
816 831
817 (defn test-main-bootstrap-integrety 832 (defn test-main-bootstrap-integrety
818 [] 833 []
819 (assert 834 (assert