passwordStrength.hs

import Data.Char

strong = and . sequence conditions
  where conditions = [ (>14) . length
                     , any isUpper
                     , any isLower
                     , any isDigit
                     ]

{-
> strong "foo"
False
> strong "LongC0mplicatedPassw0rd"
True
-}