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

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

diff --git a/extra/project-euler/265/265.factor b/extra/project-euler/265/265.factor
index 261a9e8ff20b5167c33039d9990da895a8c706a9..3a527c9d428a34238b3d9c66aad1494b1f4d3fa3 100644 (file)
--- a/extra/project-euler/265/265.factor
+++ b/extra/project-euler/265/265.factor
@@ -28,7 +28,7 @@ IN: project-euler.265
 CONSTANT: N 5
 
 : decompose ( n -- seq )
-    N iota [ drop [ 2/ ] [ 1 bitand ] bi ] map nip reverse ;
+    N <iota> [ drop [ 2/ ] [ 1 bitand ] bi ] map nip reverse ;
 
 : bits ( seq -- n )
     0 [ [ 2 * ] [ + ] bi* ] reduce ;
@@ -37,7 +37,7 @@ CONSTANT: N 5
     unclip decompose append [ 1 bitand ] map ;
 
 : rotate-bits ( seq -- seq' )
-    dup length iota [ cut prepend bits ] with map ;
+    dup length <iota> [ cut prepend bits ] with map ;
 
 : ?register ( acc seq -- )
     complete rotate-bits