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

/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/op/
H A Drecurse.t108 sub sillysum { subroutine
109 return $_[0] + ($_[0] > 0 ? sillysum($_[0] - 1) : 0);
112 is(sillysum(1000), 1000*1001/2, "recursive sum of 1..1000");

Completed in 20 milliseconds