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.
38 lines
1.1 KiB
Racket
38 lines
1.1 KiB
Racket
8 years ago
|
#lang br/quicklang
|
||
|
8 years ago
|
|
||
|
|
(define (read-syntax path port)
|
||
|
|
(define moveset-strs (string-split (port->string port)))
|
||
|
|
(define moveset-datums
|
||
|
|
(for*/list ([msstr (in-list moveset-strs)])
|
||
|
|
`(moveset ,@(regexp-match* #rx"." msstr))))
|
||
|
|
(strip-bindings
|
||
|
8 years ago
|
#`(module day01-mod "lang-b.rkt"
|
||
|
8 years ago
|
#,@moveset-datums)))
|
||
|
8 years ago
|
(provide read-syntax)
|
||
|
8 years ago
|
|
||
|
|
(define-macro moveset #'list)
|
||
|
|
(provide moveset)
|
||
|
|
|
||
|
|
(define-macro (mb . MOVESETS)
|
||
|
|
#'(#%module-begin
|
||
|
|
(void (solve (list . MOVESETS)))))
|
||
|
|
(provide (rename-out [mb #%module-begin]))
|
||
|
|
|
||
|
|
(define (do-moveset button moveset)
|
||
|
|
(for/fold ([button button])
|
||
|
|
([move (in-list moveset)])
|
||
|
|
(vector-ref
|
||
|
|
(case move
|
||
|
|
[("U") '#(1 2 1 4 5 2 3 4 9 6 7 8 #xb)]
|
||
|
|
[("L") '#(1 2 2 3 5 5 6 7 8 #xa #xa #xb #xd)]
|
||
|
|
[("R") '#(1 3 4 4 6 7 8 9 9 #xb #xc #xc #xd)]
|
||
|
|
[("D") '#(3 6 7 8 5 #xa #xb #xc 9 #xa #xd #xc #xd)])
|
||
|
|
(sub1 button))))
|
||
|
|
|
||
|
|
(define starting-button 5)
|
||
|
|
(define (solve mss)
|
||
|
|
(for/fold ([button starting-button])
|
||
|
|
([ms (in-list mss)])
|
||
|
|
(define result (do-moveset button ms))
|
||
|
|
(display (string-upcase (number->string result 16)))
|
||
|
|
result))
|