IN: benchmark.spectral-norm-simd
:: inner-loop ( u n quot -- seq )
- n 4 /i iota [| i |
- n iota [| j | u i j quot call ] [ v+ ] map-reduce
+ n 4 /i <iota> [| i |
+ n <iota> [| j | u i j quot call ] [ v+ ] map-reduce
] double-4-array{ } map-as ; inline
: eval-A ( i j -- n )