hg.stevelosh.com > rosalind

src/problems/aspc.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 888f5c30c949
children (none) 
(defpackage :rosalind/aspc (:use :cl :rosalind :losh :iterate))
(in-package :rosalind/aspc)


(define-problem aspc (data stream) "6 3" "42"
  (let ((n (read data))
        (m (read data)))
    (u:Σ (k m n :modulo 1000000)
      (u:binomial-coefficient n k))))


#; Scratch --------------------------------------------------------------------