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

/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Memoize/t/
H A Dcorrectness.t54 sub mt1 { # Fibonacci subroutine
57 mt1($n-1) + mt2($n-2);
62 mt1($n-1) + mt2($n-2);
65 @f1 = map { mt1($_) } (0 .. 15);
67 memoize('mt1');
68 @f3 = map { mt1($_) } (0 .. 15);
69 @f4 = map { mt1($_) } (0 .. 15);

Completed in 20 milliseconds