c398dc399875efa9f9252c3af32320597d5c7d8f — T T 8 months ago 323023f + fb1db24
Merge branch 'master' of git.sr.ht:~ttt/aoc18
1 files changed, 1 insertions(+), 3 deletions(-)

M day14.lisp
M day14.lisp => day14.lisp +1 -3
@@ 12,7 12,6 @@ (return-from number-to-list (values (cons n tail) (1+ len))))
    (when (< n 20)
      (let ((tt (elt *t* n)))
-       (declare (type (array fixnum) tt))
        (assert (= 2 (length tt)))
        (return-from number-to-list (values
  				   (cons (aref tt 0) (cons (aref tt 1) tail)) (the fixnum (+ len 2))))))


@@ 33,8 32,7 @@ (mod (+ 1 its-pos (aref scores its-pos)) score-len))
  
  (defun gen-recipies (recipies current-idxs)
-   (declare (optimize (speed 3) (safety 1) (compilation-speed 0))
- 	   (type (array fixnum) recipies))
+   (declare (optimize (speed 3) (safety 1) (compilation-speed 0)))
    (multiple-value-bind (new-recipies new-rec-len) (gen-new-recipies recipies current-idxs)
      (declare (dynamic-extent new-recipies))
      (let* ((new-len (+ (the fixnum (length recipies)) (the fixnum new-rec-len)))