hg.stevelosh.com > rosalind

src/problems/rstr.lisp @ e3aefcbf364c 

Cache Uniprot results on the filesystem

This will make only the first `(run-tests)` on a given computer take forever,
instead of the first `(run-tests)` of a given Lisp session.  It will also
hopefully make the Uniprot folks not hate me.
author Steve Losh <steve@stevelosh.com>
date Fri, 24 Jan 2020 23:05:16 -0500
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)))))