Liste des Groupes | Revenir à cl lisp |
(defun bindots (str)>
(let* ((indices (loop for c across str for i from 0
if (eql c #\.) collect i))
(width (length indices)))
(loop for i below (expt 2 width)
collect (let ((ret (copy-seq str)))
(loop for j in indices
do (setf (aref ret j)
(if (adjusted-logbitp j i width)
#\1
#\0)))
ret))))
what about substitute? common lisp is not scheme of the week.
Les messages affichés proviennent d'usenet.