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