src/problems/dna.lisp @ e3dc1e5b762c
GRPH
author | Steve Losh <steve@stevelosh.com> |
---|---|
date | Sat, 03 Nov 2018 16:39:10 -0400 |
parents | 11df545d1a41 |
children | e279056b1a5b |
(in-package :rosalind) (define-problem dna (data string) "AGCTTTTCATTCTGACTGCAACGGGCAATATGTCTCTGTGTGGATTAAAAAAAGAGTGTCTGATAGCAGC" "20 12 17 21" (let ((results (frequencies data))) (format nil "~D ~D ~D ~D" (gethash #\A results 0) (gethash #\C results 0) (gethash #\G results 0) (gethash #\T results 0)))) ;; (problem-dna "AT")