SA
Я и сам напишу
Size: a a a
2020 October 20
YK
партийное задание: сделать клон этой штуки с лиспом вместо самопального микроскрипта https://www.youtube.com/watch?v=RfR7PQhYnJ8
2020 October 21
SA
блин можете хейтить сколько хотите но дот синтаксис реально облегчает написание больших структур ппц
a
блин можете хейтить сколько хотите но дот синтаксис реально облегчает написание больших структур ппц
У меня нету никакого хейта, но по-моему он ничего не облегчает. Если есть макрос, который позволяет записывать применение фкнкций постфиксно, то не вижу вообще никакой разницы.
SA
мм я про слоты
SA
(defun rotate-right (node tree)
"Rotates right at the node; resetes the tree root if needed"
(with-snames
(with-slots (parent left right) node
(let ((new left))
(setf left new.right)
(when new.right
(setf new.right.parent node))
(setf new.parent parent)
(cond ((not parent)
(setf tree.root new))
((eq node parent.right)
(setf parent.right new))
(t (setf parent.left new)))
(setf new.right node
parent new)))))
SA
как бы
SA
(when new.right
(setf new.right.parent node))
было ужасно
SA
до этого
SA
я писал писал и понял что чет оч тяжко
a
(defun rotate-right (node tree)
"Rotates right at the node; resetes the tree root if needed"
(with-snames
(with-slots (parent left right) node
(let ((new left))
(setf left new.right)
(when new.right
(setf new.right.parent node))
(setf new.parent parent)
(cond ((not parent)
(setf tree.root new))
((eq node parent.right)
(setf parent.right new))
(t (setf parent.left new)))
(setf new.right node
parent new)))))
`(setf (parent (right new)) node)` прям настолько хуже `(setf new.right.parent node)`?
Я еще подозреваю, что если это не read синтаксис, то в имплементации наверняка есть баг, который будет долго не замечен.
Я еще подозреваю, что если это не read синтаксис, то в имплементации наверняка есть баг, который будет долго не замечен.
a
(when new.right
(setf new.right.parent node))
было ужасно
Я б например не писал
Я б писал
Вот хоть
(when new.right
(setf new.right.parent node))
Я б писал
(swhen (right new)
(setf (parent it) node))
Вот хоть
it, например, с этими точками будет правильно работать?SA
ваще то будет
SA
оно просто идет по дереву и рекурсивно заменяет штуки с точками на нестед слоты
SA
с твоими функциями проблема в том что
SA
по дефолту такие не определеяются
SA
то есть для структур я хз
SA
там кажется хоть какой то конк нейм да укажи
a
оно просто идет по дереву и рекурсивно заменяет штуки с точками на нестед слоты
Какому еще дереву?