Hofstadter Figure-Figure sequences: Difference between revisions

m
(→‎{{header|Python}}: inserting perl6 section)
Line 260:
 
=={{header|Perl6}}==
This purely reccursiverecursive version is too slow, so it does not the last part of the task.
<lang perl6>
sub ffr(Int $n where { $n > 0 }) { $n == 1 ?? 1 !! ffr($n-1) + ffs($n-1) }
1,934

edits