diff options
author | Sébastien Dailly <sebastien@chimrod.com> | 2017-11-09 21:43:45 +0100 |
---|---|---|
committer | Sébastien Dailly <sebastien@chimrod.com> | 2017-11-09 21:43:45 +0100 |
commit | 678bb5c2500be0071117600f23e5a557c39fb403 (patch) | |
tree | 8d8210bf9736cb5820fb6b2f83de32cbf6c708a9 /dataType.ml | |
parent | 163a82655b1b3649c9bff4db05f487db3a992a40 (diff) |
Added some functions
Diffstat (limited to 'dataType.ml')
-rwxr-xr-x | dataType.ml | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/dataType.ml b/dataType.ml index 8e5ead0..b5e077e 100755 --- a/dataType.ml +++ b/dataType.ml @@ -38,6 +38,11 @@ module Num = struct and den = Q.den t in
Q.of_bigint @@ Z.fdiv num den
+ let round_down t =
+ let num = Q.num t
+ and den = Q.den t in
+ Q.of_bigint @@ Z.div num den
+
let ge = Q.geq
let ge = Q.geq
|