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/4.kurt | 32 ++++++++++++++++++++++++++++++++
 1 file changed, 32 insertions(+)
 create mode 100644 examples/euler/4.kurt

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

diff --git a/examples/euler/4.kurt b/examples/euler/4.kurt
new file mode 100644
index 0000000..08bc962
--- /dev/null
+++ b/examples/euler/4.kurt
@@ -0,0 +1,32 @@
+;; test
+;; (format nil "~a~%" 906609)
+
+;; palindrom sayılar ters çevrildiğinde kendine eşit olan sayılardır.
+;; iki basamaklı iki sayının çarpımından oluşan en büyük palindrom
+;; 9009 = 91 x 99 dur.
+;; üç basamaklı iki sayının çarpımından oluşan en büyük palindromu bulun.
+
+kütüphane "std.kurt"
+
+makro palindrome? (a -- bool)
+    eş
+    0 döngü üst 0 > iken
+        10 * üst 10 % + ;;eş dump
+        değiş 10 / değiş
+    yap değiş düş
+    = 
+son
+
+bel 0 store64
+100 döngü eş 1000 < iken
+    100 döngü eş 1000 < iken
+        2eş * eş palindrome? ise
+            eş bel load64 > ise
+                eş bel değiş store64
+            yap
+        yap düş
+        1 +
+    yap düş
+    1 +
+yap düş
+bel load64 dump
-- 
cgit v1.2.3