From 86ff9c26d0413fcc81d93de1687c520d64451463 Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Fri, 16 Dec 2016 10:44:21 -0800 Subject: [PATCH] touchup --- 2016/day15/lang.rkt | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/2016/day15/lang.rkt b/2016/day15/lang.rkt index 7ef3de0..c5fcbf6 100644 --- a/2016/day15/lang.rkt +++ b/2016/day15/lang.rkt @@ -1,5 +1,4 @@ #lang br/quicklang ;; http://adventofcode.com/2016/day/15 -(require openssl/md5) (provide read-syntax (rename-out [mb #%module-begin])) @@ -14,11 +13,11 @@ (solve . DISCS))) (define-macro (solve . DISCS) - (with-pattern ([(DISC# ...) (generate-temporaries #'DISCS)] + (with-pattern ([(DISC-ID ...) (generate-temporaries #'DISCS)] [(DISC-SLOTS ...) #'DISCS]) - #'(for/first ([DISC# (in-cycle DISC-SLOTS)] ... + #'(for/first ([DISC-ID (in-cycle DISC-SLOTS)] ... [i (in-naturals)] - #:when (= 0 DISC# ...)) + #:when (= 0 DISC-ID ...)) i))) (require sugar/list)