Padovan sequence: Difference between revisions
m
→{{header|Perl}}: removed state dependence for 'floor' routine
(F(0)=0) |
SqrtNegInf (talk | contribs) m (→{{header|Perl}}: removed state dependence for 'floor' routine) |
||
Line 1,297:
my $pad_recur = lazy_list { state @p = (1, 1, 1, 2); push @p, $p[1]+$p[2]; shift @p };
sub pad_floor {
my($l, $m, $n) = (10, 20, 32);
Line 1,309:
say join ' ', @L[0 .. $l-1];
$pr[$_] == $pf[$_] and $pr[$_] == length $L[$_] or die
say '100% agreement among all 3 methods.';</lang>
{{out}}
| |||