Задано целое число. Найти все простые числа, меньшие заданного. CommonLisp

@graew · Регистрация: 23.04.2022

Author24 — интернет-сервис помощи студентам

Доброго времени суток! Помогите решить задачу, пожалуйста.

@Catstail · 23.04.2022, 14:46

Lisp

(defun is-prime (n &optional (k 2))
  (if (> (* k k) n) t 
      (if (zerop (% n k)) nil (is-prime n (+ k 1)))))
 
(defun task (n &optional (k 2))
  (if (> k n) nil 
      (if (is-prime k) (cons k (task n (+ k 1)))
                       (task n (+ k 1)))))
 
==> TASK
 
(task 100)
 
==> (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)

@graew 0 / 0 / 0 Регистрация: 23.04.2022 Сообщений: 4
		1
	Задано целое число. Найти все простые числа, меньшие заданного. CommonLisp 23.04.2022, 13:09. Показов 797. Ответов 1 Метки lisp (Все метки) Доброго времени суток! Помогите решить задачу, пожалуйста. 0

	23.04.2022, 14:46