simon/ocaml-containers
1
0
Fork 0
mirror of https://github.com/c-cube/ocaml-containers.git synced 2025-12-06 11:15:31 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

bugfix in CCArray

Browse source
This commit is contained in:
Simon Cruanes 2014-06-12 11:56:13 +02:00
parent 2a27ebdf6d
commit 8b2f5deb14
1 changed files with 10 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

19
core/CCArray.ml
View file

@ -37,20 +37,21 @@ let foldi f acc a =
in recurse acc 0
let reverse_in_place a =
let n = Array.length a in
for i = 0 to (n-1)/2 do
let t = a.(i) in
a.(i) <- a.(n-i-1);
a.(n-i-1) <- t;
done
if a = [| |] then ()
else
let n = Array.length a in
for i = 0 to (n-1)/2 do
let t = a.(i) in
a.(i) <- a.(n-i-1);
a.(n-i-1) <- t;
done
(*$T
reverse_in_place [| |]; true
reverse_in_place [| 1 |]; true
let a = [| 1; 2; 3; 4; 5 |] in \
reverse_in_place a; \
a = [| 5;4;3;2;1 |]
*)
(*$T
let a = [| 1; 2; 3; 4; 5; 6 |] in \
reverse_in_place a; \
a = [| 6;5;4;3;2;1 |]