#please do not post homework
Kenneth Chan
Math 454
HW 3
1.Bnk(10,5)=(0,0,0,0,0,1,1,1,1,1)(0,0,0,0,1,0,1,1,1,1)(0,0,0,0,1,1,0,1,1,1)(0,0,0,0,1,1,1,0,1,1)(0,0,0,0,1,1,1,1,0,1)(0,0,0,0,1,1,1,1,1,0)(0,0,0,1,0,1,1,1,1,0)(0,0,0,1,1,0,1,1,1,0)
(0,0,0,1,1,1,0,1,1,0)(0,0,0,1,1,1,1,0,1,0)(0,0,0,1,1,1,1,1,0,0)(0,0,1,0,1,1,1,1,0,0)(0,0,1,1,0,1,1,1,0,0)(0,0,0,1,1,1,1,1,0,0)(0,0,1,1,1,0,1,1,0,0)
MyChoose({1,2,3,4,5,6},2)=(1,2)(1,3)(1,4)(1,5)(1,6)(2,3)(2,4)(2,5)(2,6)(3,4)(3,5)(3,6)(4,5)(4,6)(5,6)
MyPermsL([r,u,t,g,e,r,s])=(r,u,t,g,e,r,s)(r,u,t,g,e,s,r)(r,u,t,g,s,e,r)(r,u,t,s,g,e,r)(r,u,s,t,g,e,r)(r,s,u,t,g,e,r)...
WtoS({1,0,0,0,1])=(1,5)
2.
NuFP:=proc(pi) local i,n,ANS:
option remember:
i=0
n:=nops(pi)
if n=0 then
Return ({[]})
fi:
if n=i then
Print(x)
fi:
i:=i+1
if op(i,pi)=i then
ANS:=ANS+1
fi:
end:
3.
Der:=(n) local n,i,ANS,n1:
option remember:
n:=nops(L):
if n=o then
Return([{}]):
fi:
MyPerms(n)
if n=i then
ANS:=ANS+1
fi:
seq(nops(Perms(n)),n in n1:
end:
4.The sequence of all derangements with i=0...8.
5.I understand the seq and the comp commands where comp finds the number added together enable to get total n.
I am confused on the nops part because the nops takes out the values from the functions.