Initial revision

git-svn-id: http://svn.ruby-lang.org/repos/ruby/trunk@2 b2dd03c8-39d4-4d8f-98ff-823fe69b080e

1 files changed, 10 insertions, 0 deletions

diff --git a/sample/fib.pl b/sample/fib.pl
new file mode 100644
index 000000000..c5593764a
--- /dev/null
+++ b/sample/fib.pl
@@ -0,0 +1,10 @@
+   sub fib {
+       local($n)=@_;
+       if( $n<2 ){
+           return $n;
+       } {
+           return &fib($n-2)+&fib($n-1)
+       }
+   }
+
+   print &fib(20), "\n";