Як я і обіцяв колись та десь (лінь шукати) показати програмку на ліспі, що розкладає число на прості множники (кому вже страшно, можуть далі не читати, найстрашніша частина для нешарящих - під катом) - показую. Так як знайти ту, що я написав раніше, я не зміг, то наваяв нову:
(defun rozk(i x)
((< x (* i i)) x)
((= 0 (mod x i)) ((print i) (rozk 2 (/ x i))))
(rozk (+ i 1) x)
)
(defun rozklad_prosti(t)
(rozk 2 t))