Perl Array Rechnungen - #183554 (Allgemeines zu Perl)

hlubenow

2016-01-21 19:08

User since
2009-02-22
880 Artikel
BenutzerIn
[default_avatar]

2016-01-21T15:49:37 J0ke
f(0)=1;
f(1)=1;
für n>=2;
f(n)=f(n-2)+F8n-1)

Mit Fibonacci bin ich nicht so bewandert (wurde damals bei mir im Mathe-Grundkurs nicht gemacht), aber wenn man es mit f(x), also einer (mathematischen) Funktion, zu tun hat, sollte man mE auch eine Funktion im Programm verwenden (das dürfte am einfachsten sein):

Code (perl): (dl )

#!/usr/bin/perl

use warnings;
use strict;

sub fib {
    my $n = shift;
    if ($n < 0) {
        return "Error";
    }
    if ($n == 0) {
        return 0;
    }
    if ($n == 1 || $n == 2) {
        return 1;
    }
    return fib($n -1) + fib($n - 2);
}

my $i;
for ($i = 0; $i <= 15; $i++) {
    print fib($i) . "\n";
}