Rivoreo Source Code Repositories
src.rivoreo.one
/
compiler-explorer
/
d10b24a708abc76f096a80695a717e545be43644
/
.
/
examples
/
ocaml
/
max_array.ml
blob: c37d2bac8b54759e25eb35ec2adb8b80d0a855d7 [
file
] [
log
] [
blame
] [
raw
]
let
max_array array
=
let
max
=
ref
0
in
for
i
=
0
to
Array
.
length array
do
let
el
=
array
.(
i
)
in
if
el
>
!
max
then
max
:=
el
;
done
;
!
max