Rätsel: Seltsame Funktion

Hier kann alles mögliche diskutiert werden. Themen zu Purebasic sind hier erwünscht.
Flames und Spam kommen ungefragt in den Mülleimer.
Benutzeravatar
#NULL
Beiträge: 2238
Registriert: 20.04.2006 09:50

Beitrag von #NULL »

es wird glaub ich einfach bei jeder unterschiedlichen länge von _ oder __ oder ___ ect. eine neue (verschiedene) variable angelegt (und mit 0 initialisiert). _ und __ sind also einfach zwei variablen.

Code: Alles auswählen

A <= AA!((1|AA)!AAA) 
ist also nix weiter als

Code: Alles auswählen

param <= 1
..also die gewöhnliche einstiegs-/rekursions-bedingunge für eine fakul-funktion.

Code: Alles auswählen

ProcedureReturn AA!1|AAA|AAAA|AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 
-> procedure return 1
(rekursion beenden)
..u.s.w.u.s.f

also überall wo _ länger als 1 zeichen vorkommt, 0 einsetzen..




<edit>
"param > 0" war falsch meinerseits, ..korrigiert.
...
immernoch falsch :roll:
"param <= 1" muß es heißen, wobei auch
"param < 1" gehen würde ,weil 3*2*1 ja dasgleiche ist wie 3*2*1*1.
Zuletzt geändert von #NULL am 16.12.2006 17:14, insgesamt 2-mal geändert.
my pb stuff..
Bild..jedenfalls war das mal so.
Kaeru Gaman
Beiträge: 17389
Registriert: 10.11.2004 03:22

Beitrag von Kaeru Gaman »

also doch :mrgreen:
tricky versteckt die rekusion :allright:
ich hab se echt nicht gesehen...

gute güte...

glückwunsch an Froggerprogger: hast mich voll geleimt. :mrgreen: :allright:
Der Narr denkt er sei ein weiser Mann.
Der Weise weiß, dass er ein Narr ist.
Benutzeravatar
#NULL
Beiträge: 2238
Registriert: 20.04.2006 09:50

Beitrag von #NULL »

hier nochmal eine lesbare rekursions-variante

Code: Alles auswählen

Procedure fakul(n)
  If n <= 0
    ProcedureReturn 1
  Else
    ProcedureReturn n*fakul(n-1)
  EndIf
EndProcedure
4!
= 1 * 2 * 3 * 4
= 4 * 3 * 2 * 1
= 4 * (4-1) * ((4-1)-1) * (((4-1)-1)-1)
= 24
my pb stuff..
Bild..jedenfalls war das mal so.
Benutzeravatar
DarkSoul
Beiträge: 689
Registriert: 19.10.2006 12:51

Beitrag von DarkSoul »

dann ist ja ales klar :allright: :allright: :allright: :allright: :allright: :allright: :allright: :allright: :allright: :allright: :allright:
Bild
Benutzeravatar
Froggerprogger
Badmin
Beiträge: 855
Registriert: 08.09.2004 20:02

Beitrag von Froggerprogger »

:wink:

Ich war übers Wochenende leider in einer internetfreien Zone, aber ihr habt das ja alles sehr schön gelöst!

Also frohe Weihnachten!
!UD2
Antworten