emacs/var/elfeed/db/data/f0/f068a9da198ffbe399c81c72794f16140e061af6
2022-01-03 12:49:32 -06:00

1 line
1.2 KiB
Plaintext

<!-- SC_OFF --><div class="md"><p>I&#39;m doing this year&#39;s <a href="https://adventofcode.com/">Advent of Code</a> in Emacs Lisp. Is anyone else trying it this year?</p> <p>I&#39;d love some feedback on my solutions!</p> <p><strong>Day 1</strong></p> <pre><code>(defun read-lines (filePath) &quot;Return a list of lines of a file at filePath.&quot; (with-temp-buffer (insert-file-contents filePath) (split-string (buffer-string) &quot;\n&quot; t))) (setq measurements (mapcar #&#39;string-to-number (read-lines &quot;day-1-input.txt&quot;))) (defun count-increases (func) (let ((iter-list measurements) (num-increases 0)) (while iter-list (if (&lt; (pop iter-list) (or (funcall func iter-list) 0)) (cl-incf num-increases))) num-increases)) ;; Part 1 (count-increases #&#39;car) ;; Part 2 (count-increases #&#39;caddr) </code></pre> </div><!-- SC_ON --> &#32; submitted by &#32; <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> &#32; <span><a href="https://www.reddit.com/r/emacs/comments/r7kk9n/advent_of_code_in_elisp_spoilers/">[comments]</a></span>