steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Cleanup

db4
Slava Pestov 2008-09-12 18:15:26 -05:00
parent 379566374c
commit f2eeeb4ae8
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
extra/benchmark/spectral-norm/spectral-norm.factor
View File

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