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

hey, re-use first two steps!

Browse Source
This commit is contained in:
Daniel Borges
2021-12-20 13:24:26 +01:00
parent a7cb6fae09
commit 596f326726
1 changed files with 5 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
20-trench-map/code.scm
View File

@@ -67,10 +67,10 @@
(image (begin (image (begin
(get-line file) ; skip empty line (get-line file) ; skip empty line
(file->matrix file)))] (file->matrix file)))]
(let [(enhanced (enhance image enhancer 2))] (let [(enhanced-2 (enhance image enhancer 2))]
(printf "part 1:~% Lit pixels after enhancing twice: ~a~%" (printf "part 1:~% Lit pixels after enhancing twice: ~a~%"
(matrix-sum enhanced))) (matrix-sum enhanced-2))
(let [(enhanced (enhance image enhancer 50))] (let [(enhanced-50 (enhance enhanced-2 enhancer 48))]
(printf "part 2:~% Lit pixels after enhancing fifty times: ~a~%" (printf "part 2:~% Lit pixels after enhancing fifty times: ~a~%"
(matrix-sum enhanced)))))) (matrix-sum enhanced-50)))))))