File tree Expand file tree Collapse file tree 2 files changed +8
-0
lines changed Expand file tree Collapse file tree 2 files changed +8
-0
lines changed Original file line number Diff line number Diff line change 102102
103103include Infix
104104
105+ [@@@ iflt 4.13 ]
106+
105107let min : t -> t -> t = Stdlib. min
106108let max : t -> t -> t = Stdlib. max
107109
110+ [@@@ endif]
111+
108112let floor_div a n =
109113 if a < 0 && n > = 0 then
110114 ((a + 1 ) / n) - 1
Original file line number Diff line number Diff line change @@ -59,6 +59,8 @@ val to_string_binary : t -> string
5959(* * [to_string_binary x] returns the string representation of the integer [x], in binary.
6060 @since 0.20 *)
6161
62+ [@@@ iflt 4.13 ]
63+
6264val min : t -> t -> t
6365(* * [min x y] returns the minimum of the two integers [x] and [y].
6466 @since 0.17 *)
@@ -67,6 +69,8 @@ val max : t -> t -> t
6769(* * [max x y] returns the maximum of the two integers [x] and [y].
6870 @since 0.17 *)
6971
72+ [@@@ endif]
73+
7074val range_by : step :t -> t -> t -> t iter
7175(* * [range_by ~step i j] iterates on integers from [i] to [j] included,
7276 where the difference between successive elements is [step].
You can’t perform that action at this time.
0 commit comments