S
Вообще по другому пути
Size: a a a
2020 April 18
PG
типа у тебя данные отдельно и fuel отдельно
А
(defun n-iterations (n x)
(if (or (<= 0 n) (eps-root? x))
x
(n-iterations (1- n) (- x (/ (func x) (func' x))))))
Это правильно, но cl не гарантирует TCO
DL
Я как придумал, так и написал
просто фактически у тебя не используется счетчик, типикал рекурсивная задача
А
Кажется, никакой лисп не гарантирует
DL
Кажется, никакой лисп не гарантирует
схемы же
А
просто фактически у тебя не используется счетчик, типикал рекурсивная задача
Всё так, просто надо ограничить количество количество итераций
А
Это правильно, но cl не гарантирует TCO
Поэтому собственно и reduce
DL
Поэтому собственно и reduce
в кложе - recur вполне достаточен для данной цели
А
Всё так, но речь про cl
А
Видимо, лучшее решение всё-таки императивный loop + setf
PG
у тебя там чисто арифметика, попробуй сделать нерекурсивную формулу
А
Если бы это было возможно, целый раздел вычислительной математики был бы не нужен)
А
Да и это простой, скалярный алгоритм, мне нужна похожая концепция для более сложных вещей
PG
Надейся на TCO в борще
DL
ну и вообще, это же итеративный процесс, оно i
А
Ну ладно, я принял решение, спасибо за консультацию
A
A
Можно и на расте написать было