* io.c (rb_open_file): encoding in mode string was ignored if perm is

[ruby-svn.git] / sample / fib.pl

sub fib {
    my($n)=@_;
    if ($n<2) {
        return $n;
    }
    else {
        return fib($n-2)+fib($n-1);
    }
}

print fib(20), "\n";