project euler #6

diff --git a/sample/project_euler/pe06.sa b/sample/project_euler/pe06.sa
new file mode 100644 (file)
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 _