15% improvement

2008-09-13 06:13:49 -05:00 · 2008-09-13 06:13:49 -05:00 · d47a76b69b
parent a211e44bb9
commit d47a76b69b
1 changed files with 3 additions and 1 deletions
--- a/extra/benchmark/spectral-norm/spectral-norm.factor
+++ b/extra/benchmark/spectral-norm/spectral-norm.factor
@ -32,8 +32,10 @@ IN: benchmark.spectral-norm
 : eval-AtA-times-u ( u n -- seq )
    [ eval-A-times-u ] [ eval-At-times-u ] bi ; inline

+: ones ( n -- seq ) [ 1.0 ] F{ } replicate-as ; inline
+
 :: u/v ( n -- u v )
-    n 1.0 <repetition> >float-array dup
+    n ones dup
    10 [
        drop
        n eval-AtA-times-u