blob: 4589786aa56d604b1d93b4ac42301ce852e4d89b (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
;; 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
|
