day10.lisp (1597B)
1 (in-package #:adventofcode2022/test) 2 3 (define-constant +testdata-day10+ "addx 15 4 addx -11 5 addx 6 6 addx -3 7 addx 5 8 addx -1 9 addx -8 10 addx 13 11 addx 4 12 noop 13 addx -1 14 addx 5 15 addx -1 16 addx 5 17 addx -1 18 addx 5 19 addx -1 20 addx 5 21 addx -1 22 addx -35 23 addx 1 24 addx 24 25 addx -19 26 addx 1 27 addx 16 28 addx -11 29 noop 30 noop 31 addx 21 32 addx -15 33 noop 34 noop 35 addx -3 36 addx 9 37 addx 1 38 addx -3 39 addx 8 40 addx 1 41 addx 5 42 noop 43 noop 44 noop 45 noop 46 noop 47 addx -36 48 noop 49 addx 1 50 addx 7 51 noop 52 noop 53 noop 54 addx 2 55 addx 6 56 noop 57 noop 58 noop 59 noop 60 noop 61 addx 1 62 noop 63 noop 64 addx 7 65 addx 1 66 noop 67 addx -13 68 addx 13 69 addx 7 70 noop 71 addx 1 72 addx -33 73 noop 74 noop 75 noop 76 addx 2 77 noop 78 noop 79 noop 80 addx 8 81 noop 82 addx -1 83 addx 2 84 addx 1 85 noop 86 addx 17 87 addx -9 88 addx 1 89 addx 1 90 addx -3 91 addx 11 92 noop 93 noop 94 addx 1 95 noop 96 addx 1 97 noop 98 noop 99 addx -13 100 addx -19 101 addx 1 102 addx 3 103 addx 26 104 addx -30 105 addx 12 106 addx -1 107 addx 3 108 addx 1 109 noop 110 noop 111 noop 112 addx -9 113 addx 18 114 addx 1 115 addx 2 116 noop 117 noop 118 addx 9 119 noop 120 noop 121 noop 122 addx -1 123 addx 2 124 addx -37 125 addx 1 126 addx 3 127 noop 128 addx 15 129 addx -21 130 addx 22 131 addx -6 132 addx 1 133 noop 134 addx 2 135 addx 1 136 noop 137 addx -10 138 noop 139 noop 140 addx 20 141 addx 1 142 addx 2 143 addx 2 144 addx -6 145 addx -11 146 noop 147 noop 148 noop" :test 'equal) 149 150 (def-test day10-task1 () 151 (is-true 152 (= 13140 153 (run-task 10 1 154 (make-string-input-stream +testdata-day10+))))) 155 156 (def-test day10-task2 () 157 (is-true 158 (string= (run-task 10 2 159 (make-string-input-stream +testdata-day10+)) 160 "##..##..##..##..##..##..##..##..##..##.. 161 ###...###...###...###...###...###...###. 162 ####....####....####....####....####.... 163 #####.....#####.....#####.....#####..... 164 ######......######......######......#### 165 #######.......#######.......#######..... 166 ")))