progs/while-compiler-arrays/mandelbrot.bf
author Christian Urban <christian.urban@kcl.ac.uk>
Sun, 23 Aug 2020 23:44:44 +0100
changeset 745 905b60a029bf
child 746 1779f8488689
permissions -rw-r--r--
updated
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
745
905b60a029bf updated
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
     1
      A mandelbrot set fractal viewer in brainf*** written by Erik Bosman
905b60a029bf updated
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
     2
+++++++++++++[->++>>>+++++>++>+<<<<<<]>>>>>++++++>--->>>>>>>>>>+++++++++++++++[[
905b60a029bf updated
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
     3
>>>>>>>>>]+[<<<<<<<<<]>>>>>>>>>-]+[>>>>>>>>[-]>]<<<<<<<<<[<<<<<<<<<]>>>>>>>>[-]+
905b60a029bf updated
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
     4
<<<<<<<+++++[-[->>>>>>>>>+<<<<<<<<<]>>>>>>>>>]>>>>>>>+>>>>>>>>>>>>>>>>>>>>>>>>>>
905b60a029bf updated
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
     5
>+<<<<<<<<<<<<<<<<<[<<<<<<<<<]>>>[-]+[>>>>>>[>>>>>>>[-]>>]<<<<<<<<<[<<<<<<<<<]>>
905b60a029bf updated
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
     6
>>>>>[-]+<<<<<<++++[-[->>>>>>>>>+<<<<<<<<<]>>>>>>>>>]>>>>>>+<<<<<<+++++++[-[->>>
905b60a029bf updated
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
     7
>>>>>>+<<<<<<<<<]>>>>>>>>>]>>>>>>+<<<<<<<<<<<<<<<<[<<<<<<<<<]>>>[[-]>>>>>>[>>>>>
905b60a029bf updated
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
     8
>>[-<<<<<<+>>>>>>]<<<<<<[->>>>>>+<<+<<<+<]>>>>>>>>]<<<<<<<<<[<<<<<<<<<]>>>>>>>>>
905b60a029bf updated
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
     9
[>>>>>>>>[-<<<<<<<+>>>>>>>]<<<<<<<[->>>>>>>+<<+<<<+<<]>>>>>>>>]<<<<<<<<<[<<<<<<<
905b60a029bf updated
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
    10
<<]>>>>>>>[-<<<<<<<+>>>>>>>]<<<<<<<[->>>>>>>+<<+<<<<<]>>>>>>>>>+++++++++++++++[[
905b60a029bf updated
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
    11
>>>>>>>>>]+>[-]>[-]>[-]>[-]>[-]>[-]>[-]>[-]>[-]<<<<<<<<<[<<<<<<<<<]>>>>>>>>>-]+[
905b60a029bf updated
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
    12
>+>>>>>>>>]<<<<<<<<<[<<<<<<<<<]>>>>>>>>>[>->>>>[-<<<<+>>>>]<<<<[->>>>+<<<<<[->>[
905b60a029bf updated
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
    13
-<<+>>]<<[->>+>>+<<<<]+>>>>>>>>>]<<<<<<<<[<<<<<<<<<]]>>>>>>>>>[>>>>>>>>>]<<<<<<<
905b60a029bf updated
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
    14
<<[>[->>>>>>>>>+<<<<<<<<<]<<<<<<<<<<]>[->>>>>>>>>+<<<<<<<<<]<+>>>>>>>>]<<<<<<<<<
905b60a029bf updated
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
    15
[>[-]<->>>>[-<<<<+>[<->-<<<<<<+>>>>>>]<[->+<]>>>>]<<<[->>>+<<<]<+<<<<<<<<<]>>>>>
905b60a029bf updated
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
    16
>>>>[>+>>>>>>>>]<<<<<<<<<[<<<<<<<<<]>>>>>>>>>[>->>>>>[-<<<<<+>>>>>]<<<<<[->>>>>+
905b60a029bf updated
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
    17
<<<<<<[->>>[-<<<+>>>]<<<[->>>+>+<<<<]+>>>>>>>>>]<<<<<<<<[<<<<<<<<<]]>>>>>>>>>[>>
905b60a029bf updated
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
    18
>>>>>>>]<<<<<<<<<[>>[->>>>>>>>>+<<<<<<<<<]<<<<<<<<<<<]>>[->>>>>>>>>+<<<<<<<<<]<<
905b60a029bf updated
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
    19
+>>>>>>>>]<<<<<<<<<[>[-]<->>>>[-<<<<+>[<->-<<<<<<+>>>>>>]<[->+<]>>>>]<<<[->>>+<<
905b60a029bf updated
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
    20
<]<+<<<<<<<<<]>>>>>>>>>[>>>>[-<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<+>>>>>>>>>>>>>
905b60a029bf updated
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
    21
>>>>>>>>>>>>>>>>>>>>>>>]>>>>>]<<<<<<<<<[<<<<<<<<<]>>>>>>>>>+++++++++++++++[[>>>>
905b60a029bf updated
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
    22
>>>>>]<<<<<<<<<-<<<<<<<<<[<<<<<<<<<]>>>>>>>>>-]+>>>>>>>>>>>>>>>>>>>>>+<<<[<<<<<<
905b60a029bf updated
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
    23
<<<]>>>>>>>>>[>>>[-<<<->>>]+<<<[->>>->[-<<<<+>>>>]<<<<[->>>>+<<<<<<<<<<<<<[<<<<<
905b60a029bf updated
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
    24
<<<<]>>>>[-]+>>>>>[>>>>>>>>>]>+<]]+>>>>[-<<<<->>>>]+<<<<[->>>>-<[-<<<+>>>]<<<[->
905b60a029bf updated
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
    25
>>+<<<<<<<<<<<<[<<<<<<<<<]>>>[-]+>>>>>>[>>>>>>>>>]>[-]+<]]+>[-<[>>>>>>>>>]<<<<<<
905b60a029bf updated
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
    26
<<]>>>>>>>>]<<<<<<<<<[<<<<<<<<<]<<<<<<<[->+>>>-<<<<]>>>>>>>>>+++++++++++++++++++
905b60a029bf updated
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
    27
+++++++>>[-<<<<+>>>>]<<<<[->>>>+<<[-]<<]>>[<<<<<<<+<[-<+>>>>+<<[-]]>[-<<[->+>>>-
905b60a029bf updated
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
    28
<<<<]>>>]>>>>>>>>>>>>>[>>[-]>[-]>[-]>>>>>]<<<<<<<<<[<<<<<<<<<]>>>[-]>>>>>>[>>>>>
905b60a029bf updated
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
    29
[-<<<<+>>>>]<<<<[->>>>+<<<+<]>>>>>>>>]<<<<<<<<<[<<<<<<<<<]>>>>>>>>>[>>[-<<<<<<<<
905b60a029bf updated
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
    30
<+>>>>>>>>>]>>>>>>>]<<<<<<<<<[<<<<<<<<<]>>>>>>>>>+++++++++++++++[[>>>>>>>>>]+>[-
905b60a029bf updated
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
    31
]>[-]>[-]>[-]>[-]>[-]>[-]>[-]>[-]<<<<<<<<<[<<<<<<<<<]>>>>>>>>>-]+[>+>>>>>>>>]<<<
905b60a029bf updated
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
    32
<<<<<<[<<<<<<<<<]>>>>>>>>>[>->>>>>[-<<<<<+>>>>>]<<<<<[->>>>>+<<<<<<[->>[-<<+>>]<
905b60a029bf updated
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
    33
<[->>+>+<<<]+>>>>>>>>>]<<<<<<<<[<<<<<<<<<]]>>>>>>>>>[>>>>>>>>>]<<<<<<<<<[>[->>>>
905b60a029bf updated
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
    34
>>>>>+<<<<<<<<<]<<<<<<<<<<]>[->>>>>>>>>+<<<<<<<<<]<+>>>>>>>>]<<<<<<<<<[>[-]<->>>
905b60a029bf updated
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
    35
[-<<<+>[<->-<<<<<<<+>>>>>>>]<[->+<]>>>]<<[->>+<<]<+<<<<<<<<<]>>>>>>>>>[>>>>>>[-<
905b60a029bf updated
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
    36
<<<<+>>>>>]<<<<<[->>>>>+<<<<+<]>>>>>>>>]<<<<<<<<<[<<<<<<<<<]>>>>>>>>>[>+>>>>>>>>
905b60a029bf updated
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
    37
]<<<<<<<<<[<<<<<<<<<]>>>>>>>>>[>->>>>>[-<<<<<+>>>>>]<<<<<[->>>>>+<<<<<<[->>[-<<+
905b60a029bf updated
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
    38
>>]<<[->>+>>+<<<<]+>>>>>>>>>]<<<<<<<<[<<<<<<<<<]]>>>>>>>>>[>>>>>>>>>]<<<<<<<<<[>
905b60a029bf updated
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
    39
[->>>>>>>>>+<<<<<<<<<]<<<<<<<<<<]>[->>>>>>>>>+<<<<<<<<<]<+>>>>>>>>]<<<<<<<<<[>[-
905b60a029bf updated
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
    40
]<->>>>[-<<<<+>[<->-<<<<<<+>>>>>>]<[->+<]>>>>]<<<[->>>+<<<]<+<<<<<<<<<]>>>>>>>>>
905b60a029bf updated
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
    41
[>>>>[-<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<+>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
905b60a029bf updated
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
    42
]>>>>>]<<<<<<<<<[<<<<<<<<<]>>>>>>>>>[>>>[-<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<+>
905b60a029bf updated
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
    43
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>]>>>>>>]<<<<<<<<<[<<<<<<<<<]>>>>>>>>>++++++++
905b60a029bf updated
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
    44
+++++++[[>>>>>>>>>]<<<<<<<<<-<<<<<<<<<[<<<<<<<<<]>>>>>>>>>-]+[>>>>>>>>[-<<<<<<<+
905b60a029bf updated
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
    45
>>>>>>>]<<<<<<<[->>>>>>>+<<<<<<+<]>>>>>>>>]<<<<<<<<<[<<<<<<<<<]>>>>>>>>>[>>>>>>[
905b60a029bf updated
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
    46
-]>>>]<<<<<<<<<[<<<<<<<<<]>>>>+>[-<-<<<<+>>>>>]>[-<<<<<<[->>>>>+<++<<<<]>>>>>[-<
905b60a029bf updated
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
    47
<<<<+>>>>>]<->+>]<[->+<]<<<<<[->>>>>+<<<<<]>>>>>>[-]<<<<<<+>>>>[-<<<<->>>>]+<<<<
905b60a029bf updated
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
    48
[->>>>->>>>>[>>[-<<->>]+<<[->>->[-<<<+>>>]<<<[->>>+<<<<<<<<<<<<[<<<<<<<<<]>>>[-]
905b60a029bf updated
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
    49
+>>>>>>[>>>>>>>>>]>+<]]+>>>[-<<<->>>]+<<<[->>>-<[-<<+>>]<<[->>+<<<<<<<<<<<[<<<<<
905b60a029bf updated
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
    50
<<<<]>>>>[-]+>>>>>[>>>>>>>>>]>[-]+<]]+>[-<[>>>>>>>>>]<<<<<<<<]>>>>>>>>]<<<<<<<<<
905b60a029bf updated
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
    51
[<<<<<<<<<]>>>>[-<<<<+>>>>]<<<<[->>>>+>>>>>[>+>>[-<<->>]<<[->>+<<]>>>>>>>>]<<<<<
905b60a029bf updated
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
    52
<<<+<[>[->>>>>+<<<<[->>>>-<<<<<<<<<<<<<<+>>>>>>>>>>>[->>>+<<<]<]>[->>>-<<<<<<<<<
905b60a029bf updated
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
    53
<<<<<+>>>>>>>>>>>]<<]>[->>>>+<<<[->>>-<<<<<<<<<<<<<<+>>>>>>>>>>>]<]>[->>>+<<<]<<
905b60a029bf updated
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
    54
<<<<<<<<<<]>>>>[-]<<<<]>>>[-<<<+>>>]<<<[->>>+>>>>>>[>+>[-<->]<[->+<]>>>>>>>>]<<<
905b60a029bf updated
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
    55
<<<<<+<[>[->>>>>+<<<[->>>-<<<<<<<<<<<<<<+>>>>>>>>>>[->>>>+<<<<]>]<[->>>>-<<<<<<<
905b60a029bf updated
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
    56
<<<<<<<+>>>>>>>>>>]<]>>[->>>+<<<<[->>>>-<<<<<<<<<<<<<<+>>>>>>>>>>]>]<[->>>>+<<<<
905b60a029bf updated
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
    57
]<<<<<<<<<<<]>>>>>>+<<<<<<]]>>>>[-<<<<+>>>>]<<<<[->>>>+>>>>>[>>>>>>>>>]<<<<<<<<<
905b60a029bf updated
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
    58
[>[->>>>>+<<<<[->>>>-<<<<<<<<<<<<<<+>>>>>>>>>>>[->>>+<<<]<]>[->>>-<<<<<<<<<<<<<<
905b60a029bf updated
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
    59
+>>>>>>>>>>>]<<]>[->>>>+<<<[->>>-<<<<<<<<<<<<<<+>>>>>>>>>>>]<]>[->>>+<<<]<<<<<<<
905b60a029bf updated
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
    60
<<<<<]]>[-]>>[-]>[-]>>>>>[>>[-]>[-]>>>>>>]<<<<<<<<<[<<<<<<<<<]>>>>>>>>>[>>>>>[-<
905b60a029bf updated
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
    61
<<<+>>>>]<<<<[->>>>+<<<+<]>>>>>>>>]<<<<<<<<<[<<<<<<<<<]>>>>>>>>>+++++++++++++++[
905b60a029bf updated
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
    62
[>>>>>>>>>]+>[-]>[-]>[-]>[-]>[-]>[-]>[-]>[-]>[-]<<<<<<<<<[<<<<<<<<<]>>>>>>>>>-]+
905b60a029bf updated
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
    63
[>+>>>>>>>>]<<<<<<<<<[<<<<<<<<<]>>>>>>>>>[>->>>>[-<<<<+>>>>]<<<<[->>>>+<<<<<[->>
905b60a029bf updated
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
    64
[-<<+>>]<<[->>+>+<<<]+>>>>>>>>>]<<<<<<<<[<<<<<<<<<]]>>>>>>>>>[>>>>>>>>>]<<<<<<<<
905b60a029bf updated
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
    65
<[>[->>>>>>>>>+<<<<<<<<<]<<<<<<<<<<]>[->>>>>>>>>+<<<<<<<<<]<+>>>>>>>>]<<<<<<<<<[
905b60a029bf updated
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
    66
>[-]<->>>[-<<<+>[<->-<<<<<<<+>>>>>>>]<[->+<]>>>]<<[->>+<<]<+<<<<<<<<<]>>>>>>>>>[
905b60a029bf updated
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
    67
>>>[-<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<+>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>]>
905b60a029bf updated
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
    68
>>>>>]<<<<<<<<<[<<<<<<<<<]>>>>>[-]>>>>+++++++++++++++[[>>>>>>>>>]<<<<<<<<<-<<<<<
905b60a029bf updated
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
    69
<<<<[<<<<<<<<<]>>>>>>>>>-]+[>>>[-<<<->>>]+<<<[->>>->[-<<<<+>>>>]<<<<[->>>>+<<<<<
905b60a029bf updated
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
    70
<<<<<<<<[<<<<<<<<<]>>>>[-]+>>>>>[>>>>>>>>>]>+<]]+>>>>[-<<<<->>>>]+<<<<[->>>>-<[-
905b60a029bf updated
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
    71
<<<+>>>]<<<[->>>+<<<<<<<<<<<<[<<<<<<<<<]>>>[-]+>>>>>>[>>>>>>>>>]>[-]+<]]+>[-<[>>
905b60a029bf updated
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
    72
>>>>>>>]<<<<<<<<]>>>>>>>>]<<<<<<<<<[<<<<<<<<<]>>>[-<<<+>>>]<<<[->>>+>>>>>>[>+>>>
905b60a029bf updated
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
    73
[-<<<->>>]<<<[->>>+<<<]>>>>>>>>]<<<<<<<<+<[>[->+>[-<-<<<<<<<<<<+>>>>>>>>>>>>[-<<
905b60a029bf updated
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
    74
+>>]<]>[-<<-<<<<<<<<<<+>>>>>>>>>>>>]<<<]>>[-<+>>[-<<-<<<<<<<<<<+>>>>>>>>>>>>]<]>
905b60a029bf updated
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
    75
[-<<+>>]<<<<<<<<<<<<<]]>>>>[-<<<<+>>>>]<<<<[->>>>+>>>>>[>+>>[-<<->>]<<[->>+<<]>>
905b60a029bf updated
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
    76
>>>>>>]<<<<<<<<+<[>[->+>>[-<<-<<<<<<<<<<+>>>>>>>>>>>[-<+>]>]<[-<-<<<<<<<<<<+>>>>
905b60a029bf updated
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
    77
>>>>>>>]<<]>>>[-<<+>[-<-<<<<<<<<<<+>>>>>>>>>>>]>]<[-<+>]<<<<<<<<<<<<]>>>>>+<<<<<
905b60a029bf updated
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
    78
]>>>>>>>>>[>>>[-]>[-]>[-]>>>>]<<<<<<<<<[<<<<<<<<<]>>>[-]>[-]>>>>>[>>>>>>>[-<<<<<
905b60a029bf updated
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
    79
<+>>>>>>]<<<<<<[->>>>>>+<<<<+<<]>>>>>>>>]<<<<<<<<<[<<<<<<<<<]>>>>+>[-<-<<<<+>>>>
905b60a029bf updated
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
    80
>]>>[-<<<<<<<[->>>>>+<++<<<<]>>>>>[-<<<<<+>>>>>]<->+>>]<<[->>+<<]<<<<<[->>>>>+<<
905b60a029bf updated
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
    81
<<<]+>>>>[-<<<<->>>>]+<<<<[->>>>->>>>>[>>>[-<<<->>>]+<<<[->>>-<[-<<+>>]<<[->>+<<
905b60a029bf updated
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
    82
<<<<<<<<<[<<<<<<<<<]>>>>[-]+>>>>>[>>>>>>>>>]>+<]]+>>[-<<->>]+<<[->>->[-<<<+>>>]<
905b60a029bf updated
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
    83
<<[->>>+<<<<<<<<<<<<[<<<<<<<<<]>>>[-]+>>>>>>[>>>>>>>>>]>[-]+<]]+>[-<[>>>>>>>>>]<
905b60a029bf updated
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
    84
<<<<<<<]>>>>>>>>]<<<<<<<<<[<<<<<<<<<]>>>[-<<<+>>>]<<<[->>>+>>>>>>[>+>[-<->]<[->+
905b60a029bf updated
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
    85
<]>>>>>>>>]<<<<<<<<+<[>[->>>>+<<[->>-<<<<<<<<<<<<<+>>>>>>>>>>[->>>+<<<]>]<[->>>-
905b60a029bf updated
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
    86
<<<<<<<<<<<<<+>>>>>>>>>>]<]>>[->>+<<<[->>>-<<<<<<<<<<<<<+>>>>>>>>>>]>]<[->>>+<<<
905b60a029bf updated
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
    87
]<<<<<<<<<<<]>>>>>[-]>>[-<<<<<<<+>>>>>>>]<<<<<<<[->>>>>>>+<<+<<<<<]]>>>>[-<<<<+>
905b60a029bf updated
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
    88
>>>]<<<<[->>>>+>>>>>[>+>>[-<<->>]<<[->>+<<]>>>>>>>>]<<<<<<<<+<[>[->>>>+<<<[->>>-
905b60a029bf updated
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
    89
<<<<<<<<<<<<<+>>>>>>>>>>>[->>+<<]<]>[->>-<<<<<<<<<<<<<+>>>>>>>>>>>]<<]>[->>>+<<[
905b60a029bf updated
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
    90
->>-<<<<<<<<<<<<<+>>>>>>>>>>>]<]>[->>+<<]<<<<<<<<<<<<]]>>>>[-]<<<<]>>>>[-<<<<+>>
905b60a029bf updated
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
    91
>>]<<<<[->>>>+>[-]>>[-<<<<<<<+>>>>>>>]<<<<<<<[->>>>>>>+<<+<<<<<]>>>>>>>>>[>>>>>>
905b60a029bf updated
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
    92
>>>]<<<<<<<<<[>[->>>>+<<<[->>>-<<<<<<<<<<<<<+>>>>>>>>>>>[->>+<<]<]>[->>-<<<<<<<<
905b60a029bf updated
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
    93
<<<<<+>>>>>>>>>>>]<<]>[->>>+<<[->>-<<<<<<<<<<<<<+>>>>>>>>>>>]<]>[->>+<<]<<<<<<<<
905b60a029bf updated
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
    94
<<<<]]>>>>>>>>>[>>[-]>[-]>>>>>>]<<<<<<<<<[<<<<<<<<<]>>>[-]>[-]>>>>>[>>>>>[-<<<<+
905b60a029bf updated
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
    95
>>>>]<<<<[->>>>+<<<+<]>>>>>>>>]<<<<<<<<<[<<<<<<<<<]>>>>>>>>>[>>>>>>[-<<<<<+>>>>>
905b60a029bf updated
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
    96
]<<<<<[->>>>>+<<<+<<]>>>>>>>>]<<<<<<<<<[<<<<<<<<<]>>>>>>>>>+++++++++++++++[[>>>>
905b60a029bf updated
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
    97
>>>>>]+>[-]>[-]>[-]>[-]>[-]>[-]>[-]>[-]>[-]<<<<<<<<<[<<<<<<<<<]>>>>>>>>>-]+[>+>>
905b60a029bf updated
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
    98
>>>>>>]<<<<<<<<<[<<<<<<<<<]>>>>>>>>>[>->>>>[-<<<<+>>>>]<<<<[->>>>+<<<<<[->>[-<<+
905b60a029bf updated
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
    99
>>]<<[->>+>>+<<<<]+>>>>>>>>>]<<<<<<<<[<<<<<<<<<]]>>>>>>>>>[>>>>>>>>>]<<<<<<<<<[>
905b60a029bf updated
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
   100
[->>>>>>>>>+<<<<<<<<<]<<<<<<<<<<]>[->>>>>>>>>+<<<<<<<<<]<+>>>>>>>>]<<<<<<<<<[>[-
905b60a029bf updated
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
   101
]<->>>>[-<<<<+>[<->-<<<<<<+>>>>>>]<[->+<]>>>>]<<<[->>>+<<<]<+<<<<<<<<<]>>>>>>>>>
905b60a029bf updated
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
   102
[>+>>>>>>>>]<<<<<<<<<[<<<<<<<<<]>>>>>>>>>[>->>>>>[-<<<<<+>>>>>]<<<<<[->>>>>+<<<<
905b60a029bf updated
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
   103
<<[->>>[-<<<+>>>]<<<[->>>+>+<<<<]+>>>>>>>>>]<<<<<<<<[<<<<<<<<<]]>>>>>>>>>[>>>>>>
905b60a029bf updated
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
   104
>>>]<<<<<<<<<[>>[->>>>>>>>>+<<<<<<<<<]<<<<<<<<<<<]>>[->>>>>>>>>+<<<<<<<<<]<<+>>>
905b60a029bf updated
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
   105
>>>>>]<<<<<<<<<[>[-]<->>>>[-<<<<+>[<->-<<<<<<+>>>>>>]<[->+<]>>>>]<<<[->>>+<<<]<+
905b60a029bf updated
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
   106
<<<<<<<<<]>>>>>>>>>[>>>>[-<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<+>>>>>>>>>>>>>>>>>
905b60a029bf updated
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
   107
>>>>>>>>>>>>>>>>>>>]>>>>>]<<<<<<<<<[<<<<<<<<<]>>>>>>>>>+++++++++++++++[[>>>>>>>>
905b60a029bf updated
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
   108
>]<<<<<<<<<-<<<<<<<<<[<<<<<<<<<]>>>>>>>>>-]+>>>>>>>>>>>>>>>>>>>>>+<<<[<<<<<<<<<]
905b60a029bf updated
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
   109
>>>>>>>>>[>>>[-<<<->>>]+<<<[->>>->[-<<<<+>>>>]<<<<[->>>>+<<<<<<<<<<<<<[<<<<<<<<<
905b60a029bf updated
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
   110
]>>>>[-]+>>>>>[>>>>>>>>>]>+<]]+>>>>[-<<<<->>>>]+<<<<[->>>>-<[-<<<+>>>]<<<[->>>+<
905b60a029bf updated
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
   111
<<<<<<<<<<<[<<<<<<<<<]>>>[-]+>>>>>>[>>>>>>>>>]>[-]+<]]+>[-<[>>>>>>>>>]<<<<<<<<]>
905b60a029bf updated
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
   112
>>>>>>>]<<<<<<<<<[<<<<<<<<<]>>->>[-<<<<+>>>>]<<<<[->>>>+<<[-]<<]>>]<<+>>>>[-<<<<
905b60a029bf updated
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
   113
->>>>]+<<<<[->>>>-<<<<<<.>>]>>>>[-<<<<<<<.>>>>>>>]<<<[-]>[-]>[-]>[-]>[-]>[-]>>>[
905b60a029bf updated
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
   114
>[-]>[-]>[-]>[-]>[-]>[-]>>>]<<<<<<<<<[<<<<<<<<<]>>>>>>>>>[>>>>>[-]>>>>]<<<<<<<<<
905b60a029bf updated
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
   115
[<<<<<<<<<]>+++++++++++[-[->>>>>>>>>+<<<<<<<<<]>>>>>>>>>]>>>>+>>>>>>>>>+<<<<<<<<
905b60a029bf updated
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
   116
<<<<<<[<<<<<<<<<]>>>>>>>[-<<<<<<<+>>>>>>>]<<<<<<<[->>>>>>>+[-]>>[>>>>>>>>>]<<<<<
905b60a029bf updated
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
   117
<<<<[>>>>>>>[-<<<<<<+>>>>>>]<<<<<<[->>>>>>+<<<<<<<[<<<<<<<<<]>>>>>>>[-]+>>>]<<<<
905b60a029bf updated
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
   118
<<<<<<]]>>>>>>>[-<<<<<<<+>>>>>>>]<<<<<<<[->>>>>>>+>>[>+>>>>[-<<<<->>>>]<<<<[->>>
905b60a029bf updated
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
   119
>+<<<<]>>>>>>>>]<<+<<<<<<<[>>>>>[->>+<<]<<<<<<<<<<<<<<]>>>>>>>>>[>>>>>>>>>]<<<<<
905b60a029bf updated
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
   120
<<<<[>[-]<->>>>>>>[-<<<<<<<+>[<->-<<<+>>>]<[->+<]>>>>>>>]<<<<<<[->>>>>>+<<<<<<]<
905b60a029bf updated
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
   121
+<<<<<<<<<]>>>>>>>-<<<<[-]+<<<]+>>>>>>>[-<<<<<<<->>>>>>>]+<<<<<<<[->>>>>>>->>[>>
905b60a029bf updated
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
   122
>>>[->>+<<]>>>>]<<<<<<<<<[>[-]<->>>>>>>[-<<<<<<<+>[<->-<<<+>>>]<[->+<]>>>>>>>]<<
905b60a029bf updated
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
   123
<<<<[->>>>>>+<<<<<<]<+<<<<<<<<<]>+++++[-[->>>>>>>>>+<<<<<<<<<]>>>>>>>>>]>>>>+<<<
905b60a029bf updated
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
   124
<<[<<<<<<<<<]>>>>>>>>>[>>>>>[-<<<<<->>>>>]+<<<<<[->>>>>->>[-<<<<<<<+>>>>>>>]<<<<
905b60a029bf updated
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
   125
<<<[->>>>>>>+<<<<<<<<<<<<<<<<[<<<<<<<<<]>>>>[-]+>>>>>[>>>>>>>>>]>+<]]+>>>>>>>[-<
905b60a029bf updated
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
   126
<<<<<<->>>>>>>]+<<<<<<<[->>>>>>>-<<[-<<<<<+>>>>>]<<<<<[->>>>>+<<<<<<<<<<<<<<[<<<
905b60a029bf updated
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
   127
<<<<<<]>>>[-]+>>>>>>[>>>>>>>>>]>[-]+<]]+>[-<[>>>>>>>>>]<<<<<<<<]>>>>>>>>]<<<<<<<
905b60a029bf updated
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
   128
<<[<<<<<<<<<]>>>>[-]<<<+++++[-[->>>>>>>>>+<<<<<<<<<]>>>>>>>>>]>>>>-<<<<<[<<<<<<<
905b60a029bf updated
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
   129
<<]]>>>]<<<<.>>>>>>>>>>[>>>>>>[-]>>>]<<<<<<<<<[<<<<<<<<<]>++++++++++[-[->>>>>>>>
905b60a029bf updated
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
   130
>+<<<<<<<<<]>>>>>>>>>]>>>>>+>>>>>>>>>+<<<<<<<<<<<<<<<[<<<<<<<<<]>>>>>>>>[-<<<<<<
905b60a029bf updated
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
   131
<<+>>>>>>>>]<<<<<<<<[->>>>>>>>+[-]>[>>>>>>>>>]<<<<<<<<<[>>>>>>>>[-<<<<<<<+>>>>>>
905b60a029bf updated
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
   132
>]<<<<<<<[->>>>>>>+<<<<<<<<[<<<<<<<<<]>>>>>>>>[-]+>>]<<<<<<<<<<]]>>>>>>>>[-<<<<<
905b60a029bf updated
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
   133
<<<+>>>>>>>>]<<<<<<<<[->>>>>>>>+>[>+>>>>>[-<<<<<->>>>>]<<<<<[->>>>>+<<<<<]>>>>>>
905b60a029bf updated
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
   134
>>]<+<<<<<<<<[>>>>>>[->>+<<]<<<<<<<<<<<<<<<]>>>>>>>>>[>>>>>>>>>]<<<<<<<<<[>[-]<-
905b60a029bf updated
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
   135
>>>>>>>>[-<<<<<<<<+>[<->-<<+>>]<[->+<]>>>>>>>>]<<<<<<<[->>>>>>>+<<<<<<<]<+<<<<<<
905b60a029bf updated
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
   136
<<<]>>>>>>>>-<<<<<[-]+<<<]+>>>>>>>>[-<<<<<<<<->>>>>>>>]+<<<<<<<<[->>>>>>>>->[>>>
905b60a029bf updated
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
   137
>>>[->>+<<]>>>]<<<<<<<<<[>[-]<->>>>>>>>[-<<<<<<<<+>[<->-<<+>>]<[->+<]>>>>>>>>]<<
905b60a029bf updated
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
   138
<<<<<[->>>>>>>+<<<<<<<]<+<<<<<<<<<]>+++++[-[->>>>>>>>>+<<<<<<<<<]>>>>>>>>>]>>>>>
905b60a029bf updated
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
   139
+>>>>>>>>>>>>>>>>>>>>>>>>>>>+<<<<<<[<<<<<<<<<]>>>>>>>>>[>>>>>>[-<<<<<<->>>>>>]+<
905b60a029bf updated
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
   140
<<<<<[->>>>>>->>[-<<<<<<<<+>>>>>>>>]<<<<<<<<[->>>>>>>>+<<<<<<<<<<<<<<<<<[<<<<<<<
905b60a029bf updated
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
   141
<<]>>>>[-]+>>>>>[>>>>>>>>>]>+<]]+>>>>>>>>[-<<<<<<<<->>>>>>>>]+<<<<<<<<[->>>>>>>>
905b60a029bf updated
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
   142
-<<[-<<<<<<+>>>>>>]<<<<<<[->>>>>>+<<<<<<<<<<<<<<<[<<<<<<<<<]>>>[-]+>>>>>>[>>>>>>
905b60a029bf updated
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
   143
>>>]>[-]+<]]+>[-<[>>>>>>>>>]<<<<<<<<]>>>>>>>>]<<<<<<<<<[<<<<<<<<<]>>>>[-]<<<++++
905b60a029bf updated
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
   144
+[-[->>>>>>>>>+<<<<<<<<<]>>>>>>>>>]>>>>>->>>>>>>>>>>>>>>>>>>>>>>>>>>-<<<<<<[<<<<
905b60a029bf updated
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
   145
<<<<<]]>>>]