From 4c8409da359cf0da14214ccc939c10ac759f76a5 Mon Sep 17 00:00:00 2001
From: mRnea <akannemre@gmail.com>
Date: Thu, 22 Aug 2024 00:24:19 +0300
Subject: added new examples

---
 examples/euler/5.kurt | 31 +++++++++++++++++++++++++++++++
 1 file changed, 31 insertions(+)
 create mode 100644 examples/euler/5.kurt

(limited to 'examples/euler/5.kurt')

diff --git a/examples/euler/5.kurt b/examples/euler/5.kurt
new file mode 100644
index 0000000..f23dcc3
--- /dev/null
+++ 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
\ No newline at end of file
-- 
cgit v1.2.3