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/1.kurt
+++ b/examples/euler/1.kurt
@@ -0,0 +1,19 @@
+;; test
+;; (format nil "~a~%" 233168)
+
+;; https://projecteuler.net/problem=1
+;; 1000den küçük, 3 veya 5 in katı olan tüm sayıların toplamını bulun.
+;; Örnek: 10 için 3 + 5 + 6 + 9 = 23
+
+makro problem-girdi 1000 son
+
+0 3 döngü eş problem-girdi < iken
+    eş  3 % 0 =
+    üst 5 % 0 =
+    | ise
+        eş rot + değiş
+    yap
+    1 +
+yap düş
+dump
+