| LIB "lrcalc.lib";
// Compute the partitions y for which the Littlewood-Richardson coefficient
// c^z_{x,y} is non-zero together with that coefficient
// for z= (3, 2, 1), x=(2, 1)
list z = 3, 2, 1;
list x = 2, 1;
LRskew(z, x);
==> [1]:
==> [1]:
==> 1
==> [2]:
==> [1]:
==> 3
==> [2]:
==> [1]:
==> 2
==> [2]:
==> [1]:
==> 2
==> [2]:
==> 1
==> [3]:
==> [1]:
==> 1
==> [2]:
==> [1]:
==> 1
==> [2]:
==> 1
==> [3]:
==> 1
// Now compute only the partitions with at most 2 entries
LRskew(z, x, "r", 2);
==> [1]:
==> [1]:
==> 1
==> [2]:
==> [1]:
==> 3
==> [2]:
==> [1]:
==> 2
==> [2]:
==> [1]:
==> 2
==> [2]:
==> 1
|