hg.stevelosh.com > rosalind

src/problems/revc.lisp @ 8de2e6d7c9d9 

Inline utils into problem files, add PRTM
author Steve Losh <steve@stevelosh.com>
date Sat, 03 Nov 2018 17:02:03 -0400
parents 11df545d1a41
children e279056b1a5b 
(in-package :rosalind)

(define-problem revc (data string)
    "AAAACCCGGT"
    "ACCGGGTTTT"
  (flet ((dna-complement (base)
           (case base
             (#\A #\T)
             (#\T #\A)
             (#\G #\C)
             (#\C #\G)
             (t base)))) ; newline etc
    (map-into data #'dna-complement data)
    (nreverse data)))