steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Revert "math.functions: make float sqrt a little faster." 

This reverts commit 7ae5e9c0c11bbc82ac7854bfa5964723e1cb42d9.
db4
John Benediktsson 2013-11-25 16:42:52 -08:00
parent 76e32e8a5f
commit 1cfcf39bda
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
basis/math/functions/functions.factor
View File

@ -16,10 +16,9 @@ M: ratio >fraction [ numerator ] [ denominator ] bi ; inline
GENERIC: sqrt ( x -- y ) foldable GENERIC: sqrt ( x -- y ) foldable
M: real sqrt >float sqrt ; inline M: real sqrt
>float dup 0.0 <
M: float sqrt [ neg fsqrt [ 0.0 ] dip rect> ] [ fsqrt ] if ; inline
dup 0.0 < [ neg fsqrt [ 0.0 ] dip rect> ] [ fsqrt ] if ; inline
: factor-2s ( n -- r s ) : factor-2s ( n -- r s )
#! factor an integer into 2^r * s #! factor an integer into 2^r * s