Use concatMap directly

This commit is contained in:
Stuart Nelson 2017-06-12 10:11:15 +02:00
parent 16c7dcd634
commit ddde5eaacd
1 changed files with 1 additions and 2 deletions

View File

@ -35,8 +35,7 @@ jaro s1 s2 =
m =
zip (List.range 1 l1) (String.toList s1)
|> List.map (Tuple.mapSecond Char.toCode)
|> List.map (charMatch searchLength z2)
|> List.foldl (++) []
|> List.concatMap (charMatch searchLength z2)
ml =
List.length m