Список простых чисел на заданном интервале - Lisp

Формулировка задачи:

Доброго времени суток! Напишите программу, формирующую список простых чисел на заданном интервале.

Код к задаче: «Список простых чисел на заданном интервале - Lisp»

textual
(defun primes (n m)
  (cond ((> n m) nil)
        ((primep n) (cons n (primes (1+ n) m)))
        (t (primes (1+ n) m))))
 
(defun primep (n)
  (loop for a from 2 to (isqrt n)
        never (zerop (mod n a))))
 
> (primes 1 100)
(1 2 3 5 7 11 13 17 19 23 29 31 37 41 43 47 53 59 61 67 71 73 79 83 89 97)

5   голосов, оценка 3.800 из 5


СОХРАНИТЬ ССЫЛКУ