Forum: Object-Pascal / Delphi-Language
Delphi
by alzaimar,
29. Okt 2008
So, jetzt habt ihr es geschafft. Ich brech mir hier einen ab, poste eine endgeniale rekursive Lösung für das vermutlich NP-Komplette Problem der Zahlennegierung, das eben nicht mit irgendwelche billigen und zweitklassigen maschinen- implementierungs- und sonstwasabhängigen Eigenheiten auskommt, aber nee, neee, nee, ein grenzdebiler und altersschwacher Semiausländer wird ignoriert, in die Ecke...
Forum: Object-Pascal / Delphi-Language
Delphi
by alzaimar,
29. Okt 2008
Rekursiv? :cheer: Hat hier noch niemand an Rekusivität gedacht?
Function MakeNegative (Const aNumber : Integer) : Integer;
Begin
If aNumber>0 Then
Result := MakeNegative (aNumber-1)-1
Else
Result := 0;
End;
Vielleicht könnte man das noch in die Klasse einbauen... Ansonsten könnte man vielleicht noch einen Webservice implementieren und der Allgemeinheit zur Verfügung stellen.