Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
branch: nqp_pct
Fetching contributors…

Cannot retrieve contributors at this time

43 lines (28 sloc) 0.645 kB
#! perl
# Copyright (C) 2001-2003, Parrot Foundation.
=head1 NAME
examples/benchmarks/fib.pl - Fibonacci Benchmark
=head1 SYNOPSIS
% time perl examples/benchmarks/fib.pl n
=head1 DESCRIPTION
Calculates the Fibonacci Number for C<n> (defaults to 28 if
unspecified).
=cut
use strict;
use warnings;
sub fib {
my $n = shift;
return $n if ( $n < 2 );
return fib( $n - 1 ) + fib( $n - 2 );
}
my $N = shift || 28;
print "fib($N) = ", fib($N), "\n";
=head1 SEE ALSO
F<examples/benchmarks/fib.pir>.
=cut
# Local Variables:
# mode: cperl
# cperl-indent-level: 4
# fill-column: 100
# End:
# vim: expandtab shiftwidth=4:
Jump to Line
Something went wrong with that request. Please try again.