rekursiv sub aufrufen...

Moin,

probier's mal so:

#!/usr/bin/perl

$i=<STDIN>;
chop($i);

sub fak()
{$z=$f=$i;
  while($i>1){$f*=--$i};
  print $f.' ist die fukaltätärätätät von '.$z;
};

&fak;

gruß

matho

Wie wärs damit  <img border="0" title="" alt="[Winken]" src="images/icons/wink.gif" />

</font><blockquote><font size="1" face="Verdana, Helvetica, sans-serif">Code:</font><hr /><pre style="font-size:x-small; font-family: monospace;">sub fak {
   ($_[0]>1)?$_[0]*fak($_[0]-1):1;
}

print fak(6);[/code]</blockquote><font size="2" face="Verdana, Helvetica, sans-serif">

@ hannes

kleine Berichtigung:

sub fak {$_[0]!=0?$_[0]>1?$_[0]*fak($_[0]-1):1:0;};
print fak($i);

Sonst erhälst Du für $i==0 revolutionärerweise als Fakultät 1

gruß

matho

gute sache das  <img border="0" title="" alt="[Lächeln]" src="images/icons/smile.gif" />  nun funzts,thx. Aber wo war dann bei mir der Fehler? Hab dein Beispiel schon verstanden, kann bei mir aber keinen Fehler finden   <img border="0" title="" alt="[Enttäscht]" src="images/icons/frown.gif" /> 

F.

dennoch ein fehler in der version: die fakultät negativer zahlen (und strings und objekten *g*) ist nicht definiert... (zum Glück kenn ich den Scheiß mit Gamma noch nich *g*)

ok, danke für das erklären meines Fehlers.
Wobei ich das mit dem sub am anfang gut finde. Ist übersichtlicher (bins aus C++ gewohnt) und wenns net schadet...   <img border="0" title="" alt="[Winken]" src="images/icons/wink.gif" />     <img border="0" title="" alt="[Winken]" src="images/icons/wink.gif" /> 

F.
 
  <small>[ 19-03-2002, 22:09: Beitrag editiert von: dev0 ]</small>

Es schadet aber jedem Auge eines Perlprogrammierers *g* ... so schreibt man das einfach nicht  <img border="0" title="" alt="[Winken]" src="images/icons/wink.gif" />

@dev0:
nun ja ... man schreibt das in Perl eben nicht so .. es produziert zwar keinen Fehler ist aber unsauberer Code in der Perlsytnax .. aber wenn's Dir so besser gefällt ..   <img border="0" title="" alt="[Breites Grinsen]" src="images/icons/grin.gif" />

jaja *g* ... wie gesagt unüblich und sicherlich auch geschmackssache ... vorallem bringts halt nix ...

http://www.perldoc.com/perl5.6/pod/perlsub.html

Nochmal kurz zu dem Thema unsauber zurück zu kommen... Ich verwende selber sub's, so oft ich nur kann. Naja, das ist jetzt übertrieben, aber schon oft. Die Vorteile sind in der Webanwendung nicht sooo ofensichtlich, aber bei richtigen Programmen schon sehr deutlich. Funktionen, die ständig wiederkommen packe ich einfach in eine Sub, anstatt sie ständig wieder neu proggen zu müssen. Außerdem habe ich ein kleines Verzeichnis, in dem ich alle Subs abspeichere. So kann ich über CP die jeweils nötigen leicht einbauen. Ach ein richtiges Package läßt sich daraus machen -> Objektorientiert und so. Weiß ja net, ob ich den Kommentar falsch verstanden habe, aber Subs sind schon hilfreich und stehen für sauberes Programmieren - meines Erachtens.
Gruß Mirko

HI!

Ja, das ist eben typischer C/Cpp stil. So nach dem motto

int fak(int);

int main  {
  ....
}

int  fak(int fak){
....
}

Aber nah ner Zeit gewöhnt man sich das auch noch ab, da man immer eine Zeile mehr schreiben muss. Und da Perl Coder bekanntlich faul sind, machen sie das nicht.
Und wer zu faul ist lernt (lassen wir das leiber, sonst lynchen mich noch leute wie Gero etc.)

CU az