Среди двухзначных чисел найдите те, сумма квадратов которых делится на 13

(defun task (lst)
  (cond ((null lst) nil)
        (t (let ((n1 (\ (car lst) 10))
                 (n0 (% (car lst) 10)))
           (cond ((zerop (% (+ (* n1 n1) (* n0 n0)) 13)) (cons  (car lst) (task (cdr lst))))
                 (t (task (cdr lst))))))))
 
==> task
 
(task (range 10 99))
 
==> (15 18 23 32 46 47 51 64 69 74 79 81 96 97)

(defun task (&optional (n 10))
  (cond ((> n 99) nil)
         (t (let ((n1 (\ n 10))
                 (n0 (% n 10)))
           (cond ((zerop (% (+ (* n1 n1) (* n0 n0)) 13)) (cons  n (task (+ n 1))))
                 (t (task (+ n 1))))))))
 
 
==> task
 
(task)
 
==> (15 18 23 32 46 47 51 64 69 74 79 81 96 97)

(defun square-digits (n)
  (loop for a from 1 to 9
        nconc (loop for b from 0 to 9
                    when (zerop (rem (+ (* a a) (* b b)) n))
                    collect (+ (* a 10) b))))
 
> (square-digits 13)
(15 18 23 32 46 47 51 64 69 74 79 81 96 97)

(defun int-digits (n &optional ac)
  (if (zerop n) ac (int-digits (truncate n 10) (cons (rem n 10) ac))))
 
(defun square-digits-times (a b n)
  (loop for m from a to b
        when (zerop (rem (loop for z in (int-digits m)
                               sum (* z z))
                         n))
        collect m))
 
> (square-digits-times 10 99 13)
(15 18 23 32 46 47 51 64 69 74 79 81 96 97)
> (square-digits-times 100 200 13)
(105 108 134 139 143 150 180 193)

(defn task ()
    (defn test (n)
        (defn go (m)
              (defn square (n) (* n n))
              (cond (= 0 m) 0 (+ (square (mod m 10)) (go (/ m 10)))))
        (= 0 (mod (go n) 13)))
    (filter test (list-from-to 10 99)))
(printLn (str "результат :" (task)))