#Please do not post

#Nkhalo Malawo, Feb. 25, 2024, Assignment 10
#-------------------------------------------------------------
#Exercise 1

#Write a procedure
#Hampcm(r,q) that outputs the parity-check matrix (in standard form) of Ham(r,q), 

Hampcm:=proc(r,q):

SFde(q,PCM(q,Ham(r,q))):
end:

#-------------------------------------------------------------

#Exercise 2

#Write a procedure
#Ham(r,q)
#that outputs a generating matrix for Ham(r,q) 

Ham:=proc(r,q):


end:

#-------------------------------------------------------------

#Exercise 3

#write a procedure
#DecodeHamming(q,r,v)
#that decodes a received vector v if Ham(r,q) was used.

DecodeHamming:=proc(q,r,v) local H:

H:=Hampcm(r,q):
if Syn(q,H,v) = [0$nops(H)]
 then RETURN(Syn(q,H,v))
fi:
Decode(q,H,v):

end:

#-------------------------------------------------------------