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

use symbols

db4
Doug Coleman 2008-03-07 20:07:54 -06:00
parent 252f55d162
commit e6d2b4bcf4
1 changed files with 1 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
extra/koszul/koszul.factor
View File

@ -3,14 +3,10 @@
USING: arrays assocs hashtables assocs io kernel math USING: arrays assocs hashtables assocs io kernel math
math.vectors math.matrices math.matrices.elimination namespaces math.vectors math.matrices math.matrices.elimination namespaces
parser prettyprint sequences words combinators math.parser parser prettyprint sequences words combinators math.parser
splitting sorting shuffle ; splitting sorting shuffle symbols ;
IN: koszul IN: koszul
! Utilities ! Utilities
: SYMBOLS:
";" parse-tokens [ create-in define-symbol ] each ;
parsing
: -1^ odd? -1 1 ? ; : -1^ odd? -1 1 ? ;
: >alt ( obj -- vec ) : >alt ( obj -- vec )