指定した文字列の大文字小文字の組み合わせ全パターンのリストを取得する #haskell

getAllUpperLowerPattern.hs

module Main where
import Data.List
import Data.Char
main
  = print "ABCD"

getAllUpperLowerPattern str = f3
               where
                f1 = sequence $ replicate (length str) "01"
                f2 = map (\(fs,str)->zip fs str) $ zip f1 (replicate (length f1) str)
                f3 = nub [a|cs<-f2,a<-[[if f=='0' then toUpper c else toLower c|(f,c)<-cs]]]