Random Programs

I'm bumping this because I find it interesting

>>58
>le pedophile sage

>>38
import Control.Arrow (first)
import Control.Monad.State
import System.Environment (getArgs)
import System.Random

data BF = MR | ML | IP | DP | PC | IC | LB | LE deriving (Eq, Enum)
type BFGen a = StateT Int IO a

instance Show BF where
  show MR = ">"
  show ML = "<"
  show IP = "+"
  show DP = "-"
  show PC = "."
  show IC = ","
  show LB = "["
  show LE = "]"

instance Random BF where
  random g = first (toEnum . flip mod 8) $ next g
  randomR = error "8=D"

one :: BFGen BF
one = do
  o <- get
  x <- io randomIO
  when (x == LB) (modify (+1))
  when (x == LE && o > 0) (modify (subtract 1))
  if x == LE && o <= 0 then one >>= return else return x

many :: Int -> BFGen [BF]
many n = do
  o <- get
  if (n-o) <= 0
  then return $ replicate o LE
  else do
    x <- one
    xs <- many (n-1)
    return (x:xs)

main :: IO ()
main = fmap (read . head) getArgs >>= flip evalStateT 0 . many >>= mapM_ (putStr . show) >> putChar '\n'

io :: IO a -> BFGen a
io = liftIO

If one buries lots of plastic buckets, will the ground hold more water?

>>62
Radioactive water or normal water?

>>62
the plastic buckets are filled with water?

https://boards.4chan.org/g/res/37223843#p37226509

kek

*YOU HAVE BEEN VISITED BY LE TOP LEL OF COMEDY GOLD** POST THIS IN 3 threads or lose your sides!
░░░░░░░▄▀▀▀░▄▄▄▄░░░▀▀▀▀▀▀▀▀▄▄░▀
░░░░░░░█░░░░░░░░▀▀▀▀▀▄▄▄▄▄▄▄▄▀░░█
░░░░░▄▀░░░░░░░░░░▄░░░░░░░░▄▄░░░░░▀▄
░░░▄▀░░░░░▄▀▀▀█▄░▀░░░░▄▀▀▀██▀▀▄░░░░░▀
░░▄▀░░▄▄░░▀▀▀▀████▀░░░▀▄▄▀▀▀▀▄█░░░░░░█
░▄▀░▄▀█░░▄▄░░░░░░░█░░░░░▄▄▄░░░▀▀░░░░░░█
▄▀░░█░█░▀░░▀▀▄░░░░░█░░░░░░░▀▀▀▀▀▄░░░░░█
▀▄░░▀░█░░░▄░░░░░░▄▀░░░░▀▄░░░▄▄░░▀▄░█░▄▀
░░▀▄░░░░█▀▄░░░░░▀█░░░░▀▀░█▄▀▄░█░░░█░█
░░░░█░░█░▀▄▀▄▄░░░░▀▀▀░░░▄█▀░▄▀█░░░░▄
░░░░░█░░█░▀▀▄░▀▄▄▄▄▄▄▄▀█░▄█▀▄▀░░░░░
░░░░░█░░▀▄▄░░▀█░░░█░░▄▄▀▀▄▄█▀░░░░▀
░░░░▄▀░░░▀▄▀▀▄░▀▀▀▀▀▀▄▄▀▀▀▄▀░░░░▀
░░░▄▀░░░░░░▀▄░█▄▄▄▄▀▀░▀▄▀▀░░░▄▀▀
░░▄▀░░░░░░░░░▀▄▄▄▄█▄▄▀▀░░░░▄
░░█░░░░░░▀▄▄░░░▄▄▄▄▄▄▀░░░▄▀
░░█░░░░░░░░░▀▀▀▄▄▄▄▄▄▄▀▀
░░░█░░░░░░▀▀▀▀▀░░░░▄
░░░▀▀▄▄▄▄▄▄▄▄▄▀▀▀