Liste des Groupes |
* HenHanna <v29p14$2mr5l$2@dont-email.me> :< > How can i write this function simply? (in Common Lisp)
Wrote on Sat, 18 May 2024 01:31:32 -0700:
>
>
(defun adjusted-logbitp (pos num total-width)
(let* ((int-len (integer-length num))
(i (- pos (- total-width int-len))))
(if (< i 0)
nil
(logbitp i num))))
>
(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))))
Les messages affichés proviennent d'usenet.