quickdudley/adventofcode - Change AP6VOSJ54EZTXKT2EDFPQGXQY777ORD3EZ3K44YCSHI3U767LJ2QC

tabs vs spaces (need better editor settings)

Created by quickdudley on August 8, 2024

AP6VOSJ54EZTXKT2EDFPQGXQY777ORD3EZ3K44YCSHI3U767LJ2QC

Dependencies

In channels

main

Change contents

Replacement in 2023/day1.lisp at line 2 [3.186]

B:BD[2.42] → [2.42:104]

						(:documentation "Process a character from the input."))

[2.42]

[2.104]

            (:documentation "Process a character from the input."))

Replacement in 2023/day1.lisp at line 5 [3.186]

B:BD[2.136] → [2.136:215]

						(:documentation "Determine whether or not a \"digit\" has been found."))

[2.136]

[2.215]

            (:documentation "Determine whether or not a \"digit\" has been found."))

Replacement in 2023/day1.lisp at line 8 [3.186]
B:BD[2.247] → [2.247:281]
```
	((current-digit :initform nil)))
```
[2.247]
[2.281]
```
  ((current-digit :initform nil)))
```

Replacement in 2023/day1.lisp at line 11 [3.186]

B:BD[2.343] → [2.343:413]

	(setf (slot-value accumulator 'current-digit) (digit-char-p value)))

[2.343]

[2.413]

  (setf (slot-value accumulator 'current-digit) (digit-char-p value)))

Replacement in 2023/day1.lisp at line 14 [3.186]
B:BD[2.464] → [2.464:506]
```
	(slot-value accumulator 'current-digit))
```
[2.464]
[2.506]
```
  (slot-value accumulator 'current-digit))
```
Replacement in 2023/day1.lisp at line 17 [3.186]
B:BD[2.540] → [2.540:569]
```
	((matching :initform nil)))
```
[2.540]
[2.569]
```
  ((matching :initform nil)))
```

Replacement in 2023/day1.lisp at line 22 [3.186]

B:BD[2.695] → [2.695:882]

						 	 	 '("one" "two" "three" "four" "five"
						 	 	 	 "six" "seven" "eight" "nine" "ten")))
		(loop
			for n from 1 to 9
			collect (append (coerce (format nil "~a" n) 'list) n))))

[2.695]

[2.882]

                   '("one" "two" "three" "four" "five"
                      "six" "seven" "eight" "nine" "ten")))
    (loop
      for n from 1 to 9
      collect (append (coerce (format nil "~a" n) 'list) n))))

Replacement in 2023/day1.lisp at line 30 [3.186]

B:BD[2.989] → [2.989:1189]

  			  (mapcan
  			  	#'(lambda (entry)
								(if (and (consp entry) (equal value (car entry)))
								  	(list (cdr entry))))
						(append (slot-value accumulator 'matching) english-numbers))))

[2.989]

[3.300]

          (mapcan
            #'(lambda (entry)
                (if (and (consp entry) (equal value (car entry)))
                    (list (cdr entry))))
            (append (slot-value accumulator 'matching) english-numbers))))

Replacement in 2023/day1.lisp at line 37 [3.186]

B:BD[2.1242] → [2.1242:1339]

	(dolist (entry (slot-value accumulator 'matching))
		(if (numberp entry)
			  (return entry))))

[2.1242]

[2.1339]

  (dolist (entry (slot-value accumulator 'matching))
    (if (numberp entry)
        (return entry))))

Replacement in 2023/day1.lisp at line 42 [3.186]
B:BD[3.327] → [2.1341:1367]
```
	(let ((accs
					(mapcar
```
[3.327]
[2.1367]
```
  (let ((accs
          (mapcar
```

Replacement in 2023/day1.lisp at line 45 [3.186]

B:BD[2.1396] → [2.1396:1520]

           		 (list 'accumulator (make-instance which)'low () 'high ()))
						 '(digit-accumulator english-accumulator))))

[2.1396]

[2.1520]

                (list 'accumulator (make-instance which)'low () 'high ()))
             '(digit-accumulator english-accumulator))))

Replacement in 2023/day1.lisp at line 49 [3.186]

B:BD[2.1579] → [2.1579:1687]

          		 (push-char (getf ac 'accumulator) c)
          		 (let ((digit (peek (getf ac 'accumulator))))

[2.1579]

[2.1687]

               (push-char (getf ac 'accumulator) c)
               (let ((digit (peek (getf ac 'accumulator))))

Replacement in 2023/day1.lisp at line 61 [3.186]
B:BD[2.2029] → [2.2029:2051]
```
	(let ((p1 0) (p2 0))
```
[2.2029]
[2.2051]
```
  (let ((p1 0) (p2 0))
```

Replacement in 2023/day1.lisp at line 67 [3.186]

B:BD[2.2216] → [2.2216:2288]

          		 (setf p1 (+ p1 p1-1))
          		 (setf p2 (+ p2 p2-1))))

[2.2216]

[2.2288]

               (setf p1 (+ p1 p1-1))
               (setf p2 (+ p2 p2-1))))

Replacement in 2023/day1.lisp at line 73 [3.186]

B:BD[2.2395] → [2.2395:2523]

      		 (loop for result in (process s)
      		 			 for part from 1
      		 			 do (format T "Part ~a: ~a~%" part result))))

[2.2395]

[3.616]

           (loop for result in (process s)
                  for part from 1
                  do (format T "Part ~a: ~a~%" part result))))