diff --git a/2016/day22/test.rkt b/2016/day22/test.rkt index f152049..c6f75c9 100644 --- a/2016/day22/test.rkt +++ b/2016/day22/test.rkt @@ -1 +1,3 @@ -#lang reader "lang.rkt" \ No newline at end of file +#lang reader "lang.rkt" +root@ebhq-gridcenter# df -h +Filesystem Size Used Avail Use% \ No newline at end of file diff --git a/2016/day23/info.rkt b/2016/day23/info.rkt new file mode 100644 index 0000000..6e436a7 --- /dev/null +++ b/2016/day23/info.rkt @@ -0,0 +1,2 @@ +#lang info +(define compile-omit-paths 'all) \ No newline at end of file diff --git a/2017/aoc-lang.rkt b/2017/aoc-lang.rkt index 28b28d6..7983d83 100644 --- a/2017/aoc-lang.rkt +++ b/2017/aoc-lang.rkt @@ -20,13 +20,17 @@ (syntax/loc (car datums) (module puzzle-lang THIS-FILE . DATUMS))))) +(define (blank? line) (regexp-match #px"^\\s*$" line)) + (define-macro (my-mb . ARGS) (with-pattern ([MOD-PATH (syntax-source caller-stx)]) #'(#%module-begin (provide read-syntax) (define (read-syntax path port) (strip-context #`(module mod MOD-PATH - #,@(for/list ([line (in-lines port)]) + #,@(for/list ([line (in-lines port)] + #:unless (blank? line)) (for/list ([datums (in-port read (open-input-string (string-replace line "," "")))]) + datums))))) . ARGS))) diff --git a/2017/d1/test2.rkt b/2017/d1/test2.rkt index 92037de..07cb44a 100644 --- a/2017/d1/test2.rkt +++ b/2017/d1/test2.rkt @@ -1,7 +1,6 @@ #lang reader "main.rkt" ★★ - 1212 -1221 +1221 123425 123123 12131415 \ No newline at end of file diff --git a/info.rkt b/info.rkt index 416afb1..6b2671b 100644 --- a/info.rkt +++ b/info.rkt @@ -1,6 +1,7 @@ #lang info (define collection "aoc-racket") (define scribblings '(("aoc-racket.scrbl" (multi-page)))) -(define deps '("base" "scribble-lib" ("sugar" #:version "0.3") "rackunit-lib" "math-lib" "beautiful-racket-lib")) +(define deps '("graph" + "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")) \ No newline at end of file