128128# TODO : can we use floating point to speed this up? after we build a
129129# correctness test suite.
130130function * {T, f}(x:: FD{T, f} , y:: FD{T, f} )
131- powt = coefficient (FD{T,f})
131+ powt = coefficient (FD{T, f})
132132 quotient, remainder = fldmod (widemul (x. i, y. i), powt)
133133 reinterpret (FD{T, f}, _round_to_even (quotient, remainder, powt))
134134end
@@ -139,22 +139,22 @@ end
139139* {T, f}(x:: FD{T, f} , y:: Integer ) = reinterpret (FD{T, f}, T (x. i * y))
140140
141141function / {T, f}(x:: FD{T, f} , y:: FD{T, f} )
142- powt = coefficient (FD{T,f})
142+ powt = coefficient (FD{T, f})
143143 quotient, remainder = divrem (x. i, y. i)
144144 reinterpret (FD{T, f}, T (widemul (quotient, powt) + round (T, remainder // y. i * powt)))
145145end
146146
147147# These functions allow us to perform division with integers outside of the range of the
148148# FixedDecimal.
149149function / {T, f}(x:: Integer , y:: FD{T, f} )
150- powt = coefficient (FD{T,f})
150+ powt = coefficient (FD{T, f})
151151 xi, yi = widemul (x, powt), y. i
152152 quotient, remainder = divrem (xi, yi)
153153 reinterpret (FD{T, f}, T (quotient * powt + round (T, remainder // yi * powt)))
154154end
155155
156156function / {T, f}(x:: FD{T, f} , y:: Integer )
157- powt = coefficient (FD{T,f})
157+ powt = coefficient (FD{T, f})
158158 xi, yi = x. i, widemul (y, powt)
159159 quotient, remainder = divrem (xi, yi)
160160 reinterpret (FD{T, f}, T (quotient * powt + round (T, remainder // yi * powt)))
0 commit comments