Emacs lisp solution for day one of advent of code 2022

AOC-d1.el

(defun cals-per-elf ()
  (with-temp-buffer
    (progn (insert "((")
           (insert-file-contents "~/res.txt")
           (while (re-search-forward "^$" nil t)
             (replace-match ")(" nil nil))
           (end-of-buffer)(insert "))")
           (goto-char 0))
    (mapcar (lambda (food-carried)
              (cl-reduce #'+ food-carried))
            (read (current-buffer)))))

(defun aoc-day1-part1 ()
  (cl-reduce #'max
             (cals-per-elf)))
(defun aoc-day1-part1 ()
  (cl-reduce #'+
             (seq-take (cl-sort (cals-per-elf)
                                #'>)
                       3)))

I like the style!
I would take apply '+ instead of cl-reduce, but it's the same way I think
Peter