diff options
Diffstat (limited to 'stdlib.slip')
| -rw-r--r-- | stdlib.slip | 11 |
1 files changed, 11 insertions, 0 deletions
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)) + ) + ) +)) |