Perl Array Rechnungen - #183550 (Allgemeines zu Perl)

lichtkind

2016-01-21 17:40

User since
2004-03-22
5701 Artikel
ModeratorIn + EditorIn

Code (perl): (dl )

my @fib = (1,1);
for my $i (2 .. 1000) {
    $fib[$i] = $fib[$i-2] + $fib[$i-1];
}

$i läuft durch die werte des bereichs (menge) und du arbeitest direkt auf dem array.

Für Mutige:

Code (perl): (dl )

    $fib[$_] = $fib[$_-2] + $fib[$_-1} for 2 .. 1000;

wenn du unbedingt eine funktion f benutzen sollst dann empfehle ich Memoize um es zu beschleunigen.
Last edited: 2016-01-21 20:46:18 +0100 (CET)