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

nit

Browse Source
2016
Matthew Butterick 8 years ago
parent 5924352c7a
commit f8abf55483
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File

14
2016/day03.rkt
Unescape Escape View File

@ -1,11 +1,11 @@
#lang br/quicklang #lang br/quicklang
(module+ reader
(provide read-syntax) (define (read-syntax path port)
(define (read-syntax path port) (strip-bindings
(strip-bindings #`(module mod "day03.rkt"
#`(module day01-mod "day03.rkt" #,@(for*/list ([triangle-str (in-list (string-split (port->string port) "\n"))])
#,@(for*/list ([triangle-str (in-list (string-split (port->string port) "\n"))]) `(triangle ,@(string-split triangle-str))))))
`(triangle ,@(string-split triangle-str))))))) (module+ reader (provide read-syntax))
(define-macro (mb . TRIANGLES) (define-macro (mb . TRIANGLES)
#'(#%module-begin #'(#%module-begin