diff options
| author | Syndamia <kamen@syndamia.com> | 2022-12-04 21:50:29 +0200 |
|---|---|---|
| committer | Syndamia <kamen@syndamia.com> | 2022-12-04 21:50:29 +0200 |
| commit | 4390a5c4130668ec6c25ef7f6851ff2aabf4f898 (patch) | |
| tree | 91752c73fae1bfde8bc075e4bac806a389799e84 /2022/Day04 | |
| parent | 94ba216600fb2e90a89828b6821b30ae60538be2 (diff) | |
| download | advent-of-code-4390a5c4130668ec6c25ef7f6851ff2aabf4f898.tar advent-of-code-4390a5c4130668ec6c25ef7f6851ff2aabf4f898.tar.gz advent-of-code-4390a5c4130668ec6c25ef7f6851ff2aabf4f898.zip | |
[2022/D04] Reduced amount of setq calls
Diffstat (limited to '2022/Day04')
| -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) |