hg.stevelosh.com > rosalind

2bb2d67ebe22 

Fix LGIS
[view raw] [browse files]
author Steve Losh <steve@stevelosh.com>
date Mon, 24 Dec 2018 15:39:03 -0500
parents 638d42c1ebe6
children 9b2cfb112dd6
branches/tags (none)
files src/problems/lgis.lisp

Changes

--- a/src/problems/lgis.lisp	Mon Dec 24 15:23:56 2018 -0500
+++ b/src/problems/lgis.lisp	Mon Dec 24 15:39:03 2018 -0500
@@ -90,7 +90,7 @@
   "
   (let* ((sequence (coerce sequence 'vector))
          (n (length sequence))
-         (tail-indexes (make-array (1+ n) :fill-pointer 1))
+         (tail-indexes (make-array (1+ n) :fill-pointer 1 :initial-element nil))
          (predecessors (make-array n :fill-pointer 0)))
     (coerce
       (if (zerop n)