comparison 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
comparison
equal deleted inserted replaced
268:82ee2704c973 269:d68a191997ca
312 (scroll-text 3) 312 (scroll-text 3)
313 (do-nothing 197) 313 (do-nothing 197)
314 (play-moves [[:a] []]) 314 (play-moves [[:a] []])
315 (walk [↓ ↓ → ↓])))) 315 (walk [↓ ↓ → ↓]))))
316 316
317 317 (defn-memo viridian-store->oaks-lab
318 ([] (viridian-store->oaks-lab
319 (get-oaks-parcel)))
320 ([script]
321 (->> script
322 (walk [↓ ↓ ↓ ↓ ↓ ↓ ↓ ↓ ↓ ↓
323 ← ← ← ← ← ← ← ← ← ←
324 ↓ ↓ ↓ ↓ ↓ ↓ ↓ ↓
325 ← ←
326 ↓ ↓ ↓ ↓ ↓ ↓ ↓ ↓
327 ↓ ↓ ↓ ↓ ↓ ↓ ↓
328 → → → → → → → →
329 ↓ ↓ ↓ ↓
330 ← ← ← ← ←
331 ↓ ↓ ↓ ↓])
332
333 (walk-thru-grass
334 [↓ ↓ ↓ ↓ ↓ ↓ ↓])
335
336 (walk [↓ ↓ ← ↓ ↓ ↓ ←
337 ↓ ↓ ↓ ↓ ↓
338 → → → ↑]))))
339
340 (defn-memo viridian-store->oaks-lab-like-a-boss
341 ([] (viridian-store->oaks-lab-like-a-boss
342 (get-oaks-parcel)))
343 ([script]
344 (->> script
345 (walk [↓ ↓ ↓ ↓ ↓ ↓ ↓ ↓ ↓ ↓
346 ← ← ← ← ← ← ← ← ← ←
347 ↓ ↓ ↓ ↓ ↓ ↓ ↓ ↓ ↓])
348
349 (walk-thru-grass
350 [↓ ↓ ↓ ↓ ↓])
351
352 (walk
353 [↓ ↓ ← ↓
354 ↓ ↓ ↓ ↓ ↓ ↓ ↓ ↓
355 → →])
356
357 (walk-thru-grass
358 [→ ↓ ↓ ↓])
359
360 (walk [↓ ← ← ↓ ↓ ↓ ↓ ↓ ↓])
361
362 (walk-thru-grass
363 [↓ ↓ ↓ ↓ ↓ ↓ ↓])
364
365 (walk [↓ ↓ ← ↓ ↓ ↓ ←
366 ↓ ↓ ↓ ↓ ↓
367 → → → ↑]))))
368