Handout #4 Write the following functions 1. Given a list vectors [(x1, y1, z1); (x2, y2, z2); ...], add them to determine the resultant vector. resultvector [(1,2,3); (4,5,6)] -> [(5, 7, 9)] 2. Fine the smallest element in a list. find_small [100; 2; 3; 4; 5] -> 2 3. Given a company's monthly paystubs for all employees, calculate the average income per month of each employee's. The input is an unordered list of the form [(id1, monthid1, wage1); (id1, monthid2, wage2), (id2, monthid3, wage3); ...], and the output should be of the form [(id1, avgwage1); (id2, avgwage2);...]. 4. Run-length encoding encode [ 1; 1; 1; 2; 3; 3; 3; 3; 4; 4; 2; 2 ] -> [(1,3);(2,1);(3,4);(4,2);(2,2)]