Перевести код функции SquareDigitsSum (Haskell -> Lisp) - Lisp - Ответ 13089509

(defun drop (n stream)
  (if (= n 0) stream
      (drop (- n 1) (tail stream))))
 ; заводим вспомогательную функцию take, которая берет из потока первые n 
 ; элементов
(defun take (n stream)
  (if (= n 0) *the-empty-stream*
      (cons (head stream) (take (- n 1) (tail stream)))))
 
(defun int-digits (n &optional ac)
  (if (zerop n) ac
      (int-digits (truncate n 10) (cons (rem n 10) ac))))
 
(defun square-digits-sum  (n)
  (reduce #'+ (int-digits (* n n))))
 
(print (take 5 (square-digits-sum 200)))
(print (take 10 (square-digits-sum 136)))
(print (take 3 (square-digits-sum 155)))

(defmacro delay (expr)
  `(cons NIL (lambda () ,expr)))
 
;; функция вычисления обещания  
(defun force (delay)
  (if (car delay) 
      (cdr delay)
      (progn (setf (car delay) T)
             (setf (cdr delay) (funcall (cdr delay))))))
 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; макрос для создания потока из головы a и хвоста str
;; результат вычисления str - поток
(defmacro cons-stream (a str)
  `(cons ,a (delay ,str)))      
 
;; функция извлечения головы потока (вместо car-stream)
(defun head (stream)
  (car stream))
 
;; функция извлечения хвоста потока (вместо cdr-stream)
(defun tail (stream)
  (force (cdr stream)))
 
;; функция проверки потока на пустоту
(defun empty-stream-p (stream)
  (null stream))  
 
;; определение глобальной переменной - пустой поток
(defvar *the-empty-stream* '())  
 
;; функция фильтрации потока stream с помощью предиката p
(defun filter-stream (p stream)
  (cond ((empty-stream-p stream) *the-empty-stream*)
        ((funcall p (head stream)) 
         (cons-stream (head stream) 
                      (filter-stream p (tail stream))))
        (T (filter-stream p (tail stream)))))
 
(defun drop (n stream)
  (if (= n 0) stream
      (drop (- n 1) (tail stream))))
 ; заводим вспомогательную функцию take, которая берет из потока первые n 
 ; элементов
(defun take (n stream)
  (if (= n 0) *the-empty-stream*
      (cons (head stream) (take (- n 1) (tail stream)))))
 
(defvar *ones*) ; объявление переменной
(setq *ones* (cons-stream 1 *ones*)) 
 
;; функция, выдающая поток целых чисел, начинающийся с n
(defun integers-starting-from (n)
  (cons-stream n (integers-starting-from (+ n 1))))
  
;; функция, получающая поток простых чисел из потока stream при условии,
;; что stream - возрастающая последовательность целых чисел в которой
;; головной элемент - простое число и в stream нет чисел, у которых
;; делителями являются числа меньшие головного элемента (кроме единицы).
(defun sieve (stream)
  (cons-stream
    (head stream)
    (sieve 
      (filter-stream
        (lambda (x) (not (divisible-p x (head stream))))
        (tail stream)))))
 
(defun int-digits (n &optional ac)
  (if (zerop n) ac
      (int-digits (truncate n 10) (cons (rem n 10) ac))))
 
(defun square-digits-sum  (n)
  (reduce #'+ (int-digits (* n n))))
 
(print (take 5 (square-digits-sum 200)))
(print (take 10 (square-digits-sum 136)))
(print (take 3 (square-digits-sum 155)))