refactor: use pointwise definition for pairwiseMatches as a more idiomatic solution

Proj2.hs

@@ -213,7 +213,7 @@ matches :: (Eq a, Show a) => [a] -> [a] -> Int
 matches xs ys = maximum permutationMatches
   where
     permutationMatches = map (pairwiseMatches xs) (permutations ys)
-    pairwiseMatches xs ys = length $ filter (uncurry (==)) $ zip xs ys
+    pairwiseMatches xs = length . filter (uncurry (==)) . zip xs
 
 -- outputs a list of all possible chords, where a chord is a list of unique
 -- pitches. this function happens to generate chords such that the pitches are