Programmieren mit Perl unter Ubuntu

[_-=Dante=-_]

#!/usr/bin/perl

use strict;
use warnings;

my$n=0;

print "Geben Sie eine Zahl ein, von der Sie die dazugehörige Fibonacci-Zahl erhalten möchten\n";

$n=<STDIN>;


sub &Fibonacci
{
my $n=$_[0];

VARIABLE_$n=Fibonacci;

if ($n==0) {
return $n;
}

if ($n==1) {
return $n; }

return Fibonacci ($n - 1) + Fibonacci ($n - 2);
}

print Fibonacci ( $ARGV[0] )."\n";


Ich kriegs nicht hin...ich sitze seit heut morgen dran ohne Pause, ich kann nicht mehr denken...kannste nicht einfach sagen, wie der richtig heißen muss, damit dieses scheiß Programm, was nie ein Mensch brauchen wird, läuft?
Er sagt mir immer, wenn ich das Prog so starten soll, wie du gesagt hast, dass die sub nicht richtig deklariert wurde.

 

[Dragonix]

Schade, dabei warst du so nah dran.

#!/usr/bin/perl

 use strict;
 use warnings;

 my $n=0;


 print "Geben Sie eine Zahl ein, von der Sie die dazugehörige Fibonacci-Zahl erhalten möchten\n";

 $n=<STDIN>;

 print Fibonacci( $n )."\n";

 sub Fibonacci
 {
 my $n=$_[0];

 if ($n==0) {
 return $n;
 }

 if ($n==1) {
 return $n; }

 return Fibonacci ($n - 1) + Fibonacci ($n - 2);
 }

So läuft's bei mir. Ohne Garantie auf Perl'sche Feinheiten/Eigenheiten.

Allgemein: google --> perl fibonacci --> Rekursion