src/problems/subs.lisp @ c26fa4d063ba
REAR
author |
Steve Losh <steve@stevelosh.com> |
date |
Wed, 18 Sep 2019 11:52:27 -0400 |
parents |
11df545d1a41 |
children |
2735aa6aab79 |
(in-package :rosalind)
(defparameter *input-subs* "GATATATGCATATACTT
ATAT")
(defparameter *output-subs* "2 4 10")
(define-problem subs (data stream)
*input-subs*
*output-subs*
(let ((haystack (read-line data))
(needle (read-line data)))
(iterate
(for pos :seed -1 :then (search needle haystack :start2 (1+ pos)))
(while pos)
(collect (1+ pos) :into result)
(finally (return (str:join " " result))))))