Plaster

common-lisp
x
 
1
(ql:quickload '(:alexandria :split-sequence :ironclad))
2
3
CL-USER> (let* ((file (alexandria:read-file-into-string #p"/tmp/lines"))
4
                (lines (split-sequence:split-sequence #\Newline file :remove-empty-subseqs t))
5
                (vectors (mapcar #'ironclad:hex-string-to-byte-array lines)))
6
           vectors)
7
8
(#(235 210 251 238 234 79 122 132)
9
 #(92 92 4 113 226 134 191 12)
10
 #(203 148 195 246 61 194 130 171)
11
 #(43 113 36 175 12 123 219 149)
12
 #(199 19 120 61 214 2 57 39)
13
 #(102 164 254 1 51 171 160 23)
14
 #(113 56 56 62 209 208 156 24)
15
 #(192 213 211 126 151 102 254 79)
16
 #(166 239 36 70 101 30 115 218)
17
 #(91 140 38 83 89 7 7 150)
18
 #(225 77 54 106 109 136 99 176)
19
 #(42 17 172 38 55 25 107 123)
20
 #(42 182 94 190 32 204 110 37)
21
 #(82 221 175 0 233 45 147 123)
22
 #(195 138 96 199 146 82 15 255)
23
 #(220 43 43 236 75 229 130 0)
24
 #(239 16 22 3 29 130 27 114)
25
 #(95 151 117 12 84 244 205 78)
26
 #(1 162 225 134 84 224 69 246)
27
 #(190 224 239 182 9 45 119 120)
28
 #(227 215 12 172 100 154 63 15)
29
 #(202 124 37 41 103 77 110 247)
30
 #(57 120 241 211 182 119 186 122)
31
 #(183 178 207 36 24 152 160 98)
32
 #(241 76 73 110 137 25 137 222)
33
 #(205 239 53 201 64 131 155 204)
34
 #(46 154 67 125 173 227 205 229)
35
 #(18 191 123 207 121 66 217 183)
36
 #(108 80 6 249 79 254 148 241)
37
 #(8 148 66 156 254 142 208 16)
38
 #(176 8 79 50 250 140 235 206)
39
 #(151 25 201 187 52 144 41 180)
40
 #(36 64 136 228 148 250 168 3)
41
 #(19 240 61 190 5 181 71 224)
42
 #(182 163 234 254 7 42 29 166)
43
 #(175 230 249 55 198 99 252 145)
44
 #(219 117 128 130 100 131 153 190)
45
 #(174 225 166 124 74 206 117 209)
46
 #(139 65 219 231 119 240 222 251)
47
 #(47 252 143 15 141 52 239 0))