src/problems/rstr.lisp @ a95ed046cc2c
NWCK
author |
Steve Losh <steve@stevelosh.com> |
date |
Fri, 05 Aug 2022 00:16:11 -0400 |
parents |
2735aa6aab79 |
children |
(none) |
(defpackage :rosalind/rstr (:use :cl :rosalind :losh :iterate))
(in-package :rosalind/rstr)
(defparameter *input* "90000 0.6
ATAGCCGA")
(defparameter *output* "0.689")
(define-problem rstr (data stream) *input* *output*
(let* ((n (read data))
(gc (coerce (read data) 'double-float))
(dna (read-line data))
(prob (u:sequence-probability gc dna)))
(u:float-string (- 1 (expt (- 1 prob) n)))))