vba-clojure: clojure/com/aurellem/run/bootstrap

script: made it to oak's lab from viridian mart.

comparison

equal deleted inserted replaced

-:82ee2704c973
+:d68a191997ca
 (scroll-text 3)
 (do-nothing 197)
 (play-moves [[:a] []])
 (walk [↓ ↓ → ↓]))))
+(defn-memo viridian-store->oaks-lab
+([] (viridian-store->oaks-lab
+(get-oaks-parcel)))
+([script]
+(->> script
+(walk [↓ ↓ ↓ ↓ ↓ ↓ ↓ ↓ ↓ ↓
+← ← ← ← ← ← ← ← ← ←
+↓ ↓ ↓ ↓ ↓ ↓ ↓ ↓
+← ←
+↓ ↓ ↓ ↓ ↓ ↓ ↓ ↓
+↓ ↓ ↓ ↓ ↓ ↓ ↓
+→ → → → → → → →
+↓ ↓ ↓ ↓
+← ← ← ← ←
+↓ ↓ ↓ ↓])
+(walk-thru-grass
+[↓ ↓ ↓ ↓ ↓ ↓ ↓])
+(walk [↓ ↓ ← ↓ ↓ ↓ ←
+↓ ↓ ↓ ↓ ↓
+→ → → ↑]))))
+(defn-memo viridian-store->oaks-lab-like-a-boss
+([] (viridian-store->oaks-lab-like-a-boss
+(get-oaks-parcel)))
+([script]
+(->> script
+(walk [↓ ↓ ↓ ↓ ↓ ↓ ↓ ↓ ↓ ↓
+← ← ← ← ← ← ← ← ← ←
+↓ ↓ ↓ ↓ ↓ ↓ ↓ ↓ ↓])
+(walk-thru-grass
+[↓ ↓ ↓ ↓ ↓])
+(walk
+[↓ ↓ ← ↓
+↓ ↓ ↓ ↓ ↓ ↓ ↓ ↓
+→ →])
+(walk-thru-grass
+[→ ↓ ↓ ↓])
+(walk [↓ ← ← ↓ ↓ ↓ ↓ ↓ ↓])
+(walk-thru-grass
+[↓ ↓ ↓ ↓ ↓ ↓ ↓])
+(walk [↓ ↓ ← ↓ ↓ ↓ ←
+↓ ↓ ↓ ↓ ↓
+→ → → ↑]))))

Mercurial > vba-clojure