48e5788f61e3

Cleanup
[view raw] [browse files]
author Steve Losh <steve@stevelosh.com>
date Wed, 07 Nov 2018 20:39:43 -0500
parents fc16ddecf261
children 4660a7402edb 1d0852c279f7
branches/tags (none)
files src/problems/lcsm.lisp

Changes

--- a/src/problems/lcsm.lisp	Wed Nov 07 20:38:33 2018 -0500
+++ b/src/problems/lcsm.lisp	Wed Nov 07 20:39:43 2018 -0500
@@ -71,8 +71,7 @@
 (define-problem lcsm (data stream)
     *input-lcsm*
     "AC"
-  (let ((lines (iterate (for (nil line) :in-fasta data)
-                        (collect line))))
+  (let ((lines (mapcar #'cdr (read-fasta-into-alist data))))
     (-<> (reduce #'longest-common-substrings-of-any (rest lines)
                  :initial-value (list (first lines)))
       (sort <> #'string<) ; tests