tuckerevans/advent-of-code - Change 7HVRJE25W4MAXHEKAOOVSQ5XX6C22ER6ISVC62OMOT7CK6UEDRSQC

Update day 1 for part 2

Created by tuckerevans on October 13, 2023

7HVRJE25W4MAXHEKAOOVSQ5XX6C22ER6ISVC62OMOT7CK6UEDRSQC

Dependencies

[2] INNKXBOUNIQHMH7U6UQUU6LAUL35AGVNF27UJRZ3LBRDAUUYPW3QC

In channels

main

Change contents

Replacement in 2022/day01/main.lisp at line 25 [2.34]

B:BD[2.680] → [2.680:896]

(let ((elf-list ((mapcar #'(lambda (l) (reduce #'+ l)) (reverse calorie-list))))
      (let ((max-elf (apply #'max elf-list)))
	(progn (print max-elf)
	       (let ((cnt 0))
		 (print (max-index max-elf elf-list 1))

[2.680]

(let ((elf-list (sort (mapcar #'(lambda (l) (reduce #'+ l)) (reverse calorie-list)) #'>)))
  (let ((max-elfs (subseq  elf-list 0 3)))
    (progn (print (apply #'+ max-elfs)))))