diff options
| -rw-r--r-- | 2022/Day04/part-one.cl | 8 | ||||
| -rw-r--r-- | 2022/Day04/part-two.cl | 8 |
2 files changed, 8 insertions, 8 deletions
diff --git a/2022/Day04/part-one.cl b/2022/Day04/part-one.cl index ad422b2..b293df2 100644 --- a/2022/Day04/part-one.cl +++ b/2022/Day04/part-one.cl @@ -17,10 +17,10 @@ ((inpt (read-line *prog-input* NIL)) (first-range '()) (second-range '()) (comma 0) (sum 0)) (loop until (or (string= inpt "end") (not inpt)) do - (setq first-range (cons (parse-integer inpt :junk-allowed T :start 0) - (parse-integer inpt :junk-allowed T :start (+ 1 (position #\- inpt))))) - (setq comma (+ 1 (position #\, inpt))) - (setq second-range (cons (parse-integer inpt :junk-allowed T :start comma) + (setq comma (+ 1 (position #\, inpt)) + first-range (cons (parse-integer inpt :junk-allowed T :start 0) + (parse-integer inpt :junk-allowed T :start (+ 1 (position #\- inpt)))) + second-range (cons (parse-integer inpt :junk-allowed T :start comma) (parse-integer inpt :junk-allowed T :start (+ 1 (position #\- inpt :start comma))))) (if (fully-overlapping first-range second-range) diff --git a/2022/Day04/part-two.cl b/2022/Day04/part-two.cl index aef744e..a593167 100644 --- a/2022/Day04/part-two.cl +++ b/2022/Day04/part-two.cl @@ -17,10 +17,10 @@ ((inpt (read-line *prog-input* NIL)) (first-range '()) (second-range '()) (comma 0) (sum 0)) (loop until (or (string= inpt "end") (not inpt)) do - (setq first-range (cons (parse-integer inpt :junk-allowed T :start 0) - (parse-integer inpt :junk-allowed T :start (+ 1 (position #\- inpt))))) - (setq comma (+ 1 (position #\, inpt))) - (setq second-range (cons (parse-integer inpt :junk-allowed T :start comma) + (setq comma (+ 1 (position #\, inpt)) + first-range (cons (parse-integer inpt :junk-allowed T :start 0) + (parse-integer inpt :junk-allowed T :start (+ 1 (position #\- inpt)))) + second-range (cons (parse-integer inpt :junk-allowed T :start comma) (parse-integer inpt :junk-allowed T :start (+ 1 (position #\- inpt :start comma))))) (if (overlapping first-range second-range) |