n
tco
нннууууу
Size: a a a
2020 July 31
n
ручной)
DL
а че там у кложи с редьюсом?
у кложи PDS
DL
ну, копирования лишнего не будет
VL
тебе все равно в данном случае нужно новую структуру создать
DL
(defun alist-to-plist-2 (alist)
(reduce (lambda (acc x)
`(,@acc ,(car x) ,(cdr x)))
alist
:initial-value nil))
DL
кстати, чуть ускорилось так, но всё равно на копейки
DL
10000 раз за 15.5 сек на моей машине
DL
а вообще посмотрел, cl-reduce устроен как говно
VL
ручной tco лол)
VL
вообще я не понимаю претензий к recur
VL
ничего же не меняется
VL
абсолютно
DL
я тоже не понимаю, в newlisp и того нет
VL
ну типо это все-равно что return-from в борще
VL
который как выяснилось можно вызывать из других функций 🌚
n
да к recur нет претензий на самом деле
n
просто это ручной tco indeed
n
и pds тут реально зароляют