core: Rename iota to <iota> so we can have TUPLE: iota ... ; instead of TUPLE: iota...

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

diff --git a/extra/project-euler/057/057.factor b/extra/project-euler/057/057.factor
index 4e35c9da58b2358bad80ef72099adae145857489..2850881ac52fa7602bf673c9f130b02a8b6cb555 100644 (file)
--- a/extra/project-euler/057/057.factor
+++ b/extra/project-euler/057/057.factor
@@ -36,7 +36,7 @@ IN: project-euler.057
     >fraction [ number>string length ] bi@ > ; inline
 
 : euler057 ( -- answer )
-    0 1000 iota [ drop 2 + recip dup 1 + longer-numerator? ] count nip ;
+    0 1000 <iota> [ drop 2 + recip dup 1 + longer-numerator? ] count nip ;
 
 ! [ euler057 ] 100 ave-time
 ! 1728 ms ave run time - 80.81 SD (100 trials)