From 4390a5c4130668ec6c25ef7f6851ff2aabf4f898 Mon Sep 17 00:00:00 2001 From: Syndamia Date: Sun, 4 Dec 2022 21:50:29 +0200 Subject: [2022/D04] Reduced amount of setq calls --- 2022/Day04/part-one.cl | 8 ++++---- 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) -- cgit v1.2.3