Probably version ... whatever the next higher one is

5 files changed, 104 insertions, 153 deletions

@@ -0,0 +1,27 @@
+[ Add two values
+from https://en.wikipedia.org/wiki/Brainfuck#Adding_two_values
+]
+
+++       Cell c0 = 2
+> +++++  Cell c1 = 5
+
+[        Start your loops with your cell pointer on the loop counter (c1 in our case)
+< +      Add 1 to c0
+> -      Subtract 1 from c1
+]        End your loops with the cell pointer on the loop counter
+
+At this point our program has added 5 to 2 leaving 7 in c0 and 0 in c1
+but we cannot output this value to the terminal since it is not ASCII encoded
+
+To display the ASCII character "7" we must add 48 to the value 7
+We use a loop to compute 48 = 6 * 8
+
+++++ ++++  c1 = 8 and this will be our loop counter again
+[
+< +++ +++  Add 6 to c0
+> -        Subtract 1 from c1
+]
+< .        Print out c0 which has the value 55 which translates to "7"!
+
+Finally print a newline:
+---------------------------------------------.
@@ -0,0 +1,45 @@
+[ This program prints "Hello World!" and a newline to the screen, its
+length is 106 active command characters. [It is not the shortest.]
+
+This loop is an "initial comment loop", a simple way of adding a comment
+to a BF program such that you don't have to worry about any command
+characters. Any ".", ",", "+", "-", "<" and ">" characters are simply
+ignored, the "[" and "]" characters just have to be balanced. This
+loop and the commands it contains are ignored because the current cell
+defaults to a value of 0; the 0 value causes this loop to be skipped.
+
+from https://en.wikipedia.org/wiki/Brainfuck#Hello_World!
+]
+++++++++               Set Cell #0 to 8
+[
+>++++               Add 4 to Cell #1; this will always set Cell #1 to 4
+[                   as the cell will be cleared by the loop
+>++             Add 2 to Cell #2
+>+++            Add 3 to Cell #3
+>+++            Add 3 to Cell #4
+>+              Add 1 to Cell #5
+<<<<-           Decrement the loop counter in Cell #1
+]                   Loop until Cell #1 is zero; number of iterations is 4
+>+                  Add 1 to Cell #2
+>+                  Add 1 to Cell #3
+>-                  Subtract 1 from Cell #4
+>>+                 Add 1 to Cell #6
+[<]                 Move back to the first zero cell you find; this will
+be Cell #1 which was cleared by the previous loop
+<-                  Decrement the loop Counter in Cell #0
+]                       Loop until Cell #0 is zero; number of iterations is 8
+
+The result of this is:
+Cell no :   0   1   2   3   4   5   6
+Contents:   0   0  72 104  88  32   8
+Pointer :   ^
+
+>>.                     Cell #2 has value 72 which is 'H'
+>---.                   Subtract 3 from Cell #3 to get 101 which is 'e'
++++++++..+++.           Likewise for 'llo' from Cell #3
+>>.                     Cell #5 is 32 for the space
+<-.                     Subtract 1 from Cell #4 for 87 to give a 'W'
+<.                      Cell #3 was set to 'o' from the end of 'Hello'
++++.------.--------.    Cell #3 for 'rl' and 'd'
+>>+.                    Add 1 to Cell #5 gives us an exclamation point
+>++.                    And finally a newline from Cell #6
@@ -1 +0,0 @@
-++++++++[>++++[>++>+++>+++>+<<<<-]>+>+>->>+[<]<-]>>.>---.+++++++..+++.>>.<-.<.+++.------.--------.>>+.>++.
@@ -1,152 +0,0 @@
-TRAINFUCK BABEEE
-CHOO CHOO MUTHERFUCKER
-
-This example adapted from https://en.wikipedia.org/wiki/Brainfuck
-
-This program prints "Hello World!" and a newline to the screen, its
-length is 106 active command characters.
-
-The program doesn't start until we have ALL ABOARD on a line by itself, so
-we've got one better than an initial comment loop.
-
-This file was handwritten, but soon(TM) we'll have a fucktrain command,
-that'll translate to trainfuck from brainfuck.
-
-ALL ABOARD
-chug chug chug chug chug chug chug chug
-END OF THE LINE
-        Set Cell #0 to 8
-        (Also note: you can have comments betwen END OF THE LINE and ALL ABOARD)
-ALL ABOARD
-tickets please
-choo
-chug chug chug chug
-END OF THE LINE
-        Add 4 to Cell #1; this will always set Cell #1 to 4
-ALL ABOARD
-tickets please
-END OF THE LINE
-        as the cell will be cleared by the loop
-ALL ABOARD
-choo
-chug chug
-END OF THE LINE
-        Add 2 to Cell #2
-ALL ABOARD
-choo
-chug chug chug
-END OF THE LINE
-        Add 3 to Cell #3
-ALL ABOARD
-choo
-chug chug chug
-END OF THE LINE
-        Add 3 to Cell #4
-ALL ABOARD
-choo
-chug
-END OF THE LINE
-        Add 1 to Cell #5
-ALL ABOARD
-choo choo
-choo choo
-choo choo
-choo choo
-chugga
-END OF THE LINE
-        Decrement the loop counter in Cell #1
-ALL ABOARD
-your ticket please
-END OF THE LINE
-        Loop till Cell #1 is zero; number of iterations is 4
-ALL ABOARD
-choo
-chug
-END OF THE LINE
-        Add 1 to Cell #2
-ALL ABOARD
-choo
-chug
-END OF THE LINE
-        Add 1 to Cell #3
-ALL ABOARD
-choo
-chugga
-END OF THE LINE
-        Subtract 1 from Cell #4
-ALL ABOARD
-choo
-choo
-chug
-END OF THE LINE
-        Add 1 to Cell #6
-ALL ABOARD
-tickets pleasechoo choo
-your ticket please
-END OF THE LINE
-        Move back to the first zero cell you find; this will
-ALL ABOARD
-
-END OF THE LINE
-        be Cell #1 which was cleared by the previous loop
-ALL ABOARD
-choo choo
-chugga
-END OF THE LINE
-        Decrement the loop Counter in Cell #0
-ALL ABOARD
-your ticket please
-END OF THE LINE
-        Loop till Cell #0 is zero; number of iterations is 8
-ALL ABOARD
-END OF THE LINE
-The result of this is:
-Cell No :   0   1   2   3   4   5   6
-Contents:   0   0  72 104  88  32   8
-Pointer :   ^
-
-ALL ABOARD
-choo
-choo
-click
-END OF THE LINE
-        Cell #2 has value 72 which is 'H'
-ALL ABOARD
-choo
-chugga chugga chugga click
-END OF THE LINE
-        Subtract 3 from Cell #3 to get 101 which is 'e'
-ALL ABOARD
-chug chug chug chug chug chug chug click click chug chug chug click
-END OF THE LINE
-        Likewise for 'llo' from Cell #3
-ALL ABOARD
-choo
-choo
-click
-END OF THE LINE
-        Cell #5 is 32 for the space
-ALL ABOARD
-choo choo
-chugga click
-END OF THE LINE
-        Subtract 1 from Cell #4 for 87 to give a 'W'
-ALL ABOARD
-choo choo
-click
-END OF THE LINE
-        Cell #3 was set to 'o' from the end of 'Hello'
-ALL ABOARD
-chug chug chug click chugga chugga chugga chugga chugga chugga click chugga chugga chugga chugga chugga chugga chugga chugga click
-END OF THE LINE
-        Cell #3 for 'rl' and 'd'
-ALL ABOARD
-choo
-choo
-chug click
-END OF THE LINE
-        Add 1 to Cell #5 gives us an exclamation point
-ALL ABOARD
-choo
-chug chug click
-END OF THE LINE
@@ -0,0 +1,32 @@
+[ ROT13 in Brainfuck
+from https://en.wikipedia.org/wiki/Brainfuck#ROT13
+]
+
+-,+[                         Read first character and start outer character reading loop
+-[                       Skip forward if character is 0
+>>++++[>++++++++<-]  Set up divisor (32) for division loop
+(MEMORY LAYOUT: dividend copy remainder divisor quotient zero zero)
+<+<-[                Set up dividend (x minus 1) and enter division loop
+>+>+>-[>>>]      Increase copy and remainder / reduce divisor / Normal case: skip forward
+<[[>+<-]>>+>]    Special case: move remainder back to divisor and increase quotient
+<<<<<-           Decrement dividend
+]                    End division loop
+]>>>[-]+                 End skip loop; zero former divisor and reuse space for a flag
+>--[-[<->+++[-]]]<[         Zero that flag unless quotient was 2 or 3; zero quotient; check flag
+++++++++++++<[       If flag then set up divisor (13) for second division loop
+(MEMORY LAYOUT: zero copy dividend divisor remainder quotient zero zero)
+>-[>+>>]         Reduce divisor; Normal case: increase remainder
+>[+[<+>-]>+>>]   Special case: increase remainder / move it back to divisor / increase quotient
+<<<<<-           Decrease dividend
+]                    End division loop
+>>[<+>-]             Add remainder back to divisor to get a useful 13
+>[                   Skip forward if quotient was 0
+-[               Decrement quotient and skip forward if quotient was 1
+-<<[-]>>     Zero quotient and divisor if quotient was 2
+]<<[<<->>-]>>    Zero divisor and subtract 13 from copy if quotient was 1
+]<<[<<+>>-]          Zero divisor and add 13 to copy if quotient was 0
+]                        End outer skip loop (jump to here if ((character minus 1)/32) was not 2 or 3)
+<[-]                     Clear remainder from first division if second division was skipped
+<.[-]                    Output ROT13ed character from copy and clear it
+<-,+                     Read next character
+]                            End character reading loop