w#OK to post homework
#Ariana Yousafzai, 10/10/2020, Assignment 10
1.  
(i) p1 := [3, 8, 4, 9, 1, 5, 6, 7, 2]
p2 := [8, 5, 6, 4, 3, 9, 7, 2, 1]
MulPers(p1, p2);
                  [6, 2, 4, 1, 8, 3, 9, 7, 5]
MulPers(p2, p1);
                  [7, 1, 5, 9, 4, 2, 6, 8, 3]
p1*p2 =/= p2*p1. This confirms my hand calculations. 
(ii) P := combinat[randperm](9);
                P := [2, 4, 1, 5, 8, 9, 7, 3, 6]


InvPer(P);
                  [3, 1, 8, 2, 4, 9, 7, 5, 6]
This confirms my hand calculations. 
(iii) P := combinat[randperm](9);
                P := [4, 6, 9, 1, 3, 7, 5, 8, 2]


PtoC(P);
               [[4, 1], [8], [9, 2, 6, 7, 5, 3]]
This confirms my hand calculations.  
(iv) P := combinat[randperm](9);
                P := [5, 7, 1, 4, 9, 8, 3, 6, 2]


inv(P);
                               20


maj(pi);
                               14


2.  


3.   


4. OEIS: A000108


5.