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

correct build errors

Browse Source
master
Matthew Butterick 7 years ago
parent 7e74c93a79
commit 8d68af640e
5 changed files with 13 additions and 5 deletions
Show Stats Download Patch File Download Diff File

4
2016/day22/test.rkt
Unescape Escape View File

@ -1 +1,3 @@
#lang reader "lang.rkt" #lang reader "lang.rkt"
root@ebhq-gridcenter# df -h
Filesystem Size Used Avail Use%

2
2016/day23/info.rkt
Unescape Escape View File

@ -0,0 +1,2 @@
#lang info
(define compile-omit-paths 'all)

6
2017/aoc-lang.rkt
Unescape Escape View File

@ -20,13 +20,17 @@
(syntax/loc (car datums) (module puzzle-lang THIS-FILE (syntax/loc (car datums) (module puzzle-lang THIS-FILE
. DATUMS))))) . DATUMS)))))
(define (blank? line) (regexp-match #px"^\\s*$" line))
(define-macro (my-mb . ARGS) (define-macro (my-mb . ARGS)
(with-pattern ([MOD-PATH (syntax-source caller-stx)]) (with-pattern ([MOD-PATH (syntax-source caller-stx)])
#'(#%module-begin #'(#%module-begin
(provide read-syntax) (provide read-syntax)
(define (read-syntax path port) (define (read-syntax path port)
(strip-context #`(module mod MOD-PATH (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 "," "")))]) (for/list ([datums (in-port read (open-input-string (string-replace line "," "")))])
datums))))) datums)))))
. ARGS))) . ARGS)))

3
2017/d1/test2.rkt
Unescape Escape View File

@ -1,7 +1,6 @@
#lang reader "main.rkt" ★★ #lang reader "main.rkt" ★★
1212 1212
1221 1221
123425 123425
123123 123123
12131415 12131415

3
info.rkt
Unescape Escape View File

@ -1,6 +1,7 @@
#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" #: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 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"))