stumpwm/bioinf.lisp @ 46c8ae0df6cc default tip

(in-package :stumpwm-user)


(defun random-base ()
  (random-elt "GCAT"))

(defun random-dna-string (n)
  (let ((result (make-string n)))
    (dotimes (i n)
      (setf (char result i) (random-base)))
    result))

(defcommand random-dna (n) ((:integer "Length: "))
  (pbcopy (random-dna-string n)))