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