Rivoreo Source Code Repositories
src.rivoreo.one
/
compiler-explorer
/
84e30174484d2c46f10ed00ab51b70a27e662144
/
.
/
examples
/
ocaml
/
sum.ml
blob: a7d962c5cc05aab9991d759115bd4ccf4e99eaba [
file
] [
log
] [
blame
] [
raw
]
let
sum l
=
let
rec
sum' acc
=
function
|
[]
->
acc
|
x
::
tl
->
sum'
(
acc
+
x
)
tl
in
sum'
0
l