PG
(defun alist-to-plist (alist plist)
(pcase alist
(`((,key . ,value) . ,rest)
(alist-to-plist rest (cl-list* key value plist)))
(_ plist)))
а вот за cl-list* спасибо, я то искал cons*
Size: a a a
2020 July 31
DL
(defun alist-to-plist (alist)
(loop for (key . value) in alist
nconc (list key value)))
отвратительно
DL
за loop и for - стреляю в упор
VL
отвратительно
imperative, beautiful, minimal :3
VL
но деструктуризации не хватает sooqa
DL
вообще, будь елишп более приличным, самый короткий вариант был бы рекурсивный
VL
вот за шо кложуристов не люблю, за то что они первыми додумались
VL
и ведь гениально же
VL
ну йомае
DL
так, падажжи, cl-defun умеет в деструктуризацию же вроде
VL
в pcase, destructuring-bind и loop РАЗНАЯ деструктуризация
VL
так, падажжи, cl-defun умеет в деструктуризацию же вроде
да, CL'овскую
DL
в pcase, destructuring-bind и loop РАЗНАЯ деструктуризация
угу, боль
VL
которая умеет только plist'ы разгребать
VL
а кложуровская умеет во все структуры данных
DL
которая умеет только plist'ы разгребать
а консы не?
VL
а консы не?
:(
DL
VL
а кложуровская умеет во все структуры данных
я думаю вот шо
VL
именно синтаксис для мапов и позволил запилить такое