db4
Slava Pestov 2008-09-12 18:15:26 -05:00
parent 379566374c
commit f2eeeb4ae8
1 changed files with 1 additions and 1 deletions

View File

@ -41,7 +41,7 @@ IN: benchmark.spectral-norm
] times ; inline
: spectral-norm ( n -- norm )
u/v [ v. ] keep norm-sq /f sqrt ;
u/v [ v. ] [ norm-sq ] bi /f sqrt ;
HINTS: spectral-norm fixnum ;