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

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

diff --git a/examples/euler/2.kurt b/examples/euler/2.kurt
new file mode 100644
index 0000000..a1c6a67
--- /dev/null
+++ b/examples/euler/2.kurt
@@ -0,0 +1,21 @@
+;; test
+;; (format nil "~a~%" 4613732)
+
+;; https://projecteuler.net/problem=2
+;; Fibonacci serisi,
+;; f(0) = 0, f(1) = 1 ve f(n) = f(n-1) + f(n-2)
+;; şeklinde tanımlanmış bir dizidir.
+;; 0 1 1 2 3 5 8 13 21 34 55 89... gibi
+;; 4 milyondan küçük ve çift sayı olan ögelerin toplamını bulun.
+
+kütüphane "std.kurt"
+
+bel 0 store64
+0 1 döngü eş 4000000 < iken
+    eş 2 % 0 = ise
+        eş bel load64 +
+        bel değiş store64
+    yap
+    değiş üst +
+yap düş düş
+bel load64 dump
-- 
cgit v1.2.3