PG
https://gist.github.com/sirikid/89e1ad750af6f54f41c6e69c672999cb
Size: a a a
PG
SS
PG
Elapsed time: 14.739302s (10.464240s in 31 GCs)
PG
PG
DL
Elapsed time: 14.739302s (10.464240s in 31 GCs)
DL
PG
DL
VL
VL
(defun alist->plist (alist)
(mapcan
;; (lambda (elt) (list (car elt) (cdr elt))) ;; 0.06
;; (lambda (elt) (cl-destructuring-bind (hd . tl) elt (list hd tl))) ;; 1.2
;; (cl-function (lambda ((hd . tl)) (list hd tl))) ;; 0.4 (1.3)
;; (cl-defun _ ((hd . tl)) (list hd tl)) ;; 0.9 (1.8-2.0)
(pcase-lambda (`(,hd . ,tl)) (list hd tl)) ;; 0.3 (0.65)
alist))
PG
VL
PG
PG
PG
A
SS
A
SS
Elapsed time: 14.739302s (10.464240s in 31 GCs)