diff clojure/com/aurellem/run/bootstrap_1.clj @ 593:daa3497bbe12

increased speed to travel to floor two of celadon dept. store.
author Robert McIntyre <rlm@mit.edu>
date Sat, 01 Sep 2012 12:38:26 -0500
parents cd557c922cec
children ea448eecb615
line wrap: on
line diff
     1.1 --- a/clojure/com/aurellem/run/bootstrap_1.clj	Sat Sep 01 11:59:05 2012 -0500
     1.2 +++ b/clojure/com/aurellem/run/bootstrap_1.clj	Sat Sep 01 12:38:26 2012 -0500
     1.3 @@ -150,7 +150,7 @@
     1.4    (map second (filter (comp (partial = 0) first)
     1.5                        (partition 2 (pc-item-writer-program)))))
     1.6  
     1.7 -(defn-memo bootstrap-corrupt-save
     1.8 +(defn bootstrap-corrupt-save
     1.9    ([] (bootstrap-corrupt-save (to-room-pc)))
    1.10    ([script]
    1.11     (->> script
    1.12 @@ -275,8 +275,10 @@
    1.13    ([] (go-to-floor-two (to-celadon)))
    1.14    ([script]
    1.15       (->> script
    1.16 -          (walk [↑ → → → → → → → → → → →
    1.17 -                 ↑ ↑ ↑ ↑ ↑ ↑
    1.18 +          (walk [→ → ↑
    1.19 +                 ↑ ↑ ↑ ↑
    1.20 +                 ← ← ← ←
    1.21 +                 ↑ ↑ 
    1.22                   ← ← ← ← 
    1.23                   ↓ ↓ ↓
    1.24                   ← ←])