Mercurial > repo
view paste/paste.14186 @ 7910:7d5f1c5e44b1
<moon__> mkx bin/hfs//erro You have discovered an eerie caven. The air above the dark stone floor is alive with vorices of purple light and dark, boiling clouds. Seemingly bottomless glowing pit mark the surface.
author | HackBot |
---|---|
date | Sat, 07 May 2016 00:41:47 +0000 |
parents | e037173e0012 |
children |
line wrap: on
line source
import System.Environment import System.Process import System.Exit import Control.Monad import Control.Applicative import Data.List main = do r <- buildRegex . permuteArgs <$> getArgs (_, _, _, h) <- createProcess (proc "/hackenv/bin/log" [r]) exitWith <$> waitForProcess h where permuteArgs = permutations . join . map words buildRegex = oBrackets . intercalate ".*" . map (iBrackets . intercalate "|") iBrackets s = "(?:" ++ s ++ ")" oBrackets s = "^.*(?:" ++ s ++ ").*$"