Sha256: 979fffd54a057cb302ee4d25d72e2cbb3ba8fca67a9876e2167a315f8391e6b3
Contents?: true
Size: 436 Bytes
Versions: 213
Compression:
Stored size: 436 Bytes
Contents
module Hamming
( distance
) where
import Prelude
import Data.Maybe (Maybe(Just, Nothing))
import Data.Tuple (Tuple(..))
import Data.String (uncons)
distance :: String -> String -> Maybe Int
distance dna1 dna2 = case Tuple (uncons dna1) (uncons dna2) of
Tuple (Just {head: h1, tail: t1}) (Just {head: h2, tail: t2}) -> (if h1 /= h2 then ((+) 1) else id) <$> distance t1 t2
Tuple Nothing Nothing -> Just 0
Tuple _ _ -> Nothing
Version data entries
213 entries across 213 versions & 1 rubygems