You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
29 lines
608 B
29 lines
608 B
#+title: Solution to p6 |
|
|
|
First load the data as a list of cons cells (start . end) |
|
#+begin_src emacs-lisp :results none |
|
(with-temp-buffer |
|
(insert-file-contents "input") |
|
(advent/replace-multiple-regex-buffer |
|
'( |
|
("^" . "(") |
|
("$" . ")") |
|
)) |
|
(goto-char (point-min)) |
|
(insert "(setq data '(") |
|
(goto-char (point-max)) |
|
(insert "))") |
|
(eval-buffer)) |
|
#+end_src |
|
|
|
This is for part 1. Quite straightforward |
|
#+begin_src emacs-lisp |
|
(-sum (--map (apply (car it) (cdr it)) |
|
(apply #'-zip-lists (-rotate 1 data)))) |
|
#+end_src |
|
|
|
#+begin_src emacs-lisp |
|
|
|
#+end_src |
|
|
|
|
|
|