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