From: cassowarii <cassowary@cassowary.me>
Date: Tue, 7 Jul 2026 18:56:44 +0000 (-0700)
Subject: project euler #1 (eventually i will add more convenience methods here)
X-Git-Url: https://www.git.cassowary.me/gitweb.cgi?a=commitdiff_plain;h=a20c80ffcd1b5ccbf59344335bde3ead655de804;p=sarabande.git

project euler #1 (eventually i will add more convenience methods here)
---

diff --git a/sample/project_euler/pe01.sa b/sample/project_euler/pe01.sa
new file mode 100644
index 0000000..fd39667
--- /dev/null
+++ b/sample/project_euler/pe01.sa
@@ -0,0 +1,21 @@
+def sum list {
+  let s = 0
+  list.each => elem {
+    s = s + elem
+  }
+  s
+}
+
+def iota N {
+  let L = []
+  let x = 1
+  while x < N {
+    L.push x
+    x = x + 1
+  }
+  L
+}
+
+sum iota(1000).filter => num {
+  [3, 5].any? => factor { num % factor == 0 }
+}