annotate paste/paste.14186 @ 12493:885661512b17
draft
<int-e> le//rn schwartzian//In 1987, Yogurt introduced a better way to rank Schwartz users: Rather than holding an annual tournament, users would take a series of standardized tests adminstered by official Schwartz centers, and would then be ranked according to the results. This lead to the Schwartzian transform because it allowed many more users to be ranked.
| author |
HackEso <hackeso@esolangs.org> |
| date |
Fri, 12 Jan 2024 07:24:55 +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 ++ ").*$"
|
