8 lines
167 B
Common Lisp
8 lines
167 B
Common Lisp
|
;; Day 1: Not Quite Lisp
|
||
|
|
|
||
|
|
(with-open-file (in "./data/input")
|
||
|
|
(do ((char (read-char in nil)
|
||
|
|
(read-char in nil)))
|
||
|
|
((null char))
|
||
|
|
(print char)))
|