CountingPointMutations.hs

import qualified Bioinformatics.DNANucleotide as D

hammingDistance :: (Eq a) => [a] -> [a] -> Int
hammingDistance l1 l2 = sum . map (\(f,s) -> if f == s then 0 else 1) $ zip 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