Cleanup
parent
379566374c
commit
f2eeeb4ae8
|
@ -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 ;
|
||||
|
||||
|
|
Loading…
Reference in New Issue