You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
49 lines
1.5 KiB
Racket
49 lines
1.5 KiB
Racket
8 years ago
|
#lang br/quicklang ;; http://adventofcode.com/2016/day/25
|
||
|
|
(provide read-syntax
|
||
|
|
(rename-out [mb #%module-begin])
|
||
|
|
cpy inc dec jnz out)
|
||
|
|
|
||
|
|
(define (read-syntax path port)
|
||
|
|
(strip-bindings
|
||
|
|
#`(module mod "lang.rkt"
|
||
|
|
#,@(for/list ([str (in-lines port)]
|
||
|
|
#:when (not (zero? (string-length str))))
|
||
|
|
(format-datum '(~a) str)))))
|
||
|
|
|
||
|
|
(define-macro (mb . INSTS)
|
||
|
|
#'(#%module-begin
|
||
|
|
(define insts (vector . INSTS))
|
||
|
|
(define regs (make-hash '((a . 0)(b . 0)(c . 0)(d . 0))))
|
||
|
|
(for*/first ([i (in-naturals)]
|
||
|
|
#:when
|
||
|
|
(begin
|
||
|
|
(hash-set! regs 'a i)
|
||
|
|
(regexp-match "010101010101" (with-output-to-string (λ () (solve insts regs 50000))))))
|
||
|
|
i)))
|
||
|
|
|
||
|
|
(define (solve insts regs max-count)
|
||
|
|
(let loop ([ptr 0][count 0])
|
||
|
|
(if (or (>= ptr (vector-length insts)) (> count max-count))
|
||
|
|
regs
|
||
|
|
(loop (+ ptr (let ([move ((vector-ref insts ptr) regs)])
|
||
|
|
(if (void? move) 1 move)))
|
||
|
|
(add1 count)))))
|
||
|
|
|
||
|
|
(define-macro (cpy X Y)
|
||
|
|
#'(λ(regs)
|
||
|
|
(define val (if (number? 'X) 'X (hash-ref regs 'X)))
|
||
|
|
(hash-set! regs 'Y val)))
|
||
|
|
|
||
|
|
(define-macro (inc X) #'(λ(regs) (hash-update! regs 'X add1)))
|
||
|
|
|
||
|
|
(define-macro (dec X) #'(λ(regs) (hash-update! regs 'X sub1)))
|
||
|
|
|
||
|
|
(define-macro (jnz X Y)
|
||
|
|
#'(λ(regs)
|
||
|
|
(when (not (zero? (if (number? 'X) 'X (hash-ref regs 'X))))
|
||
|
|
Y)))
|
||
|
|
|
||
|
|
(define-macro (out X)
|
||
|
|
#'(λ(regs)
|
||
|
|
(print (hash-ref regs 'X))))
|