package enumerators

  1. Overview
  2. Docs
package enumerators
Legend:
Page
Library
Module
Module type
Parameter
Class
Class type
Source

Source file beint.ml

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
include Int64

let two = 2L

external lt : int64 -> int64 -> bool = "%lessthan"

external le : int64 -> int64 -> bool = "%lessequal"

external gt : int64 -> int64 -> bool = "%greaterthan"

external ge : int64 -> int64 -> bool = "%greaterequal"

external equal : int64 -> int64 -> bool = "%equal"

external not_equal : int64 -> int64 -> bool = "%notequal"

let of_int64 i = i

let to_int64 i = i

let min x y = if lt x y then x else y

let max x y = if lt y x then x else y