index : pub/hi/scratch	master simpler webstats
	Short Software projects to try things out

aboutsummaryrefslogtreecommitdiffstats

log msg author committer range

path: root/AoC2022/13/solver.lisp

	Commit message (Expand)	Author	Age	Files	Lines
*	run test on makefile not on script	Oscar Najera	2022-12-18	1	-1/+1
*	[AoC2022] Lisp	Oscar Najera	2022-12-13	1	-0/+42

generated by cgit v1.2.3 (git 2.43.2) at 2025-02-27 09:45:33 +0000

;;; solver.el --- Day 10 -*- lexical-binding: t; -*-
;;
;; Copyright (C) 2022 Óscar Nájera
;;
;; Author: Óscar Nájera <hi@oscarnajera.com>
;; Maintainer: Óscar Nájera <hi@oscarnajera.com>
;; Created: December 10, 2022
;; Modified: December 10, 2022
;;
;; This file is not part of GNU Emacs.
;;
;;; Commentary:
;;
;;  Day 10
;;
;;; Code:

(require 'subr-x)
(require 'cl-lib)
(require 'ert)

(defsubst solver-probe (cycle register)
  (when (memq cycle '(20 60 100 140 180 220))
    (* cycle register)))

(defsubst solver-draw-pixel (pixel register)
  (when (= 0 pixel)
    (insert "\n"))
  (insert
   (if (<= (1- register) pixel (1+ register))
       "#" ".")))

(defun solver-instructions (filename)
  (with-temp-buffer
    (insert-file-contents filename)
    (split-string (buffer-string) "\n")))

(defun solver (data-file)
  (let ((register 1) (cycle 1) measures)
    (with-temp-buffer
      (dolist (instruction (solver-instructions data-file))
        (solver-draw-pixel (mod (1- cycle) 40) register)
        (cl-incf cycle)
        (let ((step1 (solver-probe cycle register)) ;; the noop default
              (step2                                ;; addx takes 2 cycles
               (when (string-prefix-p "addx" instruction)
                 (solver-draw-pixel (mod (1- cycle) 40) register)
                 (cl-incf cycle)
                 (cl-incf register (string-to-number (cadr (split-string instruction))))
                 (solver-probe cycle register))))
          (when-let ((probe (or step1 step2)))
            (push probe measures))))
      (list
       (apply #'+ measures)
       (buffer-string)))))

(ert-deftest test-solver ()
  (should
   (equal (solver "eg-in")
          (list 13140 "
##..##..##..##..##..##..##..##..##..##..
###...###...###...###...###...###...###.
####....####....####....####....####....
#####.....#####.....#####.....#####.....
######......######......######......####
#######.......#######.......#######.....
.")))
  (should
   (equal (solver "input")
          (list 12540 "
####.####..##..####.####.#....#..#.####.
#....#....#..#....#.#....#....#..#.#....
###..###..#......#..###..#....####.###..
#....#....#.....#...#....#....#..#.#....
#....#....#..#.#....#....#....#..#.#....
#....####..##..####.####.####.#..#.####.
."))))

(provide 'solver)
;;; solver.el ends here