progs/bf/mandelbrot-huge.bf
author Christian Urban <christian.urban@kcl.ac.uk>
Fri, 04 Nov 2022 12:07:40 +0000
changeset 894 4d5058706f1b
parent 748 fca7f33a426c
permissions -rw-r--r--
updatedHG: added solutions/cw5/fun_tokens.sc
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
>>>>-<<<<<<[<<<<<<<<<]]>>>]