Sha256: 7a87e8708bd43adc2952f5ce8baf50bb25f253115b40591d7e01884fa72fa42c
Contents?: true
Size: 427 Bytes
Versions: 395
Compression:
Stored size: 427 Bytes
Contents
module Anagram (anagramsFor) where
import Data.Function (on)
import Data.MultiSet (fromList)
import Data.Set (Set, filter)
import Data.Text (Text, toLower, unpack)
import Prelude hiding (filter)
anagramsFor :: Text -> Set Text -> Set Text
anagramsFor x = filter (\w -> x `isDistinctOf` w && x `isAnagramOf` w)
where
isDistinctOf = (/=) `on` toLower
isAnagramOf = (==) `on` fromList . unpack . toLower
Version data entries
395 entries across 395 versions & 1 rubygems