1 #include "def.h"
2 #include "macro.h"
3
tps___faktor(a,b,f)4 INT tps___faktor(a,b,f) OP a,b,f;
5 {
6 INT erg = OK;
7 OP m;
8 CTTTTO(HASHTABLE,INTEGER,PARTITION,POWSYM,"tps___faktor(1)",a);
9 CTTO(HASHTABLE,SCHUR,"tps___faktor(2)",b);
10 CTO(ANYTYPE,"tps___faktor(3)",f);
11
12 m=CALLOCOBJECT();
13 erg += first_partition(cons_null,m);
14 erg += mps___(a,m,b,f);
15 FREEALL(m);
16
17 ENDR("tps___faktor");
18 }
19
t_POWSYM_SCHUR(a,b)20 INT t_POWSYM_SCHUR(a,b) OP a,b;
21 /* AK 270901 */
22 /* using multiplication p_k * S_I = \sum S_J */
23 /* fastest up to now */
24 {
25 INT erg = OK;
26 OP m;
27 CTTTTO(HASHTABLE,INTEGER,PARTITION,POWSYM,"t_POWSYM_SCHUR",a);
28 TCE2(a,b,t_POWSYM_SCHUR,SCHUR);
29
30 m=CALLOCOBJECT();
31 erg += first_partition(cons_null,m);
32 erg += mult_powsym_schur(a,m,b);
33 FREEALL(m);
34 CTTO(SCHUR,HASHTABLE,"t_POWSYM_SCHUR(e2)",b);
35 ENDR("t_POWSYM_SCHUR");
36 }
37
38