"Source: Text/Code/CodeFld.text";
"Line: 2397";
"Date: Tue May 30 11:26:03 2023";
"Main: Thu May 25 10:02:38 2023";
// original file: Text/Code/CodeFld.text, line: 2397
// Example: H161E23 ()
print "Example: H161E23";
ei := GetEchoInput();
SetEchoInput(true);
R<x> := PolynomialRing(GF(3));
f := x^11 + x^10 + x^9 + 2*x^8 + 2*x^7 + x^5 + x^3 + 2;
C := CyclicCode(23, f);
C;
time WeightDistribution(C);
time W11 := Words(C, 11);
#W11;
assert $1 eq 30912;
ZOW11 := ConstantWords(C, 11);
#ZOW11;
assert $1 eq 23;
ZOW11 subset W11;
assert $1;
SetEchoInput(ei);
