This should be good for Float, no longer need FRAC.
diff --git a/src/algebra/float.spad b/src/algebra/float.spad
index 3996e67..301612a 100644
--- a/src/algebra/float.spad
+++ b/src/algebra/float.spad
@@ -977,6 +977,14 @@
(q0, q1) := (q1, q2)
(s, t) := (t, r)
+ hashUpdate!(s : HashState, x : %) : HashState ==
+ m : I := x.mantissa
+ e : I := x.exponent
+ while (tmp := m exquo BASE) case I repeat
+ m := tmp::I
+ e := e + 1
+ s := hashUpdate!(s, m)
+ hashUpdate!(s, e)
--% Float: arbitrary precision floating point arithmetic domain
--
You received this message because you are subscribed to the Google Groups
"FriCAS - computer algebra system" group.
To unsubscribe from this group and stop receiving emails from it, send an email
to [email protected].
To post to this group, send email to [email protected].
Visit this group at https://groups.google.com/group/fricas-devel.
For more options, visit https://groups.google.com/d/optout.
