over push -> suffix!, over push-all -> append!

[factor.git] / extra / project-euler / 017 / 017.factor

diff --git a/extra/project-euler/017/017.factor b/extra/project-euler/017/017.factor
index 53513691ff795147030153c9568818e9042a7d0e..827e478da02bfa14e4c79557cc51e24b2cb1d9a2 100644 (file)
--- a/extra/project-euler/017/017.factor
+++ b/extra/project-euler/017/017.factor
@@ -24,7 +24,7 @@ IN: project-euler.017
 ! --------
 
 : euler017 ( -- answer )
-    1000 [1,b] SBUF" " clone [ number>text over push-all ] reduce [ Letter? ] count ;
+    1000 [1,b] SBUF" " clone [ number>text append! ] reduce [ Letter? ] count ;
 
 ! [ euler017 ] 100 ave-time
 ! 15 ms ave run time - 1.71 SD (100 trials)