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/iev (:use :cl :rosalind :losh :iterate))
(in-package :rosalind/iev)
(define-problem iev (data stream)
"1 0 0 1 0 1"
"3.5000"
(let* ((dd (read data))
(dh (read data))
(dr (read data))
(hh (read data))
(hr (read data))
(rr (read data)))
(u:float-string
;; It's just a weighted average…
(* 2 (+ (* dd 1)
(* dh 1)
(* dr 1)
(* hh 3/4)
(* hr 1/2)
(* rr 0)))
4)))