Program stack oveflow (Lisp)

[NiMdis]

Задание : найти заданное количество простых чисел (начиная от 2)

Решение :

(defun issimple (a b)
	(cond
		((> b (/ a 2)) T)
		((eq (mod a b) 0) Nil)
		(T (issimple a (+ b 1)))
	)
)

(defun subf (a b)
	(cond
		((eq a 0) Nil)
		((issimple b 2) (cons b (subf (- a 1) (+ b 1))))
		(T (subf a (+ b 1)))
	)
)

(defun fun (a)
	(subf a 2)
)

Проблема: программа отлично работает до ввода количества простых чисел = 341, если ввести больше ,то происходит Program stack oveflow
Помогите пожалуйста исправить данную ошибку, чтобы можно было вводить количество простых чисел 1000+

Пример ошибки :

[netrino]

Нужно переписать проверку в итеративном виде, вместо рекурсивного, тогда не будет проблем с нехваткой стека

(defun prime? (n)
  (loop for i from 2 to (/ n 2) do
    (if (= (mod n i) 0)
      (return-from prime? NIL)))
  T)

(defun find-n-primes (n)
  (labels ((next-prime (current)
               (loop for i from (1+ current) do
                 (if (prime? i)
                   (return i)))))
    (let ((current-prime 2))
      (dotimes (i n)
        (print current-prime)
        (setf current-prime (next-prime current-prime))))))

[NiMdis]

Сообщение от netrino

Нужно переписать проверку в итеративном виде, вместо рекурсивного, тогда не будет проблем с нехваткой стека

мм извиняюсь за наитупейший вопрос (просто совсем новичек в лиспе) а как результат то увидеть (что в командой строке вбивать какую функцию)
н

[netrino]

(find-n-primes 1000)

1000 - кол-во простых чисел, которое будет выведено на экран. Я надеюсь, сможете сами изменить, чтобы ф-ция возвращала список, а не выводила значения сразу же?

[NiMdis]

Сообщение от netrino

(find-n-primes 1000)

1000 - кол-во простых чисел, которое будет выведено на экран. Я надеюсь, сможете сами изменить, чтобы ф-ция возвращала список, а не выводила значения сразу же?

попытаюсь огромное вам спасибо

[netrino]

Не стоит благодарности

[arrowsf1]

Чё на лекции делал то