This commit is contained in:
Arkitu 2025-12-27 11:31:19 +00:00
parent 393b73cba5
commit fb6b659308

View File

@ -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
;; ;;