Size: a a a
DL
(cl-defun wtf (((k . v) . kvs) &optional acc &aux (d (append acc (list k v))))
(if kvs
(wtf kvs d)
d))
PG
(cl-defun wtf (((k . v) . kvs) &optional acc &aux (d (append acc (list k v))))
(if kvs
(wtf kvs d)
d))
DL
VL
VL
DL
DL
VL
DL
(cl-defun wtf (((k . v) . kvs)
&optional acc)
(let ((res (append acc (list k v))))
(if kvs
(wtf kvs res)
res)))
A
A
A
PG
(defun alist->plist (alist &optional acc)
(pcase alist
('() acc)
(`((,prop . ,val) . ,tl)
(alist->plist tl (cl-list* prop val acc)))))PG
A
PG
DL
(defun alist->plist (alist &optional acc)
(pcase alist
('() acc)
(`((,prop . ,val) . ,tl)
(alist->plist tl (cl-list* prop val acc)))))DL
(defun alist-to-plist (alist)
(reduce (cl-defun _ (acc (k . v))
(append acc (list k v)))
alist
:initial-value nil))
A