CountingPointMutations2.hs

import qualified Bioinformatics.DNANucleotide as D

hammingDistance :: (Eq a) => [a] -> [a] -> Int
hammingDistance l1 l2 = length . filter (not) $ zipWith (==) l1 l2

main = do
  string1 <- getLine
  string2 <- getLine
  let dnaString1 = map D.charToDNANucleotide string1
  let dnaString2 = map D.charToDNANucleotide string2
  putStrLn . show $ hammingDistance dnaString1 dnaString2