1 line
1.2 KiB
Plaintext
1 line
1.2 KiB
Plaintext
<!-- SC_OFF --><div class="md"><p>I'm doing this year's <a href="https://adventofcode.com/">Advent of Code</a> in Emacs Lisp. Is anyone else trying it this year?</p> <p>I'd love some feedback on my solutions!</p> <p><strong>Day 1</strong></p> <pre><code>(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) </code></pre> </div><!-- SC_ON -->   submitted by   <a href="https://www.reddit.com/user/-cvdub-"> /u/-cvdub- </a> <br/> <span><a href="https://www.reddit.com/r/emacs/comments/r7kk9n/advent_of_code_in_elisp_spoilers/">[link]</a></span>   <span><a href="https://www.reddit.com/r/emacs/comments/r7kk9n/advent_of_code_in_elisp_spoilers/">[comments]</a></span> |