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