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.
This repo is archived. You can view files and clone it, but cannot push or open issues/pull-requests.
aoc-racket/2016/day02/lang.rkt

38 lines
1.0 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.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 3 1 2 3 4 5 6)]
[("L") '#(1 1 2 4 4 5 7 7 8)]
[("R") '#(2 3 3 5 6 6 8 9 9)]
[("D") '#(4 5 6 7 8 9 7 8 9)])
(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))