#Please do not post
#1

AlexVarjabedian
CC([i,l,o,v,e,c,o,d,i,n,g,t,h,e,o,r,y],19);

      [b, e, h, o, x, v, h, w, b, g, z, m, a, x, h, k, r]

AuroraHiveley
CC([i,l,o,v,e,c,o,d,i,n,g,t,h,e,o,r,y],23);

      [f, i, l, s, b, z, l, a, f, k, d, q, e, b, l, o, v]

GloriaLiu
CC([i,l,o,v,e,c,o,d,i,n,g,t,h,e,o,r,y],21);

      [d, g, j, q, z, x, j, y, d, i, b, o, c, z, j, m, t]

JosephKoutsoutis
CC([i,l,o,v,e,c,o,d,i,n,g,t,h,e,o,r,y],20);

      [c, f, i, p, y, w, i, x, c, h, a, n, b, y, i, l, s]

KayleeWeatherspoon
CC([i,l,o,v,e,c,o,d,i,n,g,t,h,e,o,r,y],22);

      [e, h, k, r, a, y, k, z, e, j, c, p, d, a, k, n, u]

LucyMartinez
CC([i,l,o,v,e,c,o,d,i,n,g,t,h,e,o,r,y],25);

      [h, k, n, u, d, b, n, c, h, m, f, s, g, d, n, q, x]

NatalyaTer-Saakov
CC([i,l,o,v,e,c,o,d,i,n,g,t,h,e,o,r,y],24);

      [g, j, m, t, c, a, m, b, g, l, e, r, f, c, m, p, w]

PabloBlanco
CC([i,l,o,v,e,c,o,d,i,n,g,t,h,e,o,r,y],21);

      [d, g, j, q, z, x, j, y, d, i, b, o, c, z, j, m, t]

RameshBalaji
CC([i,l,o,v,e,c,o,d,i,n,g,t,h,e,o,r,y],19);

      [b, e, h, o, x, v, h, w, b, g, z, m, a, x, h, k, r]

RyanBadi
CC([i,l,o,v,e,c,o,d,i,n,g,t,h,e,o,r,y],20);

      [c, f, i, p, y, w, i, x, c, h, a, n, b, y, i, l, s]

ShauryaBaranwal
CC([i,l,o,v,e,c,o,d,i,n,g,t,h,e,o,r,y],19);

      [b, e, h, o, x, v, h, w, b, g, z, m, a, x, h, k, r]
#2
#antiPCM(q,H): inputs the mod. q and a PCM  H, finds the corresponding
#generating matrix M (in standard form)
#n=nops(H[1]) H is n-k by n matrix and H=PCM(q,M) M is a k by n matrix
#describing the basis of some linear code over GF(q)^n outputs of dimension k=nops(M)

antiPCM:=proc(q,H) local k,n,i,j,G:
option remember:

n:=nops(H[1]):
k:=n-nops(H):

(*
if [seq([op(k+1..n,H[i])],i=1..n-k)]<>[seq([0$(i-1),1,0$(k-i)],i=1..n-k)] then
 print(`Not standard form`):
 RETURN(FAIL):
fi:
*)

for i from 1 to k do
 for j from k+1 to n do
  G[i,j]:=-H[j-k][i]  mod q:
 od:
 for j from 1 to k do
  if j=i then
   G[i,j]:=1:
  else
   G[i,j]:=0:
  fi:
od:
od:

[seq([seq(G[i,j],j=1..n)],i=1..k)]:

end:

H:=[[1,0,1,0],[1,1,0,1]];
               H := [[1, 0, 1, 0], [1, 1, 0, 1]]

antiPCM(2,H);
                  [[1, 0, 1, 1], [0, 1, 0, 1]]

H:=[[1,1,1,0,1,0,0],[0,1,1,1,0,1,0],[1,1,0,1,0,0,1]];
      H := [[1, 1, 1, 0, 1, 0, 0], [0, 1, 1, 1, 0, 1, 0], 

        [1, 1, 0, 1, 0, 0, 1]]


antiPCM(2,H);
        [[1, 0, 0, 0, 1, 0, 1], [0, 1, 0, 0, 1, 1, 1], 

          [0, 0, 1, 0, 1, 1, 0], [0, 0, 0, 1, 0, 1, 1]]


#3 Doesn't run!
DecodeLT:=proc(q,M) local n,v,C,T,T1,S,s,H:
n:=nops(M[1]):

C:=LtoC(q,M):
T:=SynT(q,M):
S:=Fqn(q,n):
H:=PCM(q,M):

for v in S do
 s:=Syn(q,H,v):
 T1[v]:=v-T[s]:
od:
op(T1):

end: