added new examples

2024-08-22 00:24:19 +03:00
parent 4367febcd7
commit 4c8409da35
10 changed files with 203 additions and 6 deletions
--- a/examples/euler/5.kurt
+++ b/examples/euler/5.kurt
@@ -0,0 +1,31 @@
+;; test
+;; (format nil "~a~%" 232792560)
+
+;; 2520, 1den 10a kadar tüm sayılara tam bölünen en küçük sayıdır.
+;; 1den 20ye kadar tüm sayılara tam* bölünebilen en küçük sayıyı bulun.
+;; * kalansız bölünen
+
+kütüphane "std.kurt"
+
+makro N  20 son
+makro cevap  bel son
+
+makro gcd (a b -- c)
+    döngü üst iken
+        üst % değiş
+    yap
+    değiş düş
+son
+
+makro lcd (a b -- c)
+    2eş * rot rot gcd /
+son
+
+cevap 1 store64
+1 döngü eş N < iken
+    cevap
+    üst cevap load64 lcd
+    store64
+    1 +
+yap
+cevap load64 dump