src/problems/lexf.lisp @ cd3fc11e3298
CONV, SPEC
author |
Steve Losh <steve@stevelosh.com> |
date |
Thu, 04 Aug 2022 22:30:18 -0400 |
parents |
2735aa6aab79 |
children |
(none) |
(defpackage :rosalind/lexf (:use :cl :rosalind :losh :iterate))
(in-package :rosalind/lexf)
(defparameter *input*
"A C G T
2")
(defparameter *output*
"AA
AC
AG
AT
CA
CC
CG
CT
GA
GC
GG
GT
TA
TC
TG
TT
")
(define-problem lexf (data stream) *input* *output*
(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))))))