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/4.kurt
+++ 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