[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Using list with append
From: |
Heime |
Subject: |
Using list with append |
Date: |
Wed, 09 Nov 2022 12:09:04 +0000 |
This function makes a list of lists.
(defun pmchart selectr nc)
"TODO."
(seq-mapn
(lambda (p q)
(message "p: %S" p)
(list q (append (make-list p "xxxxx")
(make-list (- nc 1 p) ""))))
selectr
descr))
Calling
(pmchart '("Peter" "Paul") [3 2] 5)
gives the list
'(("Peter" ("xxxxx" "xxxxx" "xxxxx" ""))
("Paul" ("xxxxx" "xxxxx" "" "")))
But I want to adapt it to get this
'(("Peter" "xxxxx" "xxxxx" "xxxxx" "")
("Paul" "xxxxx" "xxxxx" "" ""))
Doing the following did not help
(list (append q (make-list p "xxxxx") (make-list (- nc 1 p) ""))))
- Using list with append,
Heime <=