diff clojure/com/aurellem/run/bootstrap_0.clj @ 269:d68a191997ca

script: made it to oak's lab from viridian mart.
author Robert McIntyre <rlm@mit.edu>
date Mon, 26 Mar 2012 23:34:53 -0500
parents c85549460218
children 49096b8b99d5
line wrap: on
line diff
     1.1 --- a/clojure/com/aurellem/run/bootstrap_0.clj	Mon Mar 26 23:25:18 2012 -0500
     1.2 +++ b/clojure/com/aurellem/run/bootstrap_0.clj	Mon Mar 26 23:34:53 2012 -0500
     1.3 @@ -314,4 +314,55 @@
     1.4            (play-moves [[:a] []])
     1.5            (walk [↓ ↓ → ↓]))))
     1.6  
     1.7 +(defn-memo viridian-store->oaks-lab
     1.8 +  ([] (viridian-store->oaks-lab
     1.9 +       (get-oaks-parcel)))
    1.10 +  ([script]
    1.11 +     (->> script
    1.12 +          (walk [↓ ↓ ↓ ↓ ↓ ↓ ↓ ↓ ↓ ↓
    1.13 +                 ← ← ← ← ← ← ← ← ← ← 
    1.14 +                 ↓ ↓ ↓ ↓ ↓ ↓ ↓ ↓
    1.15 +                 ← ←
    1.16 +                 ↓ ↓ ↓ ↓ ↓ ↓ ↓ ↓
    1.17 +                 ↓ ↓ ↓ ↓ ↓ ↓ ↓
    1.18 +                 → → → → → → → →
    1.19 +                 ↓ ↓ ↓ ↓
    1.20 +                 ← ← ← ← ←
    1.21 +                 ↓ ↓ ↓ ↓])
    1.22  
    1.23 +          (walk-thru-grass
    1.24 +           [↓ ↓ ↓ ↓ ↓ ↓ ↓])
    1.25 +
    1.26 +          (walk [↓ ↓ ← ↓ ↓ ↓ ←
    1.27 +                 ↓ ↓ ↓ ↓ ↓
    1.28 +                 → → → ↑]))))
    1.29 +                 
    1.30 +(defn-memo viridian-store->oaks-lab-like-a-boss
    1.31 +  ([] (viridian-store->oaks-lab-like-a-boss
    1.32 +       (get-oaks-parcel)))
    1.33 +  ([script]
    1.34 +     (->> script
    1.35 +          (walk [↓ ↓ ↓ ↓ ↓ ↓ ↓ ↓ ↓ ↓
    1.36 +                 ← ← ← ← ← ← ← ← ← ← 
    1.37 +                 ↓ ↓ ↓ ↓ ↓ ↓ ↓ ↓ ↓])
    1.38 +
    1.39 +          (walk-thru-grass
    1.40 +           [↓ ↓ ↓ ↓ ↓])
    1.41 +
    1.42 +          (walk
    1.43 +           [↓ ↓ ← ↓
    1.44 +            ↓ ↓ ↓ ↓ ↓ ↓ ↓ ↓
    1.45 +            → →])
    1.46 +
    1.47 +          (walk-thru-grass
    1.48 +           [→ ↓ ↓ ↓])
    1.49 +
    1.50 +          (walk [↓ ← ← ↓ ↓ ↓ ↓ ↓ ↓])
    1.51 +          
    1.52 +          (walk-thru-grass
    1.53 +           [↓ ↓ ↓ ↓ ↓ ↓ ↓])
    1.54 +          
    1.55 +          (walk [↓ ↓ ← ↓ ↓ ↓ ←
    1.56 +                 ↓ ↓ ↓ ↓ ↓
    1.57 +                 → → → ↑]))))
    1.58 +          
    1.59 \ No newline at end of file