From bbbe6a4718deedb8ff19d6be15470e9af8a33e1c Mon Sep 17 00:00:00 2001 From: Joel Kronqvist Date: Sat, 16 Aug 2025 02:05:10 +0300 Subject: feat: sum for lists/vectors in stdlib --- stdlib.slip | 11 +++++++++++ 1 file changed, 11 insertions(+) (limited to 'stdlib.slip') diff --git a/stdlib.slip b/stdlib.slip index dce325a..e73674e 100644 --- a/stdlib.slip +++ b/stdlib.slip @@ -19,3 +19,14 @@ (- x 1) ) ) + + +(let sum (fix + (fn sum' ((Int ...) -> Int) ((Int ...) -> Int) + (fn vec (Int ...) Int + (case vec + ((h ..t) (+ h (sum' t))) + (_ 0)) + ) + ) +)) -- cgit v1.2.3