IsAlmostAffineCode( code )
IsAlmostAffineCode returns true if code is an almost affine code.
A code is called em almost affine if the size of any punctured code
of code is q^r for some r, where q is the size of the alphabet
of the code.
Every affine code is also almost affine, and every code over GF(2)
and GF(3) that is almost affine is also affine.
gap> code := ElementsCode( [ [0,0,0], [0,1,1], [0,2,2], [0,3,3],
> [1,0,1], [1,1,0], [1,2,3], [1,3,2],
> [2,0,2], [2,1,3], [2,2,0], [2,3,1],
> [3,0,3], [3,1,2], [3,2,1], [3,3,0] ],
> GF(4) );;
gap> IsAlmostAffineCode( code );
true
gap> IsAlmostAffineCode( NordstromRobinsonCode() );
false
GAP 3.4.4