Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
Leonardo Numbers
#perl 5.22.1 my %pretest=(0=>1,1=>1,); foreach (1..100){print leonardo($_),"\n"}; sub leonardo{ my $l=shift; if (exists $pretest{$l}){ return $pretest{$l} } $pretest{$l} = leonardo($l-2)+leonardo($l-1)+1; }
run
|
edit
|
history
|
help
0
doctor
Perlday1
Riyali-101738
Sort
Test 41/2
Jeffy John Sam (101724)
Perl
hash of arrays of arrays
perl_tutorial
main_objetos