Crunch -> Pattern

[b0fh]

Code HASKELL :

import Control.Monad
import System.Environment

charmap '@' = ['a'..'z']
charmap '%' = ['0'..'9']
charmap '^' = ['!'..'/'] ++ [':'..'@'] ++ ['['..'`']
charmap ',' = ['A'..'Z']
charmap  x  = [x]

main = getArgs >>= mapM_ (mapM_ putStrLn . mapM charmap)

Code :

ghc -O3 --make gogole.hs

Code :

$ ./gogole --@--
--a--
--b--
--c--
...

Code :

$ ./gogole @%@
a0a
a0b
...
a0z
a1a
a1b
...

(Edité pour accepter plusieurs patterns en argument)