src/problems/eval.lisp @ 0a5694fe577c

MMCH
author Steve Losh <steve@stevelosh.com>
date Fri, 24 Jan 2020 22:42:19 -0500
parents 2735aa6aab79
children (none)
(defpackage :rosalind/eval (:use :cl :rosalind :losh :iterate))
(in-package :rosalind/eval)

(defparameter *input* "10
AG
0.25 0.5 0.75")

(defparameter *output* "0.422 0.563 0.422")

(define-problem eval (data stream) *input* *output*
  (let* ((string-length (read data))
         (substring (read-line data))
         (gc-contents (read-all data))
         (chances (- string-length (1- (length substring)))))
    (u:float-string (mapcar (lambda (gc-content)
                              (* chances (u:sequence-probability
                                           (coerce gc-content 'double-float)
                                           substring)))
                            gc-contents))))