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

math.parser: slightly faster ((pow)).

db4
John Benediktsson 2015-06-11 20:00:53 -07:00
parent 5c23f10e50
commit ccddbebf94
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
core/math/parser/parser.factor
View File

@ -58,9 +58,14 @@ TUPLE: float-parse
[ store-exponent ] [ drop f ] if* ; inline [ store-exponent ] [ drop f ] if* ; inline
: ((pow)) ( base x -- base^x ) : ((pow)) ( base x -- base^x )
iota 1 rot [ nip * ] curry reduce ; inline [ 1 ] 2dip
[ dup zero? ] [
dup odd? [ [ [ * ] keep ] [ 1 - ] bi* ] when
[ sq ] [ 2/ ] bi*
] until 2drop ; inline
: (pow) ( base x -- base^x ) : (pow) ( base x -- base^x )
integer>fixnum-strict
dup 0 >= [ ((pow)) ] [ [ recip ] [ neg ] bi* ((pow)) ] if ; inline dup 0 >= [ ((pow)) ] [ [ recip ] [ neg ] bi* ((pow)) ] if ; inline
: add-mantissa-digit ( float-parse i number-parse n digit quot -- float-parse' n/f ) : add-mantissa-digit ( float-parse i number-parse n digit quot -- float-parse' n/f )