In 100 Tagen bei 0


#125681

-4220

void stackoverflow() { stackoverflow(); }

#125682

-4219

if (value == 0) return value; else return 0;


#125683

-4218

int *a; a = 0; *a = 0;


#125684

-4217

phr33k.


#125685

-4216

g33k.


#125686

-4215

module Lambdabot.Plugin.Elite (elitePlugin) where

import Lambdabot.Plugin
import Lambdabot.Util

import Control.Arrow
import Control.Monad
import Data.Char
import Data.Maybe
import Text.Regex.TDFA

elitePlugin :: Module ()
elitePlugin = newModule
    { moduleCmds = return
        [ (command "elite")
            { aliases = ["leet", "l33t", "1337"]
            , help = say "elite <phrase>. Translate English to elitespeak"
            , process = \args -> case words args of
                 [] -> say "Say again?"
                 wds -> do let instr = map toLower (unwords wds)
                           say =<< io (translateLine instr)
                           
            }
        ]
    }

translateLine :: String -> IO String
translateLine = fmap (dropWhile isSpace) . translate . (' ':)
-- extra space allows whole-word patterns to match at start

translate :: String -> IO String
translate []  = return []
translate str = do
    let alts = [ (subst match',rest)
               | (re, subst) <- ruleList
               , mr <- maybeToList (matchM re str)
               , null (mrBefore mr)
               , let match' = mrMatch mr
                     rest   = mrAfter mr
               ]
    (subst,rest) <- random alts
    liftM (subst ++) (translate rest)

ruleList :: [(Regex, String -> String)]
ruleList = map (first makeRegex)
    [ (".",     id            )
    , (".",     map toUpper   )
    , ("a",     const "4"     )
    , ("b",     const "8"     )
    , (" be ",  const " b "   )
    , ("c",     const "("     )
    , ("ck",    const "xx"    )
    , ("cks ",  const "x "    )
    , ("cks ",  const "x0rs " )
    , ("cks ",  const "x0rz " )
    , (" cool ",const " kewl ")
    , ("e",     const "3"     )
    , ("elite", const "1337"  )
    , ("elite", const "leet"  )
    , ("f",     const "ph"    )
    , (" for ", const " 4 "   )
    , ("g",     const "9"     )
    , ("h",     const "|-|"   )
    , ("k",     const "x"     )
    , ("l",     const "|"     )
    , ("l",     const "1"     )
    , ("m",     const "/\\/\\")
    , ("o",     const "0"     )
    , ("ph",    const "f"     )
    , ("s",     const "z"     )
    , ("s",     const "$"     )
    , ("s",     const "5"     )
    , ("s ",    const "z0rz " )
    , ("t",     const "7"     )
    , ("t",     const "+"     )
    , (" the ", const " teh " )
    , (" to ",  const " 2 "   )
    , (" to ",  const " too " )
    , (" to ",  const " tu "  )
    , (" too ", const " to "  )
    , ("v",     const "\\/"   )
    , ("w",     const "\\/\\/")
    , (" you ", const " u "   )
    , (" you ", const " yu "  )
    , (" you ", const " joo " )
    , ("z",     const "s"     )
    ]

#125687

-4214

Programmable Hyperlinked Pasta?


#125688

-4213

hmm. pasta programmieren. darauf bin ich noch garnicht gekommen.


#125689

-4212


Das einzige, was mich hier noch hält, ist die Erdanziehung!


#125690

-4211

mich hält nur das eigene gravitationsfeld :ps:


#125691

-4510


#125692

-4209

Illegale Aktivitäten halten hier Einzug! Was soll man davon halten…


#125693

-4208

vom BND?


#125694

-4207

Nee, von kommentarlosen Kommentaren.


#125695

-4206

hier mal was zum Lachen. So was schreiben Leute ihrer Versicherung. :smiley:


#125696

-4205

Noch was zu lachen: Die Sendung mit der Kuh…
onlinewahn.de/
(unten links auf das Kuhbild klicken)


#125697

cout << zahl;

Die Spammer drängen sich letztlich aber ganz schön dicht hier :susp:


#125698

-4203

Jou, mir ist auch nicht so ganz klar, warum jetzt mein Beitrag in “Qrcode, Datamatrix, …” gelöscht wurde, aber der Spam nicht… :wink2: (Zaunpfahl)


#125699

Zahl, Nachricht, Fuck-off-Emoticon.
Stay minimal.


#125700

-4201

mr. Minimalz