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 102
102
103
103
include Infix
104
104
105
+ [@@@ iflt 4.13 ]
106
+
105
107
let min : t -> t -> t = Stdlib. min
106
108
let max : t -> t -> t = Stdlib. max
107
109
110
+ [@@@ endif]
111
+
108
112
let floor_div a n =
109
113
if a < 0 && n > = 0 then
110
114
((a + 1 ) / n) - 1
Original file line number Diff line number Diff line change @@ -59,6 +59,8 @@ val to_string_binary : t -> string
59
59
(* * [to_string_binary x] returns the string representation of the integer [x], in binary.
60
60
@since 0.20 *)
61
61
62
+ [@@@ iflt 4.13 ]
63
+
62
64
val min : t -> t -> t
63
65
(* * [min x y] returns the minimum of the two integers [x] and [y].
64
66
@since 0.17 *)
@@ -67,6 +69,8 @@ val max : t -> t -> t
67
69
(* * [max x y] returns the maximum of the two integers [x] and [y].
68
70
@since 0.17 *)
69
71
72
+ [@@@ endif]
73
+
70
74
val range_by : step :t -> t -> t -> t iter
71
75
(* * [range_by ~step i j] iterates on integers from [i] to [j] included,
72
76
where the difference between successive elements is [step].
You can’t perform that action at this time.
0 commit comments