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

Added inv

cvs
Doug Coleman 2005-10-26 01:58:59 +00:00
parent 695f1179a7
commit 483d1951f6
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
contrib/math/utils.factor
View File

@ -31,3 +31,7 @@ USING: errors kernel sequences math ;
: c. ( v v -- x ) : c. ( v v -- x )
#! Complex inner product. #! Complex inner product.
0 [ ** + ] 2reduce ; 0 [ ** + ] 2reduce ;
: inv
#! inverse
1 swap / ; inline