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 (file)
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 }
+}