From 009e4d5227239fbb7d3336171831e66880056577 Mon Sep 17 00:00:00 2001 From: Jacopo De Simoi Date: Tue, 2 Dec 2025 08:13:05 -0500 Subject: [PATCH] [p2] helper function --- p2/p2.org | 28 +++++++++++++++++----------- 1 file changed, 17 insertions(+), 11 deletions(-) diff --git a/p2/p2.org b/p2/p2.org index 00e2552..87b69b3 100644 --- a/p2/p2.org +++ b/p2/p2.org @@ -3,15 +3,21 @@ First load the data as a list of cons cells (stsrt . end) #+begin_src emacs-lisp :results none (with-temp-buffer - (insert-file-contents "input-test") - (advent/replace-multiple-regex-buffer - '(("," . "\n") - ("-" . " . ") - ("^" . "(") - ("$" . ")"))) - (goto-char (point-min)) - (insert "(setq data '(") - (goto-char (point-max)) - (insert "))") - (eval-buffer)) + (insert-file-contents "input-test") + (advent/replace-multiple-regex-buffer + '(("," . "\n") + ("-" . " . ") + ("^" . "(") + ("$" . ")"))) + (goto-char (point-min)) + (insert "(setq data '(") + (goto-char (point-max)) + (insert "))") + (eval-buffer)) #+end_src + +#+begin_src emacs-lisp :results none + (defun create-range (rng) + (-iterate #'1+ (car rng) (1+ (- (cdr rng) (car rng))))) +#+end_src +