Day 8: Use an actual whitespace character instead of a light-grey box.
This commit is contained in:
parent
d88fcf2a60
commit
59b628be64
|
@ -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)))
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue