diff options
Diffstat (limited to 'examples/euler/3.kurt')
-rw-r--r-- | examples/euler/3.kurt | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/examples/euler/3.kurt b/examples/euler/3.kurt new file mode 100644 index 0000000..4589786 --- /dev/null +++ b/examples/euler/3.kurt @@ -0,0 +1,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
\ No newline at end of file |