Searched defs:factorial (Results 1 - 1 of 1) sorted by relevance

/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/op/
H A Drecurse.t22 sub factorial { subroutine
23 $_[0] < 2 ? 1 : $_[0] * factorial($_[0] - 1);
56 is(factorial(10), 3628800, "factorial(10) == 3628800");
58 is(factorial(factorial(3)), 720, "factorial(factorial(3)) == 720");

Completed in 248 milliseconds