Mercurial > vba-clojure
comparison clojure/com/aurellem/run/bootstrap_1.clj @ 352:82e3ba144773
wrote skeleton for celadon purchase spree.
author | Robert McIntyre <rlm@mit.edu> |
---|---|
date | Sun, 08 Apr 2012 21:21:39 -0500 |
parents | a6a123af22f6 |
children | a9e7507379e9 |
comparison
equal
deleted
inserted
replaced
351:a6a123af22f6 | 352:82e3ba144773 |
---|---|
354 ;; Roof | 354 ;; Roof |
355 ;;===================================== | 355 ;;===================================== |
356 ;; Fresh Water TM13 (ice-beam) | 356 ;; Fresh Water TM13 (ice-beam) |
357 ;; Soda Pop TM48 (rock-slide) | 357 ;; Soda Pop TM48 (rock-slide) |
358 ;; Lemonade :) TM49 (tri-attack) | 358 ;; Lemonade :) TM49 (tri-attack) |
359 | |
360 | |
361 (defn go-to-floor-two | |
362 ([] (go-to-floor-two (to-celadon))) | |
363 ([script] | |
364 (->> script | |
365 (walk [↑ → → → → → → → → → → → | |
366 ↑ ↑ ↑ ↑ ↑ ↑ | |
367 ← ← ← ← | |
368 ↓ ↓ ↓ | |
369 ← ←]) | |
370 (first-difference [] ↑ AF)))) | |
371 | |
372 (defn get-money-floor-two | |
373 []) | |
374 | |
375 (defn floor-two-TMs | |
376 []) | |
377 | |
378 (defn floor-two-items | |
379 []) | |
380 | |
381 (defn go-to-floor-three | |
382 []) | |
383 | |
384 (defn get-TM18 | |
385 []) | |
386 | |
387 (defn go-to-floor-four | |
388 []) | |
389 | |
390 (defn floor-four-items | |
391 []) | |
392 | |
393 (defn go-to-floor-five | |
394 []) | |
395 | |
396 (defn floor-five-items | |
397 []) | |
398 | |
399 (defn go-to-roof | |
400 []) | |
401 | |
402 (defn roof-drinks | |
403 []) | |
404 | |
405 (defn get-TM13 | |
406 []) | |
407 | |
408 |