blob: 80c2a543a761fe431eb9ea4f935a699bb143860b (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
|
#lang racket
(require "../../jj-aoc.rkt"
threading)
(define data
(~> (open-day 16 2021)
port->string
string-trim
string->list))
(define (hex->bin h)
(match h
[#\0 '(0 0 0 0)]
[#\1 '(0 0 0 1)]
[#\2 '(0 0 1 0)]
[#\3 '(0 0 1 1)]
[#\4 '(0 1 0 0)]
[#\5 '(0 1 0 1)]
[#\6 '(0 1 1 0)]
[#\7 '(0 1 1 1)]
[#\8 '(1 0 0 0)]
[#\9 '(1 0 0 1)]
[#\A '(1 0 1 0)]
[#\B '(1 0 1 1)]
[#\C '(1 1 0 0)]
[#\D '(1 1 0 1)]
[#\E '(1 1 1 0)]
[#\F '(1 1 1 1)]))
(map hex->bin data)
|
