20 lines
738 B
Plaintext
20 lines
738 B
Plaintext
(de *Data
|
|
12 127 28 42 39 113 42 18 44 118 44 37 113 124 37 48 127 36
|
|
29 31 125 139 131 115 105 132 104 123 35 113 122 42 117 119
|
|
58 109 23 105 63 27 44 105 99 41 128 121 116 125 32 61 37 127
|
|
29 113 121 58 114 126 53 114 96 25 109 7 31 141 46 13 27 43
|
|
117 116 27 7 68 40 31 115 124 42 128 52 71 118 117 38 27 106
|
|
33 117 116 111 40 119 47 105 57 122 109 124 115 43 120 43 27
|
|
27 18 28 48 125 107 114 34 133 45 120 30 127 31 116 146 )
|
|
|
|
(let L
|
|
(group
|
|
(mapcar
|
|
'((N)
|
|
(cons
|
|
(or (format (head -1 (setq N (chop N)))) 0)
|
|
(last N) ) )
|
|
(sort *Data) ) )
|
|
(for I (range (caar L) (car (last L)))
|
|
(prinl (align 3 I) " | " (glue " " (cdr (assoc I L)))) ) )
|