Mercurial > vba-clojure

comparison clojure/com/aurellem/run/bootstrap_0.clj @ 279:aa9b8d9d5b76

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
script: save corruption
author Robert McIntyre <rlm@mit.edu>
date Tue, 27 Mar 2012 13:33:44 -0500
parents 7ecea582ec9d
children d5e5c73af7e6
comparison
equal deleted inserted replaced
278:7ecea582ec9d 279:aa9b8d9d5b76
544 (buy-items 544 (buy-items
545 [[0 1] 545 [[0 1]
546 [1 1] 546 [1 1]
547 [2 1] 547 [2 1]
548 [3 1] 548 [3 1]
549 [4 1] 549 [4 1]])
550 ])))) 550 (do-nothing 100)
551 551 (play-moves [[:b]])
552 552 (do-nothing 100)
553 (play-moves [[:b]])
554 (do-nothing 100)
555 (play-moves [[:b] []]))))
556
557
558 (defn do-save-corruption
559 ([] (do-save-corruption
560 (buy-initial-items)))
561 ([script]
562 (->> script
563 (do-nothing 100)
553 564
554 565 (play-moves
566 [[:start]])
567 (do-nothing 500)
568 (play-moves [[:d]])
569 (do-nothing 100)
570
571 (play-moves
572 [[] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
573 [][] [] [] [] [] [] [] [] [] [] [] [] [] []
574 [] [] [] [] [] [] [] [] [] [:d] [] [] [] [:d] [] [] [] [:d]
575 [] [] [:a] [:b] [:b] [:b] [:b] [:b] [:b] [:b] [:b] [:b]
576 [:b] [:b] [:b] [:b] [:b] [:b] [:b] [:b] [:b] [:b] [:b] [:b]
577 [:b] [:b] [:b] [:b] [:b] [:b] [:b] [:b] [:b] [:b] [:b] [:b]
578 [:b] [:b] [:b] [:b] [:b] [:b] [:b] [:b] [:b] [:b] [:b] [:b]
579 [:b] [:b] [:b] [:b] [:b] [:b] [:b] [:b] [:b] [:b] [:b] [:b]
580 [:b] [:b] [:b] [:b] [:b] [:b] [:b] [:b] [:b] [:b] [:b] [:b]
581 [:b] [:b] [:b] [:b] [:b] [:b] [:b] [:b] [:b] [:b] [:b] [:b]
582 [:a :b] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
583 [] [] [] [] [] [] [] [] [] [] [] [] [] [:select] [:restart]
584 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
585 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
586 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
587 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
588 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
589 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
590 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
591 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
592 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
593 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
594 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
595 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
596 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
597 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
598 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
599 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
600 [] [:a] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
601 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
602 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
603 [] [] [] [:start] [] [] [] [] [] [] [] [] [] [] [] [] [] []
604 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
605 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
606 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
607 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
608 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
609 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
610 [] [] [] [] [] [] [] [] [] [] [] [] [:a] [] [] [] [] [] []
611 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
612 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
613 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
614 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
615 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
616 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
617 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
618 [:start] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
619 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
620 [] [] [] [] [] [] [] [] [] [] [] [] [] [:start] [:a] [:a]
621 [:a] [:a] [:a] [:a] [:a] [:a] [:a] [:a] [:a] [:a] [:a] [:a]
622 [:a] [:a] [:a] [:a] [:a] [:a] [:a] [:a] [:a] [:a] [:a] [:a]
623 [:a] [:a] [:a] [:a] [:a] [:a] [:a] [:a] [:a] [:a] [:a] [:a]
624 [:a] [:a] [:a] [:a] [:a] [:a] [:a] [:a] [:a] [:a] [:a] [:a]
625 [:a] [:a :start] []]))))