module Language.Brainfuck.Examples where
helloWorld, bottles, helloum, sort, toupper :: String
helloWorld =
">+++++++++[<++++++++>-]<.>+++++++[<++++>-]<+.+++++++..+++.[-]>++++++++[<++++>-]"++
"<.#>+++++++++++[<+++++>-]<.>++++++++[<+++>-]<.+++.------.--------.[-]>++++++++["++
"<++++>-]<+.[-]++++++++++."
bottles =
"99 Bottles of Beer in Urban Mueller's BrainF*** (The actual"++
"name is impolite)"++
""++
"by Ben Olmstead"++
""++
"ANSI C interpreter available on the internet; due to"++
"constraints in comments the address below needs to have the"++
"stuff in parenthesis replaced with the appropriate symbol:"++
""++
"http://www(dot)cats(dash)eye(dot)com/cet/soft/lang/bf/"++
""++
"Believe it or not this language is indeed Turing complete!"++
"Combines the speed of BASIC with the ease of INTERCAL and"++
"the readability of an IOCCC entry!"++
""++
">+++++++++[<+++++++++++>-]<[>[-]>[-]<<[>+>+<<-]>>[<<+>>-]>>>"++
"[-]<<<+++++++++<[>>>+<<[>+>[-]<<-]>[<+>-]>[<<++++++++++>>>+<"++
"-]<<-<-]+++++++++>[<->-]>>+>[<[-]<<+>>>-]>[-]+<<[>+>-<<-]<<<"++
"[>>+>+<<<-]>>>[<<<+>>>-]>[<+>-]<<-[>[-]<[-]]>>+<[>[-]<-]<+++"++
"+++++[<++++++<++++++>>-]>>>[>+>+<<-]>>[<<+>>-]<[<<<<<.>>>>>-"++
"]<<<<<<.>>[-]>[-]++++[<++++++++>-]<.>++++[<++++++++>-]<++.>+"++
"++++[<+++++++++>-]<.><+++++..--------.-------.>>[>>+>+<<<-]>"++
">>[<<<+>>>-]<[<<<<++++++++++++++.>>>>-]<<<<[-]>++++[<+++++++"++
"+>-]<.>+++++++++[<+++++++++>-]<--.---------.>+++++++[<------"++
"---->-]<.>++++++[<+++++++++++>-]<.+++..+++++++++++++.>++++++"++
"++[<---------->-]<--.>+++++++++[<+++++++++>-]<--.-.>++++++++"++
"[<---------->-]<++.>++++++++[<++++++++++>-]<++++.-----------"++
"-.---.>+++++++[<---------->-]<+.>++++++++[<+++++++++++>-]<-."++
">++[<----------->-]<.+++++++++++..>+++++++++[<---------->-]<"++
"-----.---.>>>[>+>+<<-]>>[<<+>>-]<[<<<<<.>>>>>-]<<<<<<.>>>+++"++
"+[<++++++>-]<--.>++++[<++++++++>-]<++.>+++++[<+++++++++>-]<."++
"><+++++..--------.-------.>>[>>+>+<<<-]>>>[<<<+>>>-]<[<<<<++"++
"++++++++++++.>>>>-]<<<<[-]>++++[<++++++++>-]<.>+++++++++[<++"++
"+++++++>-]<--.---------.>+++++++[<---------->-]<.>++++++[<++"++
"+++++++++>-]<.+++..+++++++++++++.>++++++++++[<---------->-]<"++
"-.---.>+++++++[<++++++++++>-]<++++.+++++++++++++.++++++++++."++
"------.>+++++++[<---------->-]<+.>++++++++[<++++++++++>-]<-."++
"-.---------.>+++++++[<---------->-]<+.>+++++++[<++++++++++>-"++
"]<--.+++++++++++.++++++++.---------.>++++++++[<---------->-]"++
"<++.>+++++[<+++++++++++++>-]<.+++++++++++++.----------.>++++"++
"+++[<---------->-]<++.>++++++++[<++++++++++>-]<.>+++[<----->"++
"-]<.>+++[<++++++>-]<..>+++++++++[<--------->-]<--.>+++++++[<"++
"++++++++++>-]<+++.+++++++++++.>++++++++[<----------->-]<++++"++
".>+++++[<+++++++++++++>-]<.>+++[<++++++>-]<-.---.++++++.----"++
"---.----------.>++++++++[<----------->-]<+.---.[-]<<<->[-]>["++
"-]<<[>+>+<<-]>>[<<+>>-]>>>[-]<<<+++++++++<[>>>+<<[>+>[-]<<-]"++
">[<+>-]>[<<++++++++++>>>+<-]<<-<-]+++++++++>[<->-]>>+>[<[-]<"++
"<+>>>-]>[-]+<<[>+>-<<-]<<<[>>+>+<<<-]>>>[<<<+>>>-]<>>[<+>-]<"++
"<-[>[-]<[-]]>>+<[>[-]<-]<++++++++[<++++++<++++++>>-]>>>[>+>+"++
"<<-]>>[<<+>>-]<[<<<<<.>>>>>-]<<<<<<.>>[-]>[-]++++[<++++++++>"++
"-]<.>++++[<++++++++>-]<++.>+++++[<+++++++++>-]<.><+++++..---"++
"-----.-------.>>[>>+>+<<<-]>>>[<<<+>>>-]<[<<<<++++++++++++++"++
".>>>>-]<<<<[-]>++++[<++++++++>-]<.>+++++++++[<+++++++++>-]<-"++
"-.---------.>+++++++[<---------->-]<.>++++++[<+++++++++++>-]"++
"<.+++..+++++++++++++.>++++++++[<---------->-]<--.>+++++++++["++
"<+++++++++>-]<--.-.>++++++++[<---------->-]<++.>++++++++[<++"++
"++++++++>-]<++++.------------.---.>+++++++[<---------->-]<+."++
">++++++++[<+++++++++++>-]<-.>++[<----------->-]<.+++++++++++"++
"..>+++++++++[<---------->-]<-----.---.+++.---.[-]<<<]"++
"@"
helloum =
"++++++++++[>+++++++>++++++++++>+++>+<<<<-]>++.>+.+++++++..+++.>++.<<+++++++++++++++.>.+++.------.--------.>+.>.@"
sort =
"Here is a Brainf*** program that bubblesorts its input and spits it out:"++
">>>>>,+[>>>,+]<<<[<<<"++
"[>>>[-<<<-<+>[>]>>]<<<[<]>>"++
"[>>>+<<<-]<[>+>>>+<<<<-]"++
"<<]>>>[-.[-]]>>>[>>>]<<<]"
toupper =
",----------[----------------------.,----------]"