]> gitweb.factorcode.org Git - factor.git/blobdiff - extra/project-euler/053/053.factor
core: Rename iota to <iota> so we can have TUPLE: iota ... ; instead of TUPLE: iota...
[factor.git] / extra / project-euler / 053 / 053.factor
index 2e2d31740192e3df3f9181cd66a1f5b79732de2e..3e6d6c386d6d8a40d97f990de95eaa883d66ddb1 100644 (file)
@@ -27,7 +27,7 @@ IN: project-euler.053
 ! --------
 
 : euler053 ( -- answer )
-    23 100 [a,b] [ dup iota [ nCk 1000000 > ] with count ] map-sum ;
+    23 100 [a,b] [ dup <iota> [ nCk 1000000 > ] with count ] map-sum ;
 
 ! [ euler053 ] 100 ave-time
 ! 52 ms ave run time - 4.44 SD (100 trials)