Mercurial > repo
annotate paste/paste.14186 @ 12243:dd8898d59f7c draft
<b_jonas> addwhatis tmflry(5hackeso) - no description
author | HackEso <hackeso@esolangs.org> |
---|---|
date | Thu, 05 Dec 2019 23:40:35 +0000 |
parents | e037173e0012 |
children |
rev | line source |
---|---|
0 | 1 import System.Environment |
2 import System.Process | |
3 import System.Exit | |
4 import Control.Monad | |
5 import Control.Applicative | |
6 import Data.List | |
7 | |
8 main = do | |
9 r <- buildRegex . permuteArgs <$> getArgs | |
10 (_, _, _, h) <- createProcess (proc "/hackenv/bin/log" [r]) | |
11 exitWith <$> waitForProcess h | |
12 where | |
13 permuteArgs = permutations . join . map words | |
14 buildRegex = oBrackets . intercalate ".*" . map (iBrackets . intercalate "|") | |
15 iBrackets s = "(?:" ++ s ++ ")" | |
16 oBrackets s = "^.*(?:" ++ s ++ ").*$" |