1
0
Fork 0

Day 8: Use an actual whitespace character instead of a light-grey box.

This commit is contained in:
Jonathan Chan 2019-12-07 22:26:33 -08:00
parent d88fcf2a60
commit 59b628be64
1 changed files with 1 additions and 1 deletions

View File

@ -46,7 +46,7 @@
(define part2 (define part2
(let* ([image (map (curry findf (curry neq? #\2)) (pivot layers))] (let* ([image (map (curry findf (curry neq? #\2)) (pivot layers))]
[image* (map (λ (pixel) (if (eq? pixel #\1) #\█ #\)) image)] [image* (map (λ (pixel) (if (eq? pixel #\1) #\█ #\ )) image)]
[msg (map list->string (partition-into image* width))]) [msg (map list->string (partition-into image* width))])
(for-each displayln msg))) (for-each displayln msg)))