#OK to post homework
#Ariana Yousafzai, 9/20/2020, Assignment 3


#Question 1


Bnk(10, 5)[20];
[0, 0, 0, 1, 1, 1, 1, 0, 1, 0]


MyChoose({1, 2, 3, 4, 5, 6}, 2)[5];
{1, 6}


MyPermsL([r, u, t, g, e, r, s])[100];
[r, u, s, t, e, r, g]


WtoS([1, 0, 0, 0, 1]);
{1, 5}


#Question 2


NuFP := proc(pi) local n, i, co; 
n := nops(pi); 
co := 0; 
 for i from 1 to n do      
if pi[i]=i then        
co:=co+1:


   fi:   
od:   
 co:    
end:


NuFP([1, 2, 3, 4]);
 4


#Question 3


#Question 4


#Question 5


[seq(nops(Comps(i)), i = 1 .. 8)];
[1, 2, 4, 8, 16, 32, 64, 128]