diff options
Diffstat (limited to 'trunk/benchmark/other-lang/fact.pl')
-rw-r--r-- | trunk/benchmark/other-lang/fact.pl | 13 |
1 files changed, 0 insertions, 13 deletions
diff --git a/trunk/benchmark/other-lang/fact.pl b/trunk/benchmark/other-lang/fact.pl deleted file mode 100644 index a9b0b69cdf..0000000000 --- a/trunk/benchmark/other-lang/fact.pl +++ /dev/null @@ -1,13 +0,0 @@ -sub fact{ - my $n = @_[0]; - if($n < 2){ - return 1; - } - else{ - return $n * fact($n-1); - } -} - -for($i=0; $i<10000; $i++){ - &fact(100); -} |