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