90 lines
17 KiB
Common Lisp
90 lines
17 KiB
Common Lisp
20
|
|
4 0
|
|
28 111 162 110 161 109 160 108 160 107 160 105 162 102 163 100 166 98 170 97 175 97 180 97 187 100 192 105 196 111 198 118 197 126 194 133 189 138 183 142 177 142 170 139 165 134 161 127 159 120 159 113 160 108 162 104 166
|
|
27 40 155 39 154 38 154 37 153 35 153 32 155 30 157 28 160 27 164 26 169 27 176 29 182 32 188 36 192 40 194 45 193 50 190 54 184 58 178 61 171 62 164 60 158 56 154 50 152 44 153 37 155 32 159
|
|
29 102 43 103 43 102 43 101 43 99 45 97 47 95 50 94 55 93 60 94 65 95 68 97 73 101 76 106 77 112 77 117 75 122 73 126 69 128 64 128 59 127 53 124 48 120 43 114 40 109 39 104 39 100 41 98 43 97 46
|
|
26 28 39 27 38 27 39 26 40 24 41 22 44 21 48 20 52 19 58 20 64 22 69 25 73 29 76 34 77 38 75 43 72 47 68 50 63 51 57 51 51 49 46 46 41 42 38 37 37 32 37 29 39
|
|
8 1
|
|
43 158 35 158 36 157 37 157 40 156 42 156 44 156 47 155 50 155 53 154 55 154 58 153 60 153 62 153 64 153 66 153 69 153 71 153 73 153 74 153 76 153 77 153 79 153 80 153 82 153 80 153 82 153 84 153 86 153 88 153 89 153 91 153 93 154 95 154 97 154 98 154 99 154 100 154 101 154 102 154 103 154 104 154 105 154 106
|
|
60 46 31 46 32 45 33 45 34 45 36 44 38 44 39 43 41 43 44 42 46 42 48 42 49 42 51 42 54 42 55 42 57 42 59 42 60 42 62 42 63 42 64 42 65 42 66 42 67 42 69 42 71 42 73 42 74 42 73 42 74 42 76 42 77 42 78 42 79 42 80 42 81 42 82 42 83 41 83 41 84 41 85 41 86 41 88 41 89 41 90 41 91 41 92 40 92 40 93 40 94 40 95 40 96 40 97 40 98 40 99 40 100 40 101 40 102 40 103 40 102
|
|
20 112 25 112 26 112 28 112 30 113 33 113 37 113 41 113 45 113 52 113 56 113 60 113 63 113 67 112 70 112 74 112 77 112 78 111 79 111 80 111 81
|
|
30 52 28 52 29 52 31 52 33 52 35 52 37 53 40 53 43 53 45 53 48 53 50 53 53 53 55 53 58 53 60 53 62 53 64 53 65 53 67 53 68 53 69 53 70 53 71 53 72 53 73 52 73 52 74 52 75 51 75 51 76
|
|
15 117 153 117 152 117 153 117 156 117 160 117 166 117 172 117 180 117 186 117 191 117 195 118 197 118 198 119 198 119 197
|
|
14 35 150 36 149 37 149 37 151 37 155 37 160 36 167 36 175 36 182 36 189 37 193 38 196 38 197 39 196
|
|
11 109 34 109 35 110 37 110 42 111 48 111 56 111 64 111 72 112 78 112 81 112 82
|
|
13 26 30 26 32 27 36 27 41 27 48 27 56 27 63 27 69 27 74 27 78 28 79 28 80 28 81
|
|
4 2
|
|
28 100 163 99 162 100 162 102 161 105 161 110 160 116 160 121 160 126 162 129 165 129 170 127 176 123 183 118 189 113 194 108 198 105 200 104 201 103 201 105 201 107 201 110 200 114 200 119 199 125 199 130 199 134 198 138 198
|
|
30 27 161 26 160 26 159 27 159 28 158 30 157 33 157 37 157 39 158 42 161 43 165 43 171 42 179 39 186 35 193 30 199 26 202 23 204 21 204 21 202 22 200 25 198 29 196 33 195 38 196 43 197 48 198 52 200 54 201 56 202
|
|
33 96 39 96 38 96 37 96 36 97 35 99 33 101 32 104 31 106 31 109 31 112 33 113 37 115 42 115 48 115 55 114 62 112 68 109 73 106 77 102 80 100 81 96 82 94 81 94 80 95 79 98 78 102 76 108 76 114 75 119 76 124 76 127 77 129 77
|
|
25 19 37 18 36 19 35 20 33 23 32 26 31 30 31 34 32 37 34 38 38 37 44 35 51 31 58 26 65 21 71 17 75 15 78 14 78 16 78 19 76 23 76 28 75 32 75 36 75 40 75
|
|
4 3
|
|
36 84 161 85 160 86 159 88 158 91 157 95 156 100 156 104 156 109 157 112 159 113 163 113 167 110 173 107 177 104 180 102 183 101 184 100 184 101 184 103 183 105 182 108 182 110 182 113 183 115 185 116 187 116 191 115 195 113 199 109 202 105 204 100 206 95 206 91 205 88 204 85 202
|
|
38 18 163 18 164 19 163 20 163 22 162 24 162 28 161 31 161 35 162 38 163 40 164 41 167 41 169 40 172 38 175 36 177 34 179 32 180 31 180 32 180 33 180 35 180 37 180 40 181 43 182 45 184 47 188 47 191 47 195 44 199 41 202 38 204 35 204 32 203 30 201 28 199 25 197 23 197
|
|
36 93 34 92 34 93 33 94 31 97 29 101 28 105 27 110 27 113 27 115 30 116 33 115 37 112 42 109 47 106 51 103 54 102 55 101 55 102 54 104 53 107 52 110 52 113 54 115 56 117 59 118 63 118 67 116 71 113 74 109 77 104 78 100 79 95 79 92 77 90 76 88 74
|
|
36 12 29 13 28 14 27 15 26 18 24 20 23 24 22 27 22 30 22 33 24 34 27 35 30 34 34 31 38 29 42 27 45 25 46 24 47 25 46 27 45 29 45 31 45 34 45 36 48 38 52 39 57 40 62 39 67 37 71 34 74 31 76 27 77 24 76 20 75 18 73 16 71
|
|
4 4
|
|
26 107 158 107 157 108 158 108 160 109 163 109 167 109 172 108 176 107 181 106 185 106 188 106 190 106 191 108 191 110 191 112 190 116 189 120 188 124 187 130 186 136 185 141 185 147 185 151 185 154 184 155 184
|
|
24 22 159 23 160 23 161 23 162 24 164 24 167 25 170 25 173 24 176 24 179 24 181 24 182 25 183 26 183 27 183 29 183 32 182 35 182 40 181 45 180 51 179 56 179 60 178 63 177
|
|
20 104 26 105 26 105 27 106 29 106 34 106 39 106 45 106 50 105 54 105 57 106 59 108 59 110 58 114 58 118 57 123 57 127 56 131 56 135 57 137 57
|
|
22 19 24 20 24 20 25 21 27 21 31 21 35 21 41 20 47 19 53 18 58 18 62 18 64 19 66 22 66 26 66 31 66 36 65 42 65 46 65 49 65 52 66 53 66
|
|
4 6
|
|
33 114 148 114 147 113 147 113 148 111 149 110 152 108 155 106 158 104 163 103 168 103 173 103 178 105 182 107 187 111 190 115 193 119 194 123 195 128 194 132 192 135 188 139 186 140 183 141 180 140 178 138 176 134 175 129 174 123 174 118 175 113 176 109 178 107 180
|
|
35 47 154 47 153 47 152 47 151 47 150 46 149 45 147 43 146 41 146 38 147 35 149 33 152 30 157 28 163 28 169 28 177 29 184 31 190 33 195 36 197 38 198 41 198 44 196 46 194 48 190 49 187 49 184 48 181 47 179 45 178 42 178 39 179 35 180 30 183 26 186
|
|
41 127 30 127 31 127 30 128 30 128 29 128 28 128 26 127 25 126 23 125 21 123 19 121 18 119 16 117 16 115 16 113 17 110 19 108 22 106 26 103 32 102 38 100 44 100 52 100 59 101 65 103 70 106 74 110 76 114 77 119 76 123 74 126 72 127 68 127 65 125 62 121 61 117 60 113 62 109 64 106 67 105 70
|
|
30 29 16 28 16 27 17 26 20 24 23 23 28 22 35 21 42 21 50 22 57 23 63 26 67 29 69 32 70 35 69 39 68 42 66 44 64 46 61 47 59 46 56 45 53 43 51 39 49 35 49 30 49 26 51 23 53 21 56 21 60
|
|
4 7
|
|
26 98 161 97 161 97 160 98 160 99 160 102 160 107 159 112 159 118 158 124 158 130 157 134 157 135 157 136 158 135 159 134 162 133 164 131 169 127 176 124 184 120 192 116 199 114 204 113 207 113 208 113 207
|
|
27 27 152 26 153 25 153 26 153 28 153 30 154 34 154 38 154 43 154 48 155 52 156 55 156 57 157 58 158 58 157 58 158 57 159 56 161 55 163 53 168 51 175 47 183 44 192 41 201 39 207 38 211 38 213
|
|
27 102 40 102 41 104 41 106 41 110 40 115 39 120 39 125 38 129 38 132 38 134 38 135 39 136 39 136 40 136 41 136 42 135 43 134 46 133 51 130 57 127 65 125 74 122 81 120 87 119 91 118 94 118 95
|
|
28 27 36 26 37 25 37 24 37 23 37 24 37 25 36 28 36 32 36 38 36 44 35 51 34 57 34 61 33 64 33 65 34 65 37 63 40 61 45 58 51 55 58 52 66 50 72 48 77 47 81 46 82 46 83 45 83
|
|
4 8
|
|
43 123 152 124 151 125 151 125 150 125 149 124 148 123 148 121 148 117 149 113 152 109 155 106 158 104 162 104 165 105 168 108 170 112 171 116 173 121 174 125 176 128 179 129 182 129 186 127 189 124 193 119 196 114 197 110 196 108 194 106 190 107 186 109 182 113 177 116 174 121 171 124 168 127 165 129 162 129 159 128 157 126 155 123 154 122 153
|
|
46 43 146 43 145 43 144 42 143 42 142 41 141 39 140 37 140 33 141 30 142 26 144 23 147 22 150 21 153 22 156 24 159 27 162 29 164 32 165 36 167 39 169 42 171 45 173 47 176 48 179 48 183 47 186 45 188 41 190 37 191 32 191 28 190 24 187 22 184 23 180 25 175 28 170 32 166 37 162 41 159 44 156 45 154 45 152 44 150 42 149 40 149
|
|
44 120 34 120 33 120 32 120 31 120 30 118 29 117 27 114 26 111 26 108 27 105 29 102 32 100 35 100 40 100 44 102 47 105 50 109 51 113 53 117 54 121 56 124 58 126 61 127 65 127 69 126 72 124 75 120 77 116 79 110 80 106 80 101 79 99 77 98 75 99 70 103 65 108 59 113 53 117 47 121 43 123 39 124 36 123 35 122 34
|
|
41 38 23 38 22 37 21 35 20 33 20 30 21 26 22 23 24 20 26 19 29 18 32 18 35 20 38 23 40 26 41 30 43 34 44 37 45 41 47 43 49 44 53 44 57 44 61 42 65 40 68 37 70 34 70 30 69 28 67 26 64 26 61 27 56 29 51 32 45 36 39 39 34 41 31 42 27 43 23 42 20 40 19
|
|
4 9
|
|
34 127 159 127 158 126 157 126 156 125 156 123 155 121 154 118 153 114 153 110 154 107 156 104 159 102 163 102 168 103 172 105 175 108 177 112 176 116 175 119 172 121 170 123 167 124 165 124 164 125 164 125 166 126 169 126 173 127 179 128 192 129 198 130 202 130 204 131 204
|
|
40 53 158 53 157 53 155 53 154 52 153 51 152 49 150 47 149 44 149 41 150 38 151 34 154 32 157 30 161 31 165 33 168 36 170 40 171 45 171 48 169 52 168 54 166 55 163 56 162 56 160 56 159 56 160 57 163 57 167 58 173 59 180 60 188 60 195 59 201 58 206 56 210 54 211 53 211 51 211 50 210
|
|
42 127 36 128 36 128 35 128 34 128 33 127 32 125 31 123 30 120 30 115 30 111 31 107 32 104 34 102 36 102 40 103 43 106 46 110 49 113 50 118 50 123 49 127 46 131 44 133 41 135 40 136 39 136 38 136 39 135 40 135 42 135 46 135 52 134 58 133 65 133 72 132 78 131 82 130 84 129 85 127 85 126 85 125 85
|
|
40 50 34 50 33 50 32 50 31 49 31 47 30 46 29 43 29 40 28 36 29 32 30 28 31 26 33 24 36 24 40 25 44 28 47 32 49 36 50 41 49 45 47 49 43 52 40 54 37 55 35 55 34 55 33 55 35 55 38 55 42 56 48 57 54 58 62 58 70 58 76 57 81 57 84 56 85 55 85 55 83
|
|
4 B
|
|
12 143 155 142 155 141 155 139 155 135 155 130 155 124 156 116 156 108 157 100 158 95 158 90 158
|
|
11 58 154 57 154 55 154 53 153 49 153 44 153 39 153 33 154 28 154 24 155 21 157
|
|
10 142 60 141 59 139 59 136 58 132 58 126 58 119 58 110 59 102 60 96 62
|
|
12 66 61 67 61 66 61 64 61 61 60 55 60 49 60 41 60 32 61 26 62 21 63 18 64
|
|
4 N
|
|
11 102 209 104 208 106 206 109 203 113 199 118 194 123 188 128 182 132 177 136 173 138 171
|
|
14 22 206 22 205 23 203 25 199 28 195 32 190 36 184 41 178 46 173 50 169 54 165 56 163 59 161 60 160
|
|
11 97 92 97 91 98 90 100 86 103 82 108 75 114 67 122 58 129 49 134 42 138 37
|
|
13 27 66 27 67 26 67 27 65 28 63 31 59 34 54 38 49 43 43 47 38 50 34 52 32 52 33
|
|
2 A
|
|
13 13 59 14 59 17 60 21 60 31 60 38 60 48 60 55 60 59 61 63 61 64 61 65 61 64 61
|
|
14 48 106 49 106 51 106 55 106 59 107 63 107 70 108 80 108 87 108 91 108 95 108 97 108 98 108 97 108
|
|
2 S
|
|
19 52 111 52 110 52 107 51 105 51 103 50 101 50 99 49 96 49 93 48 89 48 87 48 84 48 82 48 81 48 80 48 79 48 78 48 77 47 77
|
|
22 102 140 102 139 102 137 103 134 103 131 103 128 104 125 104 121 104 118 105 115 106 112 107 109 108 106 108 103 109 101 109 99 109 97 110 95 110 93 110 92 110 91 110 92
|
|
2 R
|
|
24 75 27 75 28 74 30 72 32 69 35 67 37 64 41 61 44 58 48 55 52 52 55 49 58 47 61 45 63 43 64 42 65 41 65 40 66 40 65 41 65 42 65 43 64 44 64 45 63
|
|
21 158 29 158 30 156 32 154 35 151 38 147 42 143 46 136 53 133 57 129 64 126 68 123 71 121 74 120 76 119 77 119 78 118 78 118 79 117 79 116 79 116 80
|
|
2 P
|
|
26 92 64 90 64 88 65 84 64 80 64 70 63 60 63 50 62 43 62 36 62 32 62 28 62 26 62 26 63 27 63 29 63 32 63 35 63 39 63 49 63 56 63 66 63 73 62 77 62 79 61 80 61
|
|
28 206 64 205 64 202 64 199 64 195 64 188 64 181 64 178 64 174 65 171 65 167 66 160 67 157 68 154 68 152 68 151 68 152 68 153 68 154 67 156 67 160 67 164 66 171 65 178 65 185 65 192 64 194 64 196 64
|
|
2 U
|
|
46 20 79 21 79 22 79 24 79 27 79 34 80 41 81 51 81 61 82 68 82 72 82 74 82 77 82 78 82 79 82 80 82 82 82 84 81 86 81 88 81 89 81 91 81 92 81 91 80 90 79 89 78 88 76 88 74 87 72 87 70 87 67 87 65 87 64 87 63 87 62 87 61 87 60 87 59 87 58 87 57 87 56 87 55 87 54 86 54 86 53 86 52
|
|
41 84 168 85 167 86 167 88 167 92 167 96 168 103 169 110 170 114 170 110 170 114 170 118 171 128 171 135 170 142 170 152 169 159 169 166 169 169 168 171 168 172 168 173 168 173 167 172 167 172 166 171 165 171 164 170 162 169 160 169 158 169 156 169 153 169 151 169 147 169 145 169 142 170 139 170 137 170 136 170 135 170 134
|
|
2 V
|
|
64 38 107 39 107 39 106 40 105 41 103 42 101 44 98 45 95 46 91 46 88 47 85 48 82 48 80 48 78 48 77 48 75 48 74 48 73 47 72 46 72 45 72 44 72 44 73 43 73 42 73 42 74 42 75 42 76 42 77 41 78 41 79 42 80 42 82 42 84 42 86 43 88 44 89 45 90 45 91 46 91 47 91 48 90 50 89 53 87 56 85 59 84 62 82 66 80 68 79 70 77 72 75 73 73 74 72 76 70 76 69 77 67 78 66 78 65 79 65 79 64 80 63 81 62 81 61 82 61
|
|
65 88 138 89 137 90 136 92 135 93 133 95 131 97 130 99 128 102 125 104 123 106 121 107 119 108 117 108 115 108 113 108 112 108 111 108 110 108 109 107 109 106 109 105 109 104 109 103 109 102 109 100 108 99 108 99 109 98 110 98 111 98 112 98 113 98 114 98 116 99 117 99 119 99 120 99 122 99 123 100 124 101 124 102 124 103 123 104 121 106 120 109 117 111 115 114 111 117 107 120 103 122 100 124 96 126 93 127 89 129 86 127 89 129 86 130 83 131 81 132 79 133 78 133 77 133 78 132 78 132 79
|
|
2 W
|
|
69 107 30 107 31 106 32 106 35 104 37 103 39 102 42 100 45 98 48 96 51 93 55 96 51 93 55 91 59 88 62 86 65 83 67 80 69 78 70 76 71 75 71 74 71 73 71 72 70 71 69 70 67 69 66 69 65 68 64 67 63 67 62 67 61 67 60 67 59 68 59 69 58 70 57 72 56 73 56 74 56 75 56 75 57 76 57 77 58 78 59 80 60 81 61 81 63 82 65 82 67 82 68 82 70 82 72 81 74 80 76 78 78 77 79 74 81 72 83 70 85 68 86 66 87 64 89 62 90 60 91 57 93 55 94 53 95 52 95
|
|
70 201 44 201 45 200 47 200 50 198 57 196 64 195 71 194 78 193 85 192 89 190 92 189 94 187 96 185 98 184 99 182 100 181 101 180 101 179 101 177 101 176 101 175 100 173 99 172 99 171 98 170 97 169 96 169 95 169 94 168 93 169 91 169 90 169 89 170 88 170 87 171 87 172 86 173 85 174 85 175 84 176 84 177 84 178 85 179 86 179 87 180 88 181 90 182 92 182 94 182 96 182 99 181 101 180 104 180 107 178 109 177 111 175 113 173 114 171 115 168 115 165 116 161 117 158 117 154 118 152 119 150 119 149 120 148 120 149 121 150 121
|
|
2 X
|
|
34 130 88 128 89 126 89 123 89 119 90 116 91 109 91 102 91 95 92 91 92 84 93 82 93 81 93 80 93 79 93 78 93 79 92 79 91 79 89 79 86 78 83 78 79 77 77 76 74 75 71 74 69 74 68 74 67 74 66 73 66 73 65 73 64 72 64 72 63
|
|
34 218 155 217 155 216 155 214 155 212 155 209 155 205 155 198 155 188 155 181 155 174 156 170 156 168 156 166 156 166 157 165 157 165 155 164 153 164 152 164 150 163 148 163 145 162 143 162 141 162 139 161 138 161 137 161 136 161 135 162 135 162 134 162 133 162 132 163 132
|
|
4 5
|
|
60 89 34 88 34 87 34 86 34 84 34 81 34 77 33 73 33 69 33 64 33 60 33 56 34 53 34 50 35 48 36 47 38 46 40 46 42 46 45 47 47 48 50 49 53 50 56 50 59 50 62 50 65 50 67 49 68 49 69 49 70 50 70 51 69 52 68 54 67 56 66 59 66 62 66 66 67 69 69 72 72 75 75 77 78 79 81 81 84 81 88 82 91 81 94 80 97 78 99 76 101 73 103 69 105 64 107 59 108 53 108 47 108 41 106 36 102 32 99 29 97
|
|
59 195 69 194 69 193 69 191 68 190 67 187 67 183 66 180 66 176 66 172 65 168 65 165 65 163 65 160 65 159 65 158 66 158 68 157 70 157 72 157 75 158 79 158 82 159 87 160 90 161 93 162 96 162 97 162 98 162 99 163 98 164 97 166 97 167 96 170 96 173 97 175 98 179 99 181 102 183 105 186 108 188 112 190 117 191 120 192 124 192 127 191 129 189 131 186 133 181 135 176 136 170 137 163 138 156 138 150 138 145 136 140 134 137 132 134 128 131 124
|
|
52 81 32 80 32 78 31 76 31 74 31 71 31 67 30 64 30 60 30 56 31 53 31 51 32 49 33 48 34 48 36 48 39 48 42 49 46 51 50 52 54 53 58 54 62 55 65 54 67 55 68 56 67 58 67 60 67 62 67 64 67 67 68 70 70 72 72 75 75 76 78 78 81 78 84 78 86 77 88 75 90 72 91 69 93 64 94 59 94 53 94 48 93 43 92 38 90 34 89 31 88 29 87 28 87
|
|
54 189 68 189 69 187 69 185 68 183 68 179 67 174 67 170 67 164 68 160 69 156 70 154 71 153 72 152 73 152 74 153 76 154 79 155 82 155 85 156 89 156 92 155 95 155 97 154 98 154 99 154 100 155 100 156 101 157 100 159 100 162 101 165 101 169 103 172 105 175 108 178 112 180 116 182 120 183 123 183 127 182 130 181 133 178 136 174 139 168 141 162 143 154 145 146 146 139 145 133 143 128 141 125 139 123 137 122 135
|