Rivoreo Source Code Repositories
src.rivoreo.one
/
compiler-explorer
/
d489044f9614658b1dacd021d495a416693acef9
/
.
/
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