Hofstadter Figure-Figure sequences: Difference between revisions
→{{header|Perl 6}}: Roll back to an older, but working version, lightly updated
Thundergnat (talk | contribs) (→{{header|Perl 6}}: Mark as broken) |
Thundergnat (talk | contribs) (→{{header|Perl 6}}: Roll back to an older, but working version, lightly updated) |
||
Line 1,577:
=={{header|Perl 6}}==
my %s = 1 => 2;
▲<lang perl6>my @ffr;
sub ffr ($n) {
return %r{$n} if %r{$n}:exists;
%r{$n} = ffr($n - 1) + ffs($n - 1);
return %r{$n};
}
sub ffs ($n) {
say @ffr[1..10];▼
return %s{$n} if %s{$n}:exists;
%s{$n} = (grep none( map &ffr, 1..$n), max(%s.values)+1..*)[0];
return %s{$n};
}
my @ffr = map &ffr, 1..*;
say "Rawks!" if (1...1000) eqv sort @ffr[1..40], @ffs[1..960];</lang>▼
my @ffs = map &ffs, 1..*;
Output:
<pre>
|