Rätsel: Seltsame Funktion

[Froggerprogger]

In Anlehnung hieran:
http://www.purebasic.fr/german/viewtopi ... 877163246a

Was berechnet diese Funktion ???

Code: Alles auswählen

Procedure _(_)
  If _ <= __!((1|__)!___)
    ProcedureReturn __!1|___|____|________________________________
  Else
    ProcedureReturn _*_((_-__-___-____-_____<<_____|____|___|__)-((_!_)|1))
  EndIf
EndProcedure

[#NULL]

also ohne test hab ichs nicht sicher rausgekriegt, aber gedacht hab ich es mir schon

[mknjc]

Das scheint ein doch sehr komplexer Algorithmus zu sein.

Ohne Papier und stift krieg ichs aber nicht raus.

Mfg mknjc

[DarkSoul]

hää??? sollen die unterstriche variablen sein??? hab ich da jetzt nen korken im kopf??? das sieht mir aus wie BrainFuck II. ich werdn teufel tun das aufzurufen - wer weiß was da drin ist...

[mknjc]

In PB darf auch ein Unterstrich eine Variable sein.

Die Procedure rechet einem einfach nur was vor.

Was genau... tja.

Mfg mknjc

[DarkSoul]

das wusste ic nicht. ich dachte nur buchstaben und zahlen . dann ist die funktion ja klar aber wofür die formel ist dafür bin ich nicht helle genug. hab mal nen pb-funktionstester gebastelt, muss ihn wohl mal rauskramen...

[mknjc]

Jag einfach das mal durch.

Werte unter 1 und über 33 machen kein sin da die Procedure dann nur 1 bzw 0 zurück gibt.

Code: Alles auswählen

Procedure _(_)
    If _ <= __!((1|__)!___)
        ProcedureReturn __!1|___|____|________________________________
    Else
        ProcedureReturn _*_((_-__-___-____-_____<<_____|____|___|__)-((_!_)|1))
    EndIf
EndProcedure 

For i = 1 To 33
    Debug _(i)
Next i

Das schlimme ist ja das die Procedure unsauber ist da werder der Dateityp des Rückgabewertes definiert ist noch der des Eingabewertes.

[ts-soft]

>> da werder der Dateityp des Rückgabewertes definiert ist
Der ist als Long definiert. Hilfe gucken

[Kaeru Gaman]

verzeihung, Datentyp.

Dateityp ist .txt .doc .exe usw.

[ts-soft]

>> Dateityp ist .txt .doc .exe usw.
<klugscheiss on> Das sind Dateierweiterungen <klugscheiss off>