I'm doing this year's Advent of Code in Emacs Lisp. Is anyone else trying it this year?

I'd love some feedback on my solutions!

Day 1

(defun read-lines (filePath) "Return a list of lines of a file at filePath." (with-temp-buffer (insert-file-contents filePath) (split-string (buffer-string) "\n" t))) (setq measurements (mapcar #'string-to-number (read-lines "day-1-input.txt"))) (defun count-increases (func) (let ((iter-list measurements) (num-increases 0)) (while iter-list (if (< (pop iter-list) (or (funcall func iter-list) 0)) (cl-incf num-increases))) num-increases)) ;; Part 1 (count-increases #'car) ;; Part 2 (count-increases #'caddr)