Searched refs:fibonacci (Results 1 - 1 of 1) sorted by relevance

/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/op/
H A Drecurse.t26 sub fibonacci { subroutine
27 $_[0] < 2 ? 1 : fibonacci($_[0] - 2) + fibonacci($_[0] - 1);
60 is(fibonacci(10), 89, "fibonacci(10) == 89");
62 is(fibonacci(fibonacci(7)), 17711, "fibonacci(fibonacci(7)) == 17711");

Completed in 15 milliseconds