14 lines
324 B
OCaml
14 lines
324 B
OCaml
|
|
||
|
|
|
||
|
|
let i1 = IntInterval.Interval (3, 4)
|
||
|
|
|
||
|
|
let i2 = IntInterval.Interval (3, 6)
|
||
|
|
|
||
|
|
let () =
|
||
|
|
print_endline ("An interval: " ^ IntInterval.to_string i1) ;
|
||
|
|
|
||
|
|
print_endline ("Another interval: " ^ IntInterval.to_string i2) ;
|
||
|
|
|
||
|
|
print_endline ("Their intresection: " ^
|
||
|
|
IntInterval.to_string (IntInterval.intersect i1 i2)) ;
|