hg.stevelosh.com > advent

src/2019/days/day-02.lisp @ cd781337a694 

Restructure file layout, add 2017 days 14 & 15
author Steve Losh <steve@stevelosh.com>
date Thu, 05 Dec 2019 20:45:46 -0500
parents src/2019/day-02.lisp@646d00acb54a
children 182bdd87fd9e 
(defpackage :advent/2019/02 #.cl-user::*advent-use*)
(in-package :advent/2019/02)

(define-problem (2019 2) (data read-numbers) (3790689 6533)
  (let ((program (fresh-vector data)))
    (flet ((run (a b)
             (setf (aref program 1) a
                   (aref program 2) b)
             (advent/intcode:run program)))
      (values
        (run 12 2)
        (iterate
          (for-nested ((a :from 0 :to 99)
                       (b :from 0 :to 99)))
          (when (= 19690720 (run a b))
            (return (+ (* 100 a) b))))))))