Finish porting 2017, and do 2017/08
author |
Steve Losh <steve@stevelosh.com> |
date |
Sun, 01 Dec 2019 15:40:34 -0500 |
parents |
5b5c61ad8d2b |
children |
4835e36925af |
(defpackage :advent/2017/05 #.cl-user::*advent-use*)
(in-package :advent/2017/05)
(defun fresh-simple-vector (sequence)
(if (typep sequence 'simple-vector)
(copy-seq sequence)
(coerce sequence 'simple-vector)))
(defun compute (data modification-function)
(iterate
(with maze = (fresh-simple-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))))))