Mercurial > vba-clojure

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

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
saving progress before debugging.
author Robert McIntyre <rlm@mit.edu>
date Sat, 14 Apr 2012 04:09:51 -0500
parents 0162dd315814
children 21b8b3350b20
comparison
equal deleted inserted replaced
414:0162dd315814 415:f2f1e0b8c1c7
481 moves (map (comp buttons (partial - 15)) nybbles) 481 moves (map (comp buttons (partial - 15)) nybbles)
482 header (map buttons 482 header (map buttons
483 (concat (repeat 483 (concat (repeat
484 50 484 50
485 (- 15 (first nybbles))) 485 (- 15 (first nybbles)))
486 [(first nybbles)])) 486 [(first nybbles)]))]
487 tail (map buttons
488 (take
489 (- 201 (count moves))
490 (interleave (repeat 100 (last nybbles))
491 (repeat 1000 (- 15 (last nybbles))))))]
492 (assert (no-consecutive-repeats? nybbles)) 487 (assert (no-consecutive-repeats? nybbles))
493 (concat header moves tail))) 488 (concat header moves)))
494 489
495 ;;;;;; TESTS ;;;;;; 490 ;;;;;; TESTS ;;;;;;
496 491
497 (def set-H-mode 0x67) 492 (def set-H-mode 0x67)
498 (def set-L-mode 0x6F) 493 (def set-L-mode 0x6F)