daniel/advent-of-code-2021
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

use call-with-input-file

Browse Source
This commit is contained in:
Daniel Borges
2021-12-02 12:44:34 +01:00
parent 11606105ea
commit ffaf4acf1e
1 changed files with 37 additions and 35 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
day-2.scm
View File

@@ -5,7 +5,9 @@
(list->string (reverse w)) (list->string (reverse w))
(loop (cons c w)))))) (loop (cons c w))))))
(let [(file (open-input-file "day-2.input"))] (call-with-input-file
"day-2.input"
(lambda (file)
(let loop [(x 0) (y 0)] (let loop [(x 0) (y 0)]
(let [(amount (string->number (get-word file))) (let [(amount (string->number (get-word file)))
(move (get-word file))] (move (get-word file))]
@@ -19,10 +21,11 @@
(else (else
(display "part 1: ") (display "part 1: ")
(display (* x y)) (display (* x y))
(newline) (newline)))))))
(close-port file))))))
(let [(file (open-input-file "day-2.input"))] (call-with-input-file
"day-2.input"
(lambda (file)
(let loop [(x 0) (y 0) (aim 0)] (let loop [(x 0) (y 0) (aim 0)]
(let [(amount (string->number (get-word file))) (let [(amount (string->number (get-word file)))
(move (get-word file))] (move (get-word file))]
@@ -39,5 +42,4 @@
(else (else
(display "part 2: ") (display "part 2: ")
(display (* x y)) (display (* x y))
(newline) (newline)))))))
(close-port file))))))