From b5b083942695cd33db6d04226042b4291e7e62e9 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Wed, 27 Mar 2013 17:54:24 -0700
Subject: [PATCH] math.parser: faster using byte-arrays.

---
 core/math/parser/parser.factor | 18 ++++++++++++++----
 1 file changed, 14 insertions(+), 4 deletions(-)

diff --git a/core/math/parser/parser.factor b/core/math/parser/parser.factor
index 0aac50e70f..7d6d3c2a3e 100644
--- a/core/math/parser/parser.factor
+++ b/core/math/parser/parser.factor
@@ -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 )
     [