RosettaCodeData/Task/Anonymous-recursion/Perl/anonymous-recursion-4.pl

6 lines
106 B
Perl

use v5.16;
say sub {
my $n = shift;
$n < 2 ? $n : __SUB__->($n-2) + __SUB__->($n-1)
}->($_) for 0..10