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

extra: Finish renaming a couple words

master
Doug Coleman 2020-02-27 01:04:31 +00:00
parent b1a70d47a4
commit b546d88e83
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
extra/koszul/koszul.factor
View File

@ -221,7 +221,7 @@ DEFER: (d)
] if ; ] if ;
: laplacian-matrix ( basis1 basis2 basis3 -- matrix ) : laplacian-matrix ( basis1 basis2 basis3 -- matrix )
dupd d-matrix mdotm' [ d-matrix m'.m ] dip ?m+ ; dupd d-matrix mdotm' [ d-matrix m'dotm ] dip ?m+ ;
: laplacian-betti ( basis1 basis2 basis3 -- n ) : laplacian-betti ( basis1 basis2 basis3 -- n )
laplacian-matrix null/rank drop ; laplacian-matrix null/rank drop ;

2
extra/rosetta-code/haversine-formula/haversine-formula.factor
View File

@ -31,5 +31,5 @@ CONSTANT: R_earth 6372.8 ! in kilometers
[ [ swap - haversin ] 2map ] [ [ swap - haversin ] 2map ]
[ [ first cos ] bi@ * 1 swap 2array ] [ [ first cos ] bi@ * 1 swap 2array ]
2bi 2bi
v. vdot
haversininv R_earth * ; haversininv R_earth * ;