#Please do not post
#Homework 23, Rebecca Embar

read `C23.txt`:

#2
WikiCent := proc(n) local G,k,P:
	G := [seq({k,2*n+k},k=2..2*n+1),seq({},k=1..2*n+1)]:
	P := {[2*n+2,[1,0]],seq([2*n+k+1,[k,k-2]],k=2..2*n),[2*n+1,[2*n-1+0.1,2*n-1+0.1]]}:
	
	G,P:
end:

#3
FamilyG := [{5,6},{5,6,9,10,11},{4,7,8},{12,13},{12,13},{},{},{},{},{},{},{},{}],[IndraniEmbar,ChellamEmbar,GerardSchrijvers,WandaEmbar,MohanEmbar,MayaEmbar,BrigitteSchrijvers,EnricoSchrijvers,EmmaEmbar,TarikaEmbar,RaviEmbar,RebeccaEmbar,JeremyEmbar]:

#GenS outputs [{6,7,8,9,10,11,12,13},{4,5},{1,2,3}]
#LaGn outputs [1,1,1,1,1,0,0,0,0,0,0,0,0]
#The oldest generation {1,2,3} are all winning