6 use Test::More tests => 2;
11 # we need a control in the experiment
15 return $n * fact($n - 1);
23 return $n * $f->($n - 1);
32 return $n * ($f->($f))->($n - 1);
36 is(fact(10), fact2(10), '... our factorials match');
37 is(fact(10), fact3()->(10), '... our factorials match');