small edits

2016/day15/lang.rkt

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

info.rkt

@@ -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"))