;;Chapter 3, Test 4, Page 40
(deftest test-mapping ()
  (let ((lst1 (list 1 2 3 4 5)) (lst2 (list 5 4 3 2 1)))
    (check
      (equal (mapcar #'+ lst1 lst2) `(6 6 6 6 6)); adds each element from each array, and retuns a list of their sums
      (equal (mapcar #'* lst1 lst2) `(5 8 9 8 5)); multiplies their values.
      (equal (mapcar #'list lst1 lst2) `((1 5) (2 4) (3 3) (4 2) (5 1)));creates an associated array from a list of keys and a list of values.
      (equal (maplist #'(lambda (x) x) lst1) `((1 2 3 4 5) (2 3 4 5) (3 4 5) (4 5) (5))))));applies the function recursivly to the cdrs of the list