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

koszul: use 3tri in bigraded-triple

db4
Eduardo Cavazos 2008-07-04 11:34:47 -05:00
parent 79f19bfe95
commit 94756c189e
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
extra/koszul/koszul.factor
View File

@ -265,9 +265,10 @@ DEFER: (d)
: bigraded-triple ( u-deg z-deg bigraded-basis -- triple ) : bigraded-triple ( u-deg z-deg bigraded-basis -- triple )
#! d: C(u,z) ---> C(u+2,z-1) #! d: C(u,z) ---> C(u+2,z-1)
[ >r >r 2 - r> 1 + r> ?nth ?nth ] 3keep [ [ 2 - ] [ 1 + ] [ ] tri* ?nth ?nth ]
[ ?nth ?nth ] 3keep [ ?nth ?nth ]
>r >r 2 + r> 1 - r> ?nth ?nth [ [ 2 + ] [ 1 - ] [ ] tri* ?nth ?nth ]
3tri
3array ; 3array ;
: bigraded-triples ( grid -- triples ) : bigraded-triples ( grid -- triples )