diff options
| author | shyouhei <shyouhei@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2007-02-12 23:01:19 +0000 |
|---|---|---|
| committer | shyouhei <shyouhei@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2007-02-12 23:01:19 +0000 |
| commit | fd81221a8e2c3a8c77599602fe38cd563d86191d (patch) | |
| tree | 47faf15269b927feb9e4b13fe2d09a51dae4ddfd /benchmark/other-lang/fact.pl | |
| parent | 1a4b93cf920d0850061ce4b53351b4cdc7d464c7 (diff) | |
| download | ruby-fd81221a8e2c3a8c77599602fe38cd563d86191d.tar.gz | |
set svn:eol-style
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@11708 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
Diffstat (limited to 'benchmark/other-lang/fact.pl')
| -rw-r--r-- | benchmark/other-lang/fact.pl | 26 |
1 files changed, 13 insertions, 13 deletions
diff --git a/benchmark/other-lang/fact.pl b/benchmark/other-lang/fact.pl index 2cef18534c..a9b0b69cdf 100644 --- a/benchmark/other-lang/fact.pl +++ b/benchmark/other-lang/fact.pl @@ -1,13 +1,13 @@ -sub fact{
- my $n = @_[0];
- if($n < 2){
- return 1;
- }
- else{
- return $n * fact($n-1);
- }
-}
-
-for($i=0; $i<10000; $i++){
- &fact(100);
-}
+sub fact{ + my $n = @_[0]; + if($n < 2){ + return 1; + } + else{ + return $n * fact($n-1); + } +} + +for($i=0; $i<10000; $i++){ + &fact(100); +} |