Original bug ID: 3719
Reporter: administrator
Status: closed
Resolution: fixed
Priority: normal
Severity: minor
Category: ~DO NOT USE (was: OCaml general)

Bug description

Full_Name: Frank
Version: 3.08.2
OS: W2K
Submission from: cmbg-cache-5.server.ntli.net (62.253.128.15)

let sop bop a b =
string_of_big_int
(bop
(big_int_of_string a)
(big_int_of_string b))

let s1 = sop div_big_int "-10" "-20"
let s2 = sop mod_big_int "-10" "-20"

let i1 = (-10) / (-20)
let i2 = (-10) mod (-20)

-- gives

val s1 : string = "-1"
val s2 : string = "-30"
val i1 : int = 0
val i2 : int = -10

-- if q = x div y
-- and r = x mod y
-- then x = q*y + r however for big ints abs(r) is not less than abs(y).