Нахождение квадратного корня через dolist - Lisp

В коде представлена функция sqrt-them-all, которая вычисляет квадратный корень из списка чисел. Она использует вспомогательную функцию newton, которая вычисляет квадратный корень из одного числа с помощью метода Ньютона. Функция newton принимает три аргумента: x, e и z. Аргумент x — это число, из которого необходимо вычислить квадратный корень, e — это требуемая точность вычисления, а z — это начальное приближение для метода Ньютона (по умолчанию равное 1). Если абсолютное значение разности числа x и произведения числа z на само себя больше, чем требуемая точность e, то функция newton вызывает саму себя, передавая в качестве аргументов x, e и результат умножения числа z на само себя, округлённый до пятого знака после запятой. Иначе функция newton возвращает значение z. В функции sqrt-them-all список чисел передаётся в качестве аргумента w. Сначала он перевернутый, поскольку используется функция dolist, которая работает с элементами списка в обратном порядке. Аргумент ac — это аккумулятор, в который собираются корни вычисленных чисел. При выполнении функции sqrt-them-all сначала происходит итерация по перевёрнутому списку чисел. На каждой итерации вызывается функция newton с аргументами, полученными из списка. Результат вычисления функции newton добавляется в аккумулятор ac. В итоге функция sqrt-them-all возвращает список корней вычисленных чисел.