From: cassowarii <cassowary@cassowary.me>
Date: Fri, 10 Jul 2026 23:16:15 +0000 (-0700)
Subject: project euler #6
X-Git-Url: https://www.git.cassowary.me/gitweb.cgi?a=commitdiff_plain;h=34d27f7ec8e539037061fd999487bab2737076aa;p=sarabande.git

project euler #6
---

diff --git a/sample/project_euler/pe06.sa b/sample/project_euler/pe06.sa
new file mode 100644
index 0000000..6c32957
--- /dev/null
+++ b/sample/project_euler/pe06.sa
@@ -0,0 +1,21 @@
+def sum list {
+  let acc = 0
+  list.each => elem {
+    acc = acc + elem
+  }
+  acc
+}
+
+def square num {
+  num * num
+}
+
+def sum_squares list {
+  list.map(square) | sum _
+}
+
+def square_sum list {
+  sum list | square _
+}
+
+list::iota 1, 101 | (square_sum _) - (sum_squares _) | println _