src/problems/lexf.lisp @ 97dda08645b3 default tip

SCSP
author Steve Losh <steve@stevelosh.com>
date Mon, 08 Aug 2022 19:26: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))))))