tabs vs spaces (need better editor settings)

quickdudley

Aug 9, 2024, 1:34 AM

AP6VOSJ54EZTXKT2EDFPQGXQY777ORD3EZ3K44YCSHI3U767LJ2QC

Dependencies

• [2] ITMNMCQX Solution for 2023 part 2
• [3] LMKWOZVD Solution for 2023 day 1 part 1

Change contents

• replacement in 2023/day1.lisp at line 2
  [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
  [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
  [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
  [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
  [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
  [2.540]→[2.540:569](∅→∅)
  − ((matching :initform nil)))
  [2.540]

  [2.569]
  + ((matching :initform nil)))
• replacement in 2023/day1.lisp at line 22
  [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
  [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
  [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.327]→[2.1341:1367](∅→∅)
  − (let ((accs

  − (mapcar
  [3.327]

  [2.1367]
  + (let ((accs

  + (mapcar
• replacement in 2023/day1.lisp at line 45
  [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
  [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
  [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
  [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
  [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))))