summaryrefslogtreecommitdiff
path: root/examples/euler/3.kurt
diff options
context:
space:
mode:
Diffstat (limited to 'examples/euler/3.kurt')
-rw-r--r--examples/euler/3.kurt16
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