Какое простое число является самым большим множителем числа 600851475143? - Lisp

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

Какое простое число является самым большим множителем числа 600851475143? Написать программы на Common Lisp и F# Помогите пожалуйста

Код к задаче: «Какое простое число является самым большим множителем числа 600851475143? - Lisp»

textual
(defun max-prime-divisor (n)
 (do ((a 2 (1+ a)))
     ((> (* a a) n) n)
  (if (zerop (mod n a))
   (return (max-prime-divisor (/ n a))))))
 
? (max-prime-divisor 600851475143)
6857

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


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