test-cases-square.rkt

#lang racket
(provide block beehive oscillator gosper-glider-gun pulsar die-hard R-pentomino acorn puffer-train vacuum-cleaner orthogonal)
(require "main.rkt")

(define-syntax for
  (syntax-rules (:)
    [(for init : condition : step : statements)
     (begin
       init
       (define (iter)
         (cond [condition (begin statements step (iter))]))
       (iter))]))

(define (block)
  (define matrix (make-hash))
  (hash-set! matrix 20 '(25 24))
  (hash-set! matrix 21 '(25 24))
  matrix)

(define (beehive)
  (define matrix (make-hash))
  (hash-set! matrix 20 '(24))
  (hash-set! matrix 21 '(23 25))
  (hash-set! matrix 22 '(23 25))
  (hash-set! matrix 23 '(24))
  matrix)

(define (oscillator)
  (define matrix (make-hash))
  (hash-set! matrix 20 '(24))
  (hash-set! matrix 21 '(24))
  (hash-set! matrix 22 '(24))
  matrix)

(define (gosper-glider-gun)
  (define matrix (make-hash))
  (hash-set! matrix 12 '(40 39 25 26 18 17))
  (hash-set! matrix 11 '(29 27))
  (hash-set! matrix 10 '(29))
  (hash-set! matrix 18 '(18 17))
  (hash-set! matrix 17 '(20 16))
  (hash-set! matrix 16 '(29 21 15))
  (hash-set! matrix 15 '(29 27 21 19 22 15 5 6))
  (hash-set! matrix 14 '(26 25 21 15 5 6))
  (hash-set! matrix 13 '(40 39 25 26 20 16))
  matrix)

(define (pulsar)
  (define matrix (make-hash))
  (hash-set! matrix 12 '(31 26 24 19))
  (hash-set! matrix 11 '(31 26 24 19))
  (hash-set! matrix 9 '(29 28 27 23 22 21))
  (hash-set! matrix 21 '(29 28 27 23 22 21))
  (hash-set! matrix 19 '(31 26 24 19))
  (hash-set! matrix 18 '(31 26 24 19))
  (hash-set! matrix 17 '(31 26 24 19))
  (hash-set! matrix 16 '(29 28 27 23 22 21))
  (hash-set! matrix 14 '(29 28 27 23 22 21))
  (hash-set! matrix 13 '(31 26 24 19))
  matrix)

(define (die-hard)
  (define matrix (make-hash))
  (hash-set! matrix 15 '(27 26 25 21))
  (hash-set! matrix 14 '(21 20))
  (hash-set! matrix 13 '(26))
  matrix)

(define (R-pentomino)
  (define matrix (make-hash))
  (hash-set! matrix 15 '(24))
  (hash-set! matrix 14 '(24 23)) (hash-set! matrix 13 '(25 24))
  matrix)

(define (acorn)
  (define matrix (make-hash))
  (hash-set! matrix 15 '(29 28 27 24 23)) (hash-set! matrix 14 '(26)) (hash-set! matrix 13 '(24))
  matrix)

(define (puffer-train)
  (define matrix (make-hash))
  (hash-set! matrix 0 (list 98 ))
(hash-set! matrix 1 (list 98 99 100 101 ))
(hash-set! matrix 2 (list 85 87 100 101 ))
(hash-set! matrix 3 (list 85 88 103 ))
(hash-set! matrix 4 (list 88 89 100 101 102 103 ))
(hash-set! matrix 5 (list 90 104 ))
(hash-set! matrix 6 (list 88 89 90 91 100 103 104 105 ))
(hash-set! matrix 7 (list 87 92 102 103 104 ))
(hash-set! matrix 8 (list 89 92 103 ))
(hash-set! matrix 9 (list 89 92 98 100 101 102 ))
(hash-set! matrix 10 (list 91 98 99 102 ))
(hash-set! matrix 11 (list 85 87 88 89 90 99 100 101 ))
(hash-set! matrix 12 (list 85 89 99 ))
(hash-set! matrix 13 (list 88 101 ))
(hash-set! matrix 14 (list 86 88 99 101 ))
(hash-set! matrix 15 (list 102 ))
(hash-set! matrix 16 (list 87 88 89 99 101 ))
(hash-set! matrix 17 (list 88 89 101 ))
(hash-set! matrix 18 (list 87 88 89 99 ))
(hash-set! matrix 19 (list 99 100 101 ))
(hash-set! matrix 20 (list 86 88 98 99 102 ))
(hash-set! matrix 21 (list 88 98 100 101 102 ))
(hash-set! matrix 22 (list 85 89 103 ))
(hash-set! matrix 23 (list 85 87 88 89 90 102 103 104 ))
(hash-set! matrix 24 (list 91 100 103 104 105 ))
(hash-set! matrix 25 (list 89 92 104 ))
(hash-set! matrix 26 (list 89 92 100 101 102 103 ))
(hash-set! matrix 27 (list 87 92 103 ))
(hash-set! matrix 28 (list 88 89 90 91 100 101 ))
(hash-set! matrix 29 (list 90 98 99 100 101 104 106 ))
(hash-set! matrix 30 (list 88 89 98 104 107 ))
(hash-set! matrix 31 (list 85 88 96 98 107 108 ))
(hash-set! matrix 32 (list 85 87 96 109 ))
(hash-set! matrix 33 (list 94 97 98 107 108 109 110 ))
(hash-set! matrix 34 (list 82 83 85 95 96 97 106 111 ))
(hash-set! matrix 35 (list 85 93 95 108 111 ))
(hash-set! matrix 36 (list 82 84 85 93 108 111 ))
(hash-set! matrix 37 (list 82 92 93 110 ))
(hash-set! matrix 38 (list 80 88 90 91 92 104 106 107 108 109 ))
(hash-set! matrix 39 (list 81 87 89 90 104 108 ))
(hash-set! matrix 40 (list 81 87 88 107 ))
(hash-set! matrix 41 (list 81 83 86 87 105 107 ))
(hash-set! matrix 42 (list 81 83 85 86 ))
(hash-set! matrix 43 (list 81 106 107 108 ))
(hash-set! matrix 44 (list 81 83 85 86 107 108 ))
(hash-set! matrix 45 (list 81 83 86 87 93 95 100 102 107 108 ))
(hash-set! matrix 46 (list 81 87 88 90 91 93 96 99 102 104 105 106 107 108 ))
(hash-set! matrix 47 (list 81 87 88 96 97 101 106 ))
(hash-set! matrix 48 (list 81 83 86 87 93 100 108 ))
(hash-set! matrix 49 (list 81 83 85 86 93 95 96 97 98 99 106 108 ))
(hash-set! matrix 50 (list 81 90 91 109 ))
(hash-set! matrix 51 (list 81 83 85 86 93 95 96 97 98 99 106 108 ))
(hash-set! matrix 52 (list 81 83 86 87 93 100 108 ))
(hash-set! matrix 53 (list 81 87 88 96 97 101 106 ))
(hash-set! matrix 54 (list 81 87 88 90 91 93 96 99 102 104 105 106 107 108 ))
(hash-set! matrix 55 (list 81 83 86 87 93 95 100 102 107 108 ))
(hash-set! matrix 56 (list 81 83 85 86 107 108 ))
(hash-set! matrix 57 (list 81 106 107 108 ))
(hash-set! matrix 58 (list 81 83 85 86 ))
(hash-set! matrix 59 (list 81 83 86 87 105 107 ))
(hash-set! matrix 60 (list 81 87 88 107 ))
(hash-set! matrix 61 (list 81 83 86 88 89 104 108 ))
(hash-set! matrix 62 (list 81 83 85 86 87 90 104 106 107 108 109 ))
(hash-set! matrix 63 (list 81 90 110 ))
(hash-set! matrix 64 (list 81 83 85 86 87 90 108 111 ))
(hash-set! matrix 65 (list 81 83 86 88 89 108 111 ))
(hash-set! matrix 66 (list 81 87 88 106 111 ))
(hash-set! matrix 67 (list 81 83 86 87 107 108 109 110 ))
(hash-set! matrix 68 (list 81 83 85 86 109 ))
(hash-set! matrix 69 (list 81 107 108 ))
(hash-set! matrix 70 (list 81 83 85 86 104 107 ))
(hash-set! matrix 71 (list 81 83 86 87 104 106 ))
(hash-set! matrix 72 (list 81 87 88 ))
(hash-set! matrix 73 (list 81 83 86 88 89 ))
(hash-set! matrix 74 (list 81 83 85 86 87 90 ))
(hash-set! matrix 75 (list 81 90 104 106 ))
(hash-set! matrix 76 (list 81 83 85 86 87 90 104 107 ))
(hash-set! matrix 77 (list 81 83 86 88 89 107 108 ))
(hash-set! matrix 78 (list 81 87 88 109 ))
(hash-set! matrix 79 (list 81 83 86 87 107 108 109 110 ))
(hash-set! matrix 80 (list 81 83 85 86 106 111 ))
(hash-set! matrix 81 (list 81 108 111 ))
(hash-set! matrix 82 (list 81 83 85 86 108 111 ))
(hash-set! matrix 83 (list 81 83 86 87 110 ))
(hash-set! matrix 84 (list 81 87 88 104 106 107 108 109 ))
(hash-set! matrix 85 (list 81 83 86 88 89 104 108 ))
(hash-set! matrix 86 (list 81 83 85 86 87 90 107 ))
(hash-set! matrix 87 (list 81 90 105 107 ))
(hash-set! matrix 88 (list 81 83 85 86 87 90 ))
(hash-set! matrix 89 (list 81 83 86 88 89 106 107 108 ))
(hash-set! matrix 90 (list 81 87 88 107 108 ))
(hash-set! matrix 91 (list 81 83 86 87 93 95 100 102 107 108 ))
(hash-set! matrix 92 (list 81 83 85 86 90 91 93 96 99 102 104 105 106 107 108 ))
(hash-set! matrix 93 (list 81 96 97 101 106 ))
(hash-set! matrix 94 (list 81 83 85 86 93 100 108 ))
(hash-set! matrix 95 (list 81 83 86 87 93 95 96 97 98 99 106 108 ))
(hash-set! matrix 96 (list 81 87 88 90 91 109 ))
(hash-set! matrix 97 (list 81 87 88 93 95 96 97 98 99 106 108 ))
(hash-set! matrix 98 (list 81 83 86 87 93 100 108 ))
(hash-set! matrix 99 (list 81 83 85 86 96 97 101 106 ))
(hash-set! matrix 100 (list 81 90 91 93 96 99 102 104 105 106 107 108 ))
(hash-set! matrix 101 (list 81 83 85 86 93 95 100 102 107 108 ))
(hash-set! matrix 102 (list 81 83 86 87 107 108 ))
(hash-set! matrix 103 (list 81 87 88 106 107 108 ))
(hash-set! matrix 104 (list 81 83 86 88 89 ))
(hash-set! matrix 105 (list 81 83 85 86 87 90 105 107 ))
(hash-set! matrix 106 (list 81 90 107 ))
(hash-set! matrix 107 (list 81 83 85 86 87 90 104 108 ))
(hash-set! matrix 108 (list 81 83 86 88 89 104 106 107 108 109 ))
(hash-set! matrix 109 (list 81 87 88 110 ))
(hash-set! matrix 110 (list 81 83 86 87 108 111 ))
(hash-set! matrix 111 (list 81 83 85 86 108 111 ))
(hash-set! matrix 112 (list 81 106 111 ))
(hash-set! matrix 113 (list 81 83 85 86 107 108 109 110 ))
(hash-set! matrix 114 (list 81 83 86 87 109 ))
(hash-set! matrix 115 (list 81 87 88 107 108 ))
(hash-set! matrix 116 (list 81 87 89 90 104 107 ))
(hash-set! matrix 117 (list 80 88 90 91 92 104 106 ))
(hash-set! matrix 118 (list 82 92 93 ))
(hash-set! matrix 119 (list 82 84 85 93 ))
(hash-set! matrix 120 (list 85 93 95 ))
(hash-set! matrix 121 (list 82 83 85 95 96 97 ))
(hash-set! matrix 122 (list 94 97 98 ))
(hash-set! matrix 123 (list 85 87 96 ))
(hash-set! matrix 124 (list 85 88 96 98 ))
(hash-set! matrix 125 (list 88 89 98 ))
(hash-set! matrix 126 (list 90 98 99 100 101 ))
(hash-set! matrix 127 (list 88 89 90 91 100 101 ))
(hash-set! matrix 128 (list 87 92 103 ))
(hash-set! matrix 129 (list 89 92 100 101 102 103 ))
(hash-set! matrix 130 (list 89 92 104 ))
(hash-set! matrix 131 (list 91 100 103 104 105 ))
(hash-set! matrix 132 (list 85 87 88 89 90 102 103 104 ))
(hash-set! matrix 133 (list 85 89 103 ))
(hash-set! matrix 134 (list 88 98 100 101 102 ))
(hash-set! matrix 135 (list 86 88 98 99 102 ))
(hash-set! matrix 136 (list 99 100 101 ))
(hash-set! matrix 137 (list 87 88 89 99 ))
(hash-set! matrix 138 (list 88 89 101 ))
(hash-set! matrix 139 (list 87 88 89 99 101 ))
(hash-set! matrix 140 (list 102 ))
(hash-set! matrix 141 (list 86 88 99 101 ))
(hash-set! matrix 142 (list 88 101 ))
(hash-set! matrix 143 (list 85 89 99 ))
(hash-set! matrix 144 (list 85 87 88 89 90 99 100 101 ))
(hash-set! matrix 145 (list 91 98 99 102 ))
(hash-set! matrix 146 (list 89 92 98 100 101 102 ))
(hash-set! matrix 147 (list 89 92 103 ))
(hash-set! matrix 148 (list 87 92 102 103 104 ))
(hash-set! matrix 149 (list 88 89 90 91 100 103 104 105 ))
(hash-set! matrix 150 (list 90 104 ))
(hash-set! matrix 151 (list 88 89 100 101 102 103 ))
(hash-set! matrix 152 (list 85 88 103 ))
(hash-set! matrix 153 (list 85 87 100 101 ))
(hash-set! matrix 154 (list 98 99 100 101 ))
(hash-set! matrix 155 (list 98 ))
  matrix)

(define (orthogonal)
  (define matrix (make-hash))
  (hash-set! matrix 40 (list 126 127 ))
  (hash-set! matrix 41 (list 122 123 125 128 130 131 156 169 ))
  (hash-set! matrix 42 (list 85 122 123 130 131 143 156 169 178 190 ))
  (hash-set! matrix 43 (list 84 85 86 122 124 129 131 142 144 155 157 168 170 178 190 ))
  (hash-set! matrix 44 (list 30 31 32 36 37 38 48 49 50 66 67 68 83 84 86 87 124 125 128 129 141 145 156 169 177 179 189 191 ))
  (hash-set! matrix 45 (list 19 20 21 30 33 35 38 47 51 65 69 123 124 126 127 129 130 142 143 144 156 169 ))
  (hash-set! matrix 46 (list 10 11 12 18 21 30 38 46 47 52 64 69 70 82 84 86 88 91 125 128 157 161 162 163 164 168 176 180 188 192 ))
  (hash-set! matrix 47 (list 1 2 3 9 12 21 30 38 45 47 49 50 52 53 57 58 59 63 64 66 67 69 71 81 82 86 90 91 92 110 123 130 140 141 145 146 161 162 163 164 176 178 179 180 181 182 183 185 186 187 188 189 190 192 ))
  (hash-set! matrix 48 (list 0 3 12 17 21 31 33 35 37 44 45 47 52 54 55 57 58 59 61 62 64 69 71 72 81 82 86 93 103 104 106 107 108 110 111 112 123 130 138 142 144 148 157 158 159 160 165 166 167 168 175 183 185 193 ))
  (hash-set! matrix 49 (list 3 8 12 17 21 43 48 52 57 59 64 68 73 91 93 103 104 109 112 113 115 116 137 138 142 144 148 149 175 183 185 193 ))
  (hash-set! matrix 50 (list 3 12 21 34 55 61 89 91 102 105 107 108 112 115 116 123 124 125 126 127 128 129 130 136 142 144 150 159 166 175 193 ))
  (hash-set! matrix 51 (list 0 2 9 11 18 20 33 34 35 43 44 52 53 63 64 72 73 90 93 114 117 122 123 130 131 137 139 140 142 144 146 147 149 160 161 164 165 176 178 179 181 182 186 187 189 190 192 ))
  (hash-set! matrix 52 (list 33 34 35 93 ))
  (hash-set! matrix 65 (list 99 135 141 ))
  (hash-set! matrix 66 (list 98 99 100 134 135 136 140 141 142 ))
  (hash-set! matrix 67 (list 51 57 93 ))
  (hash-set! matrix 68 (list 50 51 52 56 57 58 92 93 94 ))
  (hash-set! matrix 70 (list 9 13 14 15 106 107 113 114 120 121 127 128 148 149 155 156 162 163 169 170 177 178 179 183 ))
  (hash-set! matrix 71 (list 6 7 9 10 11 12 13 15 16 104 108 112 115 119 122 126 130 146 150 154 157 161 164 168 172 176 177 179 180 181 182 183 185 186 ))
  (hash-set! matrix 72 (list 4 6 7 9 15 17 22 23 29 30 36 37 43 44 64 65 71 72 78 79 85 86 104 108 110 112 113 114 120 121 122 124 126 130 146 150 152 154 155 156 162 163 164 166 168 172 175 177 183 185 186 188 ))
  (hash-set! matrix 73 (list 3 7 9 13 14 15 16 17 20 24 28 31 35 38 42 46 62 66 70 73 77 80 84 88 104 110 111 114 115 116 118 119 120 123 124 130 146 152 153 156 157 158 160 161 162 165 166 172 175 176 177 178 179 183 185 189 ))
  (hash-set! matrix 74 (list 7 8 9 15 16 20 24 26 28 29 30 36 37 38 40 42 46 50 51 52 62 66 68 70 71 72 78 79 80 82 84 88 104 105 107 108 109 125 126 127 129 130 146 147 149 150 151 167 168 169 171 172 176 177 183 184 185 ))
  (hash-set! matrix 75 (list 4 7 9 10 11 20 26 27 30 31 32 34 35 36 39 40 46 51 62 68 69 72 73 74 76 77 78 81 82 88 104 130 146 172 181 182 183 185 188 ))
  (hash-set! matrix 76 (list 6 20 21 23 24 25 41 42 43 45 46 62 63 65 66 67 83 84 85 87 88 105 109 125 129 147 151 167 171 186 ))
  (hash-set! matrix 77 (list 20 46 62 88 106 109 125 128 148 151 167 170 ))
  (hash-set! matrix 78 (list 21 25 41 45 63 67 83 87 ))
  (hash-set! matrix 79 (list 22 25 41 44 64 67 83 86 ))
  (hash-set! matrix 89 (list 93 100 ))
  (hash-set! matrix 90 (list 92 94 99 101 ))
  (hash-set! matrix 91 (list 92 94 99 101 ))
  (hash-set! matrix 92 (list 93 100 ))
  (hash-set! matrix 94 (list 92 93 94 99 100 101 ))
  (hash-set! matrix 95 (list 92 93 94 95 98 99 100 101 ))
  (hash-set! matrix 96 (list 95 98 ))
  (hash-set! matrix 97 (list 92 93 94 96 97 99 100 101 ))
  (hash-set! matrix 98 (list 92 93 100 101 ))
  (hash-set! matrix 99 (list 91 92 101 102 ))
  (hash-set! matrix 101 (list 90 103 ))
  (hash-set! matrix 102 (list 88 91 102 105 ))
  (hash-set! matrix 103 (list 88 91 102 105 ))
  (hash-set! matrix 105 (list 91 92 93 100 101 102 ))
  (hash-set! matrix 106 (list 91 102 ))
  (hash-set! matrix 107 (list 93 100 ))
  (hash-set! matrix 108 (list 91 92 93 100 101 102 ))
  (hash-set! matrix 110 (list 94 96 97 99 ))
  (hash-set! matrix 111 (list 95 98 ))
  (hash-set! matrix 112 (list 91 93 94 96 97 99 100 102 ))
  (hash-set! matrix 113 (list 91 92 93 100 101 102 ))
  (hash-set! matrix 115 (list 91 93 100 102 ))
  (hash-set! matrix 116 (list 91 93 100 102 ))
  (hash-set! matrix 117 (list 89 90 91 93 94 95 98 99 100 102 103 104 ))

  matrix)

(define (vacuum-cleaner)
  (define matrix (make-hash))
  (hash-set! matrix 31 (list 1 2 26 27 ))
  (hash-set! matrix 32 (list 1 2 26 ))
  (hash-set! matrix 33 (list 24 26 ))
  (hash-set! matrix 34 (list 6 10 11 24 25 62 63 69 70 ))
  (hash-set! matrix 35 (list 0 1 4 5 7 9 10 11 62 63 69 70 ))
  (hash-set! matrix 36 (list 0 1 4 9 10 11 ))
  (hash-set! matrix 37 (list 4 8 ))
  (hash-set! matrix 38 (list 5 6 7 ))
  (hash-set! matrix 39 (list 44 45 ))
  (hash-set! matrix 40 (list 5 6 7 44 45 ))
  (hash-set! matrix 41 (list 4 8 ))
  (hash-set! matrix 42 (list 0 1 4 9 10 11 37 38 ))
  (hash-set! matrix 43 (list 0 1 4 5 7 9 10 11 37 39 45 46 ))
  (hash-set! matrix 44 (list 6 10 11 37 39 40 45 46 ))
  (hash-set! matrix 45 (list 21 22 38 39 ))
  (hash-set! matrix 46 (list 1 2 38 ))
  (hash-set! matrix 47 (list 1 2 23 ))
  (hash-set! matrix 48 (list 23 25 38 62 63 69 70 ))
  (hash-set! matrix 49 (list 20 38 39 61 64 68 71 ))
  (hash-set! matrix 50 (list 20 26 37 39 40 45 46 64 65 67 68 ))
  (hash-set! matrix 51 (list 20 26 37 39 45 46 63 65 67 69 ))
  (hash-set! matrix 52 (list 22 26 37 38 63 65 67 69 ))
  (hash-set! matrix 53 (list 22 61 71 ))
  (hash-set! matrix 54 (list 22 25 44 45 60 72 ))
  (hash-set! matrix 55 (list 22 23 24 44 45 ))
  (hash-set! matrix 56 (list 65 67 ))
  (hash-set! matrix 57 (list 62 72 ))
  (hash-set! matrix 58 (list 62 66 72 73 ))
  (hash-set! matrix 59 (list 32 64 65 66 73 ))
  (hash-set! matrix 60 (list 28 29 32 67 68 70 71 ))
  (hash-set! matrix 61 (list 27 33 47 48 ))
  (hash-set! matrix 62 (list 26 27 30 32 47 48 ))
  (hash-set! matrix 63 (list 27 28 32 ))
  (hash-set! matrix 64 (list 28 29 30 65 73 ))
  (hash-set! matrix 65 (list 41 42 46 47 66 68 70 72 ))
  (hash-set! matrix 66 (list 28 29 30 40 43 45 48 66 68 70 72 ))
  (hash-set! matrix 67 (list 27 28 32 39 49 65 67 68 70 71 73 ))
  (hash-set! matrix 68 (list 26 27 30 32 38 39 50 51 66 67 73 74 ))
  (hash-set! matrix 69 (list 27 33 39 49 55 ))
  (hash-set! matrix 70 (list 16 17 28 29 32 40 43 45 48 54 ))
  (hash-set! matrix 71 (list 15 17 32 41 42 46 47 54 55 56 ))
  (hash-set! matrix 72 (list 15 ))
  (hash-set! matrix 73 (list 14 15 ))
  (hash-set! matrix 75 (list 28 34 57 58 ))
  (hash-set! matrix 76 (list 26 28 32 34 56 57 58 59 ))
  (hash-set! matrix 77 (list 27 28 33 34 55 58 60 ))
  (hash-set! matrix 78 (list 54 56 59 60 ))
  (hash-set! matrix 79 (list 53 55 ))
  (hash-set! matrix 80 (list 52 53 ))
  (hash-set! matrix 81 (list 43 52 53 54 65 66 72 73 ))
  (hash-set! matrix 82 (list 43 45 53 55 65 66 72 73 ))
  (hash-set! matrix 83 (list 43 44 54 55 ))
  (hash-set! matrix 85 (list 63 64 ))
  (hash-set! matrix 86 (list 39 45 62 63 64 65 73 74 ))
  (hash-set! matrix 87 (list 40 46 61 63 65 72 75 76 88 89 ))
  (hash-set! matrix 88 (list 38 39 40 44 45 46 54 55 61 62 64 65 66 71 72 73 74 75 76 88 89 ))
  (hash-set! matrix 89 (list 54 55 64 65 67 73 74 75 76 ))
  (hash-set! matrix 90 (list 64 65 67 ))
  (hash-set! matrix 92 (list 64 65 67 ))
  (hash-set! matrix 93 (list 64 65 67 73 74 75 76 ))
  (hash-set! matrix 94 (list 30 31 63 66 71 72 73 74 75 76 88 89 ))
  (hash-set! matrix 95 (list 29 31 64 65 72 75 76 88 89 ))
  (hash-set! matrix 96 (list 29 64 65 73 74 ))
  (hash-set! matrix 97 (list 28 29 39 40 ))
  (hash-set! matrix 98 (list 40 51 57 ))
  (hash-set! matrix 99 (list 37 38 39 49 51 55 57 ))
  (hash-set! matrix 100 (list 37 50 51 56 57 ))
  (hash-set! matrix 101 (list 62 ))
  (hash-set! matrix 102 (list 61 63 ))
  (hash-set! matrix 103 (list 61 63 ))
  (hash-set! matrix 104 (list 62 ))
  (hash-set! matrix 109 (list 64 65 ))
  (hash-set! matrix 110 (list 64 65 ))
  (hash-set! matrix 111 (list ))
  (hash-set! matrix 112 (list 67 68 73 ))
  (hash-set! matrix 113 (list 67 68 72 74 ))
  (hash-set! matrix 114 (list 72 74 ))
  (hash-set! matrix 115 (list 73 ))
  (hash-set! matrix 120 (list 75 76 ))
  (hash-set! matrix 121 (list 75 76 ))
  (hash-set! matrix 123 (list 78 79 ))
  (hash-set! matrix 124 (list 78 79 ))
  (hash-set! matrix 126 (list 81 82 ))
  (hash-set! matrix 127 (list 81 82 ))
  matrix)