16 lines
350 B
Plaintext
16 lines
350 B
Plaintext
;; test
|
||
;; (format nil "~a~%" 6857)
|
||
|
||
;; https://projecteuler.net/problem=3
|
||
;; 13195 sayısının asal çarpanları 5, 7, 13 ve 29 dur.
|
||
;; 600851475143 sayısının en büyük asal çarpanını bulun.
|
||
|
||
kütüphane "std.kurt"
|
||
|
||
600851475143 2 döngü üst 1 > iken
|
||
2eş % 0 = ise
|
||
değiş üst / değiş
|
||
yoksa
|
||
1 +
|
||
yap
|
||
yap dump |