Hofstadter Figure-Figure sequences: Difference between revisions
Content added Content deleted
Thundergnat (talk | contribs) m (→{{header|Perl 6}}: add "works with") |
Thundergnat (talk | contribs) (→{{header|Perl 6}}: use orcish maneuvre to cut down on verbosity) |
||
Line 1,581: | Line 1,581: | ||
my %s = 1 => 2; |
my %s = 1 => 2; |
||
sub ffr ($n) { |
sub ffr ($n) { %r{$n} //= ffr($n - 1) + ffs($n - 1) } |
||
⚫ | |||
return %r{$n} if %r{$n}:exists; |
|||
%r{$n} = ffr($n - 1) + ffs($n - 1); |
|||
return %r{$n}; |
|||
} |
|||
sub ffs ($n) { |
|||
return %s{$n} if %s{$n}:exists; |
|||
⚫ | |||
return %s{$n}; |
|||
} |
|||
my @ffr = map &ffr, 1..*; |
my @ffr = map &ffr, 1..*; |
||
my @ffs = map &ffs, 1..*; |
my @ffs = map &ffs, 1..*; |
||
say @ffr[^10]; |
say @ffr[^10]; |
||
say "Rawks!" if 1...1000 eqv sort |@ffr[^40], |@ffs[^960];</lang> |
say "Rawks!" if 1...1000 eqv sort |@ffr[^40], |@ffs[^960];</lang> |
||
Output: |
Output: |