1 files changed, 19 insertions, 0 deletions
diff --git a/examples/euler/1.kurt b/examples/euler/1.kurt
new file mode 100644
index 0000000..e3a3032
--- /dev/null
+++ 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
+    
+\ No newline at end of file