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