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

small edits

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

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

@ -16,12 +16,12 @@
(define-macro (solve . DISCS)
(with-pattern ([(DISC# ...) (generate-temporaries #'DISCS)]
[(DISC-SLOTS ...) #'DISCS])
#'(for/or ([DISC# (in-cycle DISC-SLOTS)] ...
#'(for/first ([DISC# (in-cycle DISC-SLOTS)] ...
[i (in-naturals)]
#:when (= DISC# ...))
#:when (= 0 DISC# ...))
i)))
(require sugar/list)
(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)

2
info.rkt
Unescape Escape View File

@ -1,6 +1,6 @@
#lang info
(define collection "aoc-racket")
(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 build-deps '("rackunit-lib" "racket-doc" "scribble-doc" "rackunit-doc" "at-exp-lib" "math-doc"))