diff options
Diffstat (limited to 'sample/fib.pl')
-rw-r--r-- | sample/fib.pl | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/sample/fib.pl b/sample/fib.pl new file mode 100644 index 0000000000..c5593764aa --- /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"; |