diff clojure/com/aurellem/gb/rlm_assembly.clj @ 415:f2f1e0b8c1c7

saving progress before debugging.
author Robert McIntyre <rlm@mit.edu>
date Sat, 14 Apr 2012 04:09:51 -0500
parents 0162dd315814
children 21b8b3350b20
line wrap: on
line diff
     1.1 --- a/clojure/com/aurellem/gb/rlm_assembly.clj	Sat Apr 14 03:22:10 2012 -0500
     1.2 +++ b/clojure/com/aurellem/gb/rlm_assembly.clj	Sat Apr 14 04:09:51 2012 -0500
     1.3 @@ -483,14 +483,9 @@
     1.4                      (concat (repeat
     1.5                               50
     1.6                               (- 15 (first nybbles)))
     1.7 -                            [(first nybbles)]))
     1.8 -        tail (map buttons
     1.9 -                  (take
    1.10 -                   (- 201 (count moves))
    1.11 -                   (interleave (repeat 100 (last nybbles))
    1.12 -                               (repeat 1000 (- 15 (last nybbles))))))]
    1.13 +                            [(first nybbles)]))]
    1.14      (assert (no-consecutive-repeats? nybbles))
    1.15 -    (concat header moves tail)))
    1.16 +    (concat header moves)))
    1.17      
    1.18  ;;;;;; TESTS ;;;;;;
    1.19