]> gitweb.factorcode.org Git - factor.git/blobdiff - extra/benchmark/spectral-norm/spectral-norm.factor
core: Rename iota to <iota> so we can have TUPLE: iota ... ; instead of TUPLE: iota...
[factor.git] / extra / benchmark / spectral-norm / spectral-norm.factor
index f8ab57028cde5048f0e02ca22decb1aee3a04fff..cdfca74101140d906f75148dfd5bc5be1848347c 100644 (file)
@@ -10,8 +10,8 @@ SPECIALIZED-ARRAY: double
 IN: benchmark.spectral-norm
 
 :: inner-loop ( u n quot -- seq )
-    n iota [| i |
-        n iota 0.0 [| j |
+    n <iota> [| i |
+        n <iota> 0.0 [| j |
             u i j quot call +
         ] reduce
     ] double-array{ } map-as ; inline