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

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

diff --git a/extra/project-euler/151/151.factor b/extra/project-euler/151/151.factor
index 1c5ee22b75a6221544804f387b281bfcdf0e42bd..6b20511d607a5f4e72108a5149be6d028199da22 100644 (file)
--- a/extra/project-euler/151/151.factor
+++ b/extra/project-euler/151/151.factor
@@ -62,7 +62,7 @@ DEFER: (euler151)
         { { 0 0 1 0 } [ { 0 0 0 1 } (euler151) 1 + ] }
         { { 0 1 0 0 } [ { 0 0 1 1 } (euler151) 1 + ] }
         { { 1 0 0 0 } [ { 0 1 1 1 } (euler151) 1 + ] }
-        [ [ dup length iota [ pick-sheet ] with map-sum ] [ sum ] bi / ]
+        [ [ dup length <iota> [ pick-sheet ] with map-sum ] [ sum ] bi / ]
      } case ] cache ;
 
 : euler151 ( -- answer )