annotate paste/paste.14186 @ 6894:1041408d241c
<oerjan> le/rn soviet union/In ancient history, the Soviet Union used to be the THEM. They believed in absurd principles like "Better Red than Dead". Then Ronald Reagan invented Star Wars to destroy it, after which there seemed to be no the THEM for a while.
| author |
HackBot |
| date |
Tue, 16 Feb 2016 21:39:22 +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 ++ ").*$"
|
