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