From: cassowarii <cassowary@cassowary.me>
Date: Tue, 7 Jul 2026 21:56:07 +0000 (-0700)
Subject: project euler 02
X-Git-Url: https://git.cassowary.me/gitweb.cgi?a=commitdiff_plain;h=38dc9ac398664f74f570bbd1afe5a8929fbb95ff;p=sarabande.git

project euler 02
---

diff --git a/sample/project_euler/pe02.sa b/sample/project_euler/pe02.sa
new file mode 100644
index 0000000..0b7ae20
--- /dev/null
+++ b/sample/project_euler/pe02.sa
@@ -0,0 +1,20 @@
+let next_fibonacci = (=> {
+  let fib_a = 0
+  let fib_b = 1
+  return => {
+    let temp = fib_a
+    fib_a = fib_b
+    fib_b = fib_b + temp
+    fib_b
+  }
+})()
+
+let accumulator = 0
+
+let f = 0
+while f < 4_000_000 {
+  f = next_fibonacci()
+  accumulator = accumulator + f if f %% 2
+}
+
+accumulator