Plaster
New
List
Login
text
default
anonymous
2023.06.28 08:43:51
(defun make-double (strand) (mapcar #'list strand (complement-strand strand) )) (defun make-double (strand) (do ((s strand (rest s)) (result nil (cons (list (first s) (complement-base (first s))) result))) ((null s) reverse result)))
Raw
Annotate
Repaste
Edit