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

math.parser: faster using byte-arrays.

db4
John Benediktsson 2013-03-27 17:54:24 -07:00
parent ae4e53fd5b
commit b5b0839426
1 changed files with 14 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -311,11 +311,21 @@ PRIVATE>
<PRIVATE
CONSTANT: TENS
"0000000000111111111122222222223333333333444444444455555555556666666666777777777788888888889999999999"
CONSTANT: TENS B{
48 48 48 48 48 48 48 48 48 48 49 49 49 49 49 49 49 49 49 49
50 50 50 50 50 50 50 50 50 50 51 51 51 51 51 51 51 51 51 51
52 52 52 52 52 52 52 52 52 52 53 53 53 53 53 53 53 53 53 53
54 54 54 54 54 54 54 54 54 54 55 55 55 55 55 55 55 55 55 55
56 56 56 56 56 56 56 56 56 56 57 57 57 57 57 57 57 57 57 57
}
CONSTANT: ONES
"0123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789"
CONSTANT: ONES B{
48 49 50 51 52 53 54 55 56 57 48 49 50 51 52 53 54 55 56 57
48 49 50 51 52 53 54 55 56 57 48 49 50 51 52 53 54 55 56 57
48 49 50 51 52 53 54 55 56 57 48 49 50 51 52 53 54 55 56 57
48 49 50 51 52 53 54 55 56 57 48 49 50 51 52 53 54 55 56 57
48 49 50 51 52 53 54 55 56 57 48 49 50 51 52 53 54 55 56 57
}
: (two-digit) ( num accum -- num' accum )
[