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

10
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 day01-mod "day03.rkt" #`(module 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