Sha256: 4fa1d4c484ed2525522a92abb756410b740e331c6a98274bf414b47d593630e2
Contents?: true
Size: 456 Bytes
Versions: 396
Compression:
Stored size: 456 Bytes
Contents
(defpackage #:dna
(:use #:common-lisp)
(:export #:to-rna))
(in-package #:dna)
(defun validate-strand (strand)
(or (every #'(lambda (c) (find c "ATCGU"))
(coerce strand 'list))
(signal 'error)))
(defparameter dna->rna
'((#\C . #\G) (#\G . #\C) (#\A . #\U) (#\T . #\A)))
(defun to-rna (strand)
(validate-strand strand)
(concatenate 'string
(mapcar #'(lambda (c) (cdr (assoc c dna->rna)))
(coerce strand 'list))))
Version data entries
396 entries across 396 versions & 1 rubygems