/prog/ manages to encourage its own unique brand. Discouraging /b/ memes helps to keep /prog/ something of its own./prog/ meme since it is all about quantifying with a number. Which leads me to wonder.../prog/-like meme that we would be comfortable borrowing from /b/? Where do we draw the line?
(cons 'nigger 'nigger)
replicate 2 "NIGGER"
#1=('nigger . #1#)
(let ((infi-nigger (list 'nigger)))
(setf (cdr infi-nigger) infi-nigger)
infi-nigger)
(NIGGER NIGGER NIGGER NIGGER NIGGER NIGGER NIGGER NIGGER NIGGER NIGGER NIGGER
NIGGER NIGGER NIGGER NIGGER NIGGER NIGGER NIGGER NIGGER NIGGER NIGGER NIGGER
NIGGER NIGGER NIGGER NIGGER NIGGER NIGGER NIGGER NIGGER NIGGER
... thousands of lines snipped... (loops forever or exhausts stack/heap depending on implementation)/prog/.1void maFonction()
{
// D'abord on déclare les variables
double prixOrigine = 0.0;
double prixAchat = 0.0;
double difference = 0.0;
FILE* fichier = NULL;
// .....
import Control.Monad
import Data.Char
import Data.IORef
import IO
import System
beer n = do
mapM_ putStrLn $
[bot n ++ otw, bot n, takeone, bot (n - 1) ++ otw ++ "\n"]
if n == 1 then return () else beer (n - 1)
where bot 0 = "No more bottles of beer"
bot 1 = "One bottle of beer"
bot x = show x ++ " bottles of beer"
otw = " on the wall"
takeone = if n == 0
then "Go to the store and buy some more"
else "Take one down and pass it around"
hello = putStrLn "Hello, world!"
quine src = putStrLn src
accum reg = modifyIORef reg (+1)
main = do
args <- getArgs
reg <- newIORef 0
src <- if null args
then hGetContents stdin
else readFile $ head args
forM_ src $ \c ->
case toLower c of
'h' -> hello
'q' -> quine src
'9' -> beer 99
'+' -> accum reg
_ -> return ()forM_. I could have written forM_ = flip mapM_ instead... Or import Control.Monad (forM_)