src/2017/days/day-05.lisp @ dd27f6b2d778

2021/05 and 2021/06
author Steve Losh <steve@stevelosh.com>
date Mon, 06 Dec 2021 19:38:12 -0800
parents 182bdd87fd9e
children (none)
(advent:defpackage* :advent/2017/05)
(in-package :advent/2017/05)

(defun compute (data modification-function)
  (iterate
    (with maze = (fresh-vector data))
    (with bound = (1- (length maze)))
    (with address = 0)
    (while (<= 0 address bound))
    (counting t)
    (for offset = (aref maze address))
    (callf (aref maze address) modification-function)
    (incf address offset)))

(define-problem (2017 5) (data read-all) (342669 25136209)
  (values
    (compute data #'1+)
    (compute data (lambda (value) (+ value (if (>= value 3) -1 1))))))