You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
26 lines
632 B
26 lines
632 B
4 years ago
|
(*
|
||
|
|
* Copyright (c) Facebook, Inc. and its affiliates.
|
||
|
|
*
|
||
|
|
* This source code is licensed under the MIT license found in the
|
||
|
|
* LICENSE file in the root directory of this source tree.
|
||
|
|
*)
|
||
|
|
|
||
|
|
open NS0
|
||
|
|
|
||
|
|
let pp = Q.pp_print
|
||
|
|
let hash = Hashtbl.hash
|
||
|
|
let hash_fold_t s q = Int.hash_fold_t s (hash q)
|
||
|
|
let sexp_of_t q = Sexp.Atom (Q.to_string q)
|
||
|
|
let t_of_sexp = function Sexp.Atom s -> Q.of_string s | _ -> assert false
|
||
|
|
let of_z = Q.of_bigint
|
||
|
|
|
||
|
|
let pow q = function
|
||
|
|
| 1 -> q
|
||
|
|
| 0 -> Q.one
|
||
|
|
| -1 -> Q.inv q
|
||
|
|
| n ->
|
||
|
|
let q, n = if n < 0 then (Q.inv q, -n) else (q, n) in
|
||
|
|
Q.make (Z.pow (Q.num q) n) (Z.pow (Q.den q) n)
|
||
|
|
|
||
|
|
include Q
|