mirror of
https://github.com/correl/elm.git
synced 2024-11-25 11:09:53 +00:00
14 lines
347 B
Elm
14 lines
347 B
Elm
module Hamming exposing (..)
|
|
|
|
import String exposing (length, toList)
|
|
|
|
|
|
distance : String -> String -> Maybe Int
|
|
distance left right =
|
|
if length left /= length right then
|
|
Nothing
|
|
else
|
|
List.map2 (\l r -> l /= r) (toList left) (toList right)
|
|
|> List.filter identity
|
|
|> List.length
|
|
|> Just
|