Хабр Курсы для всех
РЕКЛАМА
Практикум, Хекслет, SkyPro, авторские курсы — собрали всех и попросили скидки. Осталось выбрать!
Оргвыводы: использовать процедурное расширение СУБД нужно (мое мнение) для администрировании баз данных, но никак не для реализации бизнес-логики, что часто можно слышать от отдельных товарищей. К.О.
return fibonacci(n -1) + fibonacci(n -2)
$ time perl -e 'sub fib1 {my $n = shift; return 1 if $n == 1 || $n == 2; return fib1($n - 2) + fib1($n - 1)} my $r; $r = fib1(11) for 1..2000; print "$r\n"'
89
real 0m0.575s
...
$ time perl -e 'sub fib2{my $n = shift; return 1 if $n == 1 || $n == 2; my ($a, $b) = (1, 1); for my $i (3..$n) {($a, $b) = ($b, $a+$b)} return $b} my $r; $r = fib2(11) for 1..2000; print "$r\n";'
89
real 0m0.039s
...
Меня удивляют эти поцреоты