hammingDistance' :: (Eq a) => Int -> [a] -> [a] -> Int
hammingDistance' acc [] ys = acc + length ys
hammingDistance' :: (Eq a) => Int -> [a] -> [a] -> Int
hammingDistance' acc [] ys = acc + length ys
hammingDistance' acc [] ys = acc + length ys