home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Celestin Apprentice 2
/
Apprentice-Release2.iso
/
Tools
/
Languages
/
Caml Light 0.61
/
Source
/
src
/
lib
/
int.ml
< prev
next >
Encoding:
Amiga
Atari
Commodore
DOS
FM Towns/JPY
Macintosh
Macintosh JP
Macintosh to JP
NeXTSTEP
RISC OS/Acorn
Shift JIS
UTF-8
Wrap
Text File
|
1993-09-24
|
242 b
|
20 lines
|
[
TEXT/MPS
]
(* Operations on integers *)
let min n1 n2 =
if n1 <= n2 then n1 else n2
;;
let max n1 n2 =
if n1 >= n2 then n1 else n2
;;
let abs n =
if n < 0 then -n else n
;;
let lnot n =
n lxor (-1)
;;
let string_of_int = format_int "%ld";;