# HG changeset patch
# User Steve Losh <steve@stevelosh.com>
# Date 1550943733 18000
# Node ID 64aa58880d55892b85facf4ea8aedb0f080c3f70
# Parent  474d88a2af2ebcadf7618e2a3ba59a55ebcd555a
EVAL

diff -r 474d88a2af2e -r 64aa58880d55 src/problems/eval.lisp
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/src/problems/eval.lisp	Sat Feb 23 12:42:13 2019 -0500
@@ -0,0 +1,20 @@
+(in-package :rosalind)
+
+(defparameter *input-eval* "10
+AG
+0.25 0.5 0.75")
+
+(defparameter *output-eval* "0.422 0.563 0.422")
+
+(define-problem eval (data stream)
+    *input-eval*
+    *output-eval*
+  (let* ((string-length (read data))
+         (substring (read-line data))
+         (gc-contents (read-all data))
+         (chances (- string-length (1- (length substring)))))
+    (float-string (mapcar (lambda (gc-content)
+                            (* chances (sequence-probability
+                                         (coerce gc-content 'double-float)
+                                         substring)))
+                          gc-contents))))