src/problems/lexf.lisp @ 05bc7da3473f
Update README
author |
Steve Losh <steve@stevelosh.com> |
date |
Sat, 18 Jan 2020 14:04:41 -0500 |
parents |
7fd1feb477de |
children |
2735aa6aab79 |
(in-package :rosalind)
(defparameter *input-lexf*
"A C G T
2")
(defparameter *output-lexf*
"AA
AC
AG
AT
CA
CC
CG
CT
GA
GC
GG
GT
TA
TC
TG
TT
")
(define-problem lexf (data stream)
*input-lexf*
*output-lexf*
(let* ((alphabet (sort (remove #\space (read-line data)) #'char<))
(n (read data))
(string (make-string n)))
(with-output-to-string (s)
(recursively ((n n)
(i 0))
(if (zerop n)
(progn (write-string string s)
(terpri s))
(map nil (lambda (ch)
(setf (aref string i) ch)
(recur (1- n) (1+ i)))
alphabet))))))