fix
This commit is contained in:
parent
393b73cba5
commit
fb6b659308
@ -42,7 +42,8 @@ let bitonique t =
|
|||||||
grows := false)
|
grows := false)
|
||||||
else
|
else
|
||||||
if t.(!i) < t.(!i+1) then
|
if t.(!i) < t.(!i+1) then
|
||||||
res := false
|
res := false;
|
||||||
|
i := !i + 1
|
||||||
done;
|
done;
|
||||||
!res
|
!res
|
||||||
;;
|
;;
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user