max/lean4-htt
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 2

feat: Float from big numbers

Browse source
This commit is contained in:
Leonardo de Moura 2020-04-06 14:05:17 -07:00
parent f66039f7f0
commit 8e84a8c9ec
3 changed files with 13 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
src/runtime/mpz.h
View file

@ -77,6 +77,7 @@ public:
unsigned long int get_unsigned_long_int() const { lean_assert(is_unsigned_long_int()); return mpz_get_ui(m_val); }
unsigned int get_unsigned_int() const { lean_assert(is_unsigned_int()); return static_cast<unsigned>(get_unsigned_long_int()); }
size_t get_size_t() const;
double get_double() const { return mpz_get_d(m_val); }
mpz & operator=(mpz const & v) { mpz_set(m_val, v.m_val); return *this; }
mpz & operator=(mpz && v) { swap(*this, v); return *this; }

2
src/runtime/object.cpp
View file

@ -1453,7 +1453,7 @@ extern "C" double lean_float_of_nat(b_lean_obj_arg a) {
if (lean_is_scalar(a)) {
return static_cast<double>(lean_unbox(a));
} else {
return std::nan(""); // TODO(Leo): improve
return mpz_value(a).get_double();
}
}

11
tests/lean/run/float_from_bignum.lean Normal file
View file

@ -0,0 +1,11 @@
def check (b : Bool) : IO Unit :=
unless b $ throw $ IO.userError "check failed"
def tst1 : IO Unit := do
check (Nat.toFloat (10^40) > Nat.toFloat (10^30));
check (Nat.toFloat (10^40) >= Nat.toFloat (10^30));
check (Nat.toFloat (10^40) == Nat.toFloat (10^40));
check (Nat.toFloat (10^80) > Nat.toFloat (10^40));
pure ()
#eval tst1