hg.stevelosh.com > rosalind

src/problems/prob.lisp @ 8f6ef53eac55 

ASPC, portability fixes
author Steve Losh <steve@stevelosh.com>
date Mon, 20 Jan 2020 13:41:09 -0500
parents 2735aa6aab79
children (none) 
(defpackage :rosalind/prob (:use :cl :rosalind :losh :iterate))
(in-package :rosalind/prob)

(defparameter *input*
  "ACGATACAA
0.129 0.287 0.423 0.476 0.641 0.742 0.783")

(defparameter *output*
  "-5.737 -5.217 -5.263 -5.360 -5.958 -6.628 -7.009")


(define-problem prob (data stream) *input* *output*
  (let ((dna (read-line data))
        (gc-contents (read-all-from-string (read-line data))))
    (flet ((prob (gc-content)
             (iterate
               (for base :in-string dna)
               (summing (log (u:base-probability gc-content base) 10)))))
      (u:float-string (mapcar #'prob gc-contents)))))