elm/exercises/anagram/Anagram.example

module Anagram (..) where

import String exposing (toLower, toList)


detect : String -> List String -> List String
detect word candidates =
  let
    original = toLower word
    ref = normalize word
  in
    List.filter (\w -> normalize w == ref && toLower w /= original) candidates


normalize : String -> List Char
normalize word =
  word |> toLower |> toList |> List.sort