1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
|
#!/bin/sh
failed=0
check () {
command="$1"
expected="$2"
result=`$command`
echo -n "testing $command ... "
if [ "$result" != "$expected" ]; then
echo "failed:"
echo " Expected: $expected"
echo " Got: $result"
failed=1
else
echo "ok"
fi
}
check "src/lrcalc lrcoef 3 2 1 - 2 1 - 2 1" "2"
check "src/lrcalc skew 3 2 1 - 2 1" "2 (2,1)
1 (1,1,1)
1 (3)"
check "src/lrcalc skew -m 3 2 1 / 2 1" "0+2*s[2,1]+1*s[1,1,1]+1*s[3]"
check "src/lrcalc skew -r 2 3 2 1 / 2 1" "2 (2,1)
1 (3)"
check "src/lrcalc skew -m -r 2 3 2 1 - 2 1" "0+2*s[2,1]+1*s[3]"
check "src/lrcalc mult 2 1 - 2 1" "2 (3,2,1)
1 (4,2)
1 (3,1,1,1)
1 (3,3)
1 (2,2,1,1)
1 (2,2,2)
1 (4,1,1)"
check "src/lrcalc mult -m 2 1 - 2 1" "0+2*s[3,2,1]+1*s[4,2]+1*s[3,1,1,1]+1*s[3,3]+1*s[2,2,1,1]+1*s[2,2,2]+1*s[4,1,1]"
check "src/lrcalc mult -f 3,2 3 2 1 - 3 2 1" "1 (4,4,4)
1 (5,4,3)"
check "src/lrcalc mult -m -f 3,2 3 2 1 - 3 2 1" "0+1*s[4,4,4]+1*s[5,4,3]"
check "src/lrcalc mult -q 3,2 3 2 1 - 3 2 1" "1 (2)
1 (1,1)"
check "src/lrcalc mult -m -q 3,2 3 2 1 - 3 2 1" "0+1*q^2*s[2]+1*q^2*s[1,1]"
check "src/lrcalc coprod 3 2 1" "1 (2,1,1) (1,1)
1 (3,2,1) ()
1 (3,1,1) (1)
1 (2,2) (1,1)
2 (2,1) (2,1)
1 (3,2) (1)
1 (3,1) (2)
1 (1,1,1) (2,1)
1 (2,2,1) (1)
1 (2,1,1) (2)
1 (2,2) (2)
1 (2,1) (3)
1 (3,1) (1,1)"
check "src/schubmult 1 3 2 - 1 3 2" "1 (2,3,1)
1 (1,4,2,3)"
check "src/schubmult -m 1 3 4 2 - 2 1 4 5 3" "0+1*X[2,3,5,4,1]+1*X[4,1,5,2,3]+1*X[2,4,5,1,3]+1*X[3,2,4,5,1]+1*X[3,1,5,4,2]"
check "src/schubmult -s 0 1 2 0 1 2 - 0 1 2 0 1 2" "1 (2,1,0,0,1,2)
1 (1,0,2,2,0,1)
1 (0,2,1,1,2,0)
1 (2,0,1,1,0,2)
1 (1,2,0,0,2,1)
1 (0,1,2,2,1,0)"
check "src/schubmult -m -s 0 2 0 2 1 2 - 0 1 2 0 2 2" "0+1*X[0,2,1,2,2,0]+1*X[2,0,1,2,0,2]+1*X[2,0,2,0,1,2]+1*X[0,2,2,1,0,2]"
check "src/allperms 0" "()"
check "src/allperms 1" "(1)"
check "src/allperms 3" "(1,2,3)
(1,3,2)
(2,1,3)
(2,3,1)
(3,1,2)
(3,2,1)"
check "src/test_partiter 0 0" "success"
check "src/test_partiter 0 3" "success"
check "src/test_partiter 2 0" "success"
check "src/test_partiter 1 1" "success"
check "src/test_partiter 4 4" "success"
check "src/test_schubmult 1" "success"
check "src/test_schubmult 2" "success"
check "src/test_schubmult 4" "success"
check "src/test_lrmult 2 4" "success"
check "src/test_lrmult 3 3" "success"
check "src/test_lrmult 4 2" "success"
check "src/test_lrcoef 4 4" "success"
check "src/test_lrskew 4 4" "success"
check "src/test_fusion 0 5" "success"
check "src/test_fusion 1 5" "success"
check "src/test_fusion 2 5" "success"
check "src/test_fusion 3 5" "success"
check "src/test_fusion 4 5" "success"
exit $failed
|
