From 41ffa60a36284e087545bdcf413f7bb4b7c23369 Mon Sep 17 00:00:00 2001 From: Oscar Najera Date: Mon, 5 Dec 2022 12:46:56 +0100 Subject: [AoC2022] Elisp 05-01 --- AoC2022/05/solver.el | 50 ++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 50 insertions(+) create mode 100644 AoC2022/05/solver.el (limited to 'AoC2022/05/solver.el') diff --git a/AoC2022/05/solver.el b/AoC2022/05/solver.el new file mode 100644 index 0000000..59faf65 --- /dev/null +++ b/AoC2022/05/solver.el @@ -0,0 +1,50 @@ +;;; solver.el --- Day 05 -*- lexical-binding: t; -*- +;; +;; Copyright (C) 2022 Óscar Nájera +;; +;; Author: Óscar Nájera +;; Maintainer: Óscar Nájera +;; Created: December 05, 2022 +;; Modified: December 05, 2022 +;; +;; This file is not part of GNU Emacs. +;; +;;; Commentary: +;; +;; Day 05 +;; +;;; Code: +(require 'subr-x) +(defun solver-build-stacks () + (let* ((stacks-len (length + (split-string + (buffer-substring-no-properties (line-beginning-position) (line-end-position))))) + (stacks (make-vector stacks-len nil)) + next) + (message "%S" (list stacks-len (split-string + (buffer-substring-no-properties (point) (line-end-position))))) + + (while (setq next (search-backward "]" nil t)) + (push (intern (string (char-before))) + (aref stacks (/ (- next (line-beginning-position) 1) 4)))) + stacks)) + +(defun solver-apply-moves (stacks) + (while (re-search-forward (rx bol "move " (group (+ digit)) " from " (group (+ digit)) " to " (group (+ digit))) nil t) + (let ((from (1- (string-to-number (match-string 2)))) + (to (1- (string-to-number (match-string 3))))) + (dotimes (_ (string-to-number (match-string 1))) + (push (pop (aref stacks from)) (aref stacks to))))) + stacks) + +'(T P G V Q P F D H) +(with-temp-buffer + (insert-file-contents "input") + (re-search-forward "^ 1") + (thread-last + (solver-build-stacks) + (solver-apply-moves) + (seq-map #'car))) + +(provide 'solver) +;;; solver.el ends here -- cgit v1.2.3