Name: Anonymous 2011-02-12 6:10
Fibonacci in Perl6.
Can your toy language do this?
my @fib := (0, 1, *+* ... *);Can your toy language do this?
my @fib := (0, 1, *+* ... *);
>,>,>++++++++[-<------<------>>]++++++++++[-<<[-<+>>+<]<[->+<]>
>>]<[-<<+>>]<[-]>>>>>>>>>>>>+<<<<<<<<<<<<<[->>+>+>+>+[->>>>[->>
>>>>>>+<<<<<<<<]>>>>[-<<<<+>>>>>>>>+<<<<]>>>>[-<<<<+>>>>]<<<<<<
<<<<<<<]>>>>>>>>>>>>>>+>+>+[-<<<<<[->>>>>+<<<<<]>[->>>>>+<<<<<]
>>>>>>+[<[->>+>+<<<]>>[-<<+>>]+>>>>[-]+++++++++<<<<[>[->+>+<<]+
>[<->[-]]<[-<[-]>]>>-[-<<+>>]>[->+>+<<]+>[<->[-]]<[-<<<<[-]>>>>
]>>-[-<<+>>]<<<<<<]+>+[[-]<-<<———-<+>>>>]<[[-]<[-]>]<]<<[-<<<<<
+>>>>>]>[-<<<<<+>>>>>]<<]<<<<<<<<<<<<<<]>>>>>[-]+++++++++++++++
+[->+++>+++>+++>+++<<<<]>.>.>.>.