mbutterick
/
aoc-racket
Archived
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

small edits

Browse Source
2016
Matthew Butterick 8 years ago
parent 107965d5ee
commit 05eed96174
2 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File

10
2016/day15/lang.rkt
Unescape Escape View File

@ -16,12 +16,12 @@
(define-macro (solve . DISCS) (define-macro (solve . DISCS)
(with-pattern ([(DISC# ...) (generate-temporaries #'DISCS)] (with-pattern ([(DISC# ...) (generate-temporaries #'DISCS)]
[(DISC-SLOTS ...) #'DISCS]) [(DISC-SLOTS ...) #'DISCS])
#'(for/or ([DISC# (in-cycle DISC-SLOTS)] ... #'(for/first ([DISC# (in-cycle DISC-SLOTS)] ...
[i (in-naturals)] [i (in-naturals)]
#:when (= DISC# ...)) #:when (= 0 DISC# ...))
i))) i)))
(require sugar/list) (require sugar/list)
(define-macro (disc TIME-OFFSET SIZE _ START) (define-macro (disc TIME-OFFSET SIZE _ START)
#'(shift (range SIZE) (modulo (- (+ START TIME-OFFSET)) SIZE) #f #t)) #'(shift-left-cycle (range SIZE) (+ START TIME-OFFSET)))
(provide disc) (provide disc)

2
info.rkt
Unescape Escape View File

@ -1,6 +1,6 @@
#lang info #lang info
(define collection "aoc-racket") (define collection "aoc-racket")
(define scribblings '(("aoc-racket.scrbl" (multi-page)))) (define scribblings '(("aoc-racket.scrbl" (multi-page))))
(define deps '("base" "scribble-lib" "sugar" "rackunit-lib" "math-lib" "beautiful-racket-lib")) (define deps '("base" "scribble-lib" ("sugar" #:version "0.3") "rackunit-lib" "math-lib" "beautiful-racket-lib"))
(define test-omit-paths (list #rx"rkt$")) (define test-omit-paths (list #rx"rkt$"))
(define build-deps '("rackunit-lib" "racket-doc" "scribble-doc" "rackunit-doc" "at-exp-lib" "math-doc")) (define build-deps '("rackunit-lib" "racket-doc" "scribble-doc" "rackunit-doc" "at-exp-lib" "math-doc"))