Die könnte ich mir auch selbst programmieren, aber es gibt eine fertige Funktion. Nur fällt sie mich nicht mehr ein.

Möglicher weise geht es mit

schneller, weil da der Funktionsaufruf werfällt, wenn ihn der Delphicompiler nicht sowieso wegoptimiert.

modulo is bekannterweise ein irre langsamer operator. Der schnellste weg ist doch, den letzten Bit einer ganzzahl auszulesen...
Also eher die endziffer zu pruefen als Modulo. Und sicherlich ist Odd nicht nur ein einfaches Modulo...

Wie wärs mit
if (Zahl shr 1) shl 1 = Zahl then ...?

Weil selbst zwei Bitshifter sollten schneller sein als ein Modulo. Der Beweis bleibt dem Leser überlassen.

na klar is das schneller. Ich meine Modulo fuehrt ja ne ganze Division durch...
Ich denke sogar, dass das ganze (fuer den Fall, dass es schneller is, als der Bitshifter) mitm InlineAssembler geloest wurde...
Wir koennen darauf vertrauen, dass die geschriebenen Sachen von Leuten gemacht wurden, die wissen, was sie tun. Daher wuerde ich mir fuer meinen Teil nie Anmassen, eine dieser Prozeduren und Funktionen selbst schneller oder genausogut zu schreiben...

es geht noch einfacher:


das tut in etwa das, was maweki gesagt hat: es prüft das 1-bit. da alle anderen 2er-potenzen gerade sind, repräsentiert genau dieses bit, ob die zahl gerade oder ungerade ist.

wüe wärs mit

funktioniert doch, oder?

*edit*
hmm ok, ich werde nie wieder beim fernsehm was posten

Ja, aber nur für Ungerade: Integer;

Ansonsten musst du wirklich die Prüfung auf = 0 durchführen.

Anyone who is capable of being elected president should on no account be allowed to do the job.
Ich code EdgeMonkey - In dubio pro Setting.

was soll es sonst fuer ungerade geben ausser Integer?

Nichts für Ungut Leute, aber Funktionen sind dazu da um benutzt zu werden. Wir schreiben hier kein Spiel wo ich eine million Prüfungen pro Sekunde machen muß. ODD reicht

Maweki,
z.b. real single float double etc.
da kann man net auf die bits prüfen weil das anders gespeichert wird
da muss man mod nehmen

ich hat mal eine funktion (für c++) die ausrechnet ob die übergebene zahl eine primzahl ist. wenn ich die funtkion gefunden hab, poste ich sie mal!

Zitat:

Maweki, z.b. real single float double etc. da kann man net auf die bits prüfen weil das anders gespeichert wird da muss man mod nehmen

allerdings stellt sich die frage, ob die zahl gerade oder ungerade ist, bei float typen sehr sehr selten

ausserdem kann man sie dann erst auf nen integer typ reduzieren (z.b. mit trunc) und dann das 1-bit prüfen. geht glaub ich auch noch schneller als modulo

gibts in delphi eigentlich direkte bit-prüfen / bit-setzen operatoren, wie BTR / BTS in assembler?

1. MOD geht NUR für Integer
2. FPU-Operationen sind lahm!
3. Ich kennen keinen normalen Programmierer, der nen Real auf Gerade\Ungerade überprüfen wöllte
4. Der InlineASM von Delphi unterstützt alle Grundlegenden i386-Befehle, ab D6 auch die 3dNow und MMX-Erweiterungen
5. Prüfung in ASM auf "gerader Vorkomma-Anteil":


6. Den unter 5. aufgeführten Src würde auch kein Normalo verwenden!

Anyone who is capable of being elected president should on no account be allowed to do the job.
Ich code EdgeMonkey - In dubio pro Setting.

6 Punkte, die unser aller Leben verändern werden!!

@Luzzifus:
Lass mir doch nicht immer SO VIEL Ehre zukommen

Anyone who is capable of being elected president should on no account be allowed to do the job.
Ich code EdgeMonkey - In dubio pro Setting.

@ScorpionKing: was hat das mit der ursprünglichen Frage zu tun?

@all: Odd ist keine Funktion in dem Sinn, der Compiler übersetzt sie nämlich mit genau einer ASM-Anweisung:

Wie Maweki schon sagte..

Maweki hat folgendes geschrieben:

Wir koennen darauf vertrauen, dass die geschriebenen Sachen von Leuten gemacht wurden, die wissen, was sie tun.

Genauso ist auch Assigned() (und viele andre Funktionen) eigentlich keine Funktion, sondern alles "Compiler-Magic"..!

@Motzi: sorry, da hab ich wohl was falsches gepostet. ich meinte natürlich ich hätte eine funktion die das ausrechnet!
hab sie aber verloren, weil meine festplatte vor ungefähr 1 monat einen totalcrash hatte und seitdem nicht mehr funzt. hab jezt ne neue!

aber zum thema: warum ist mod (zahl mod 2) langsam. ist das nicht assembler?

Motzi hat folgendes geschrieben:

markieren Delphi-Quelltext     1: function Odd(X: Longint): Boolean;

Genau genommen stellt die Funktion Odd ja fest, ob eine Zahl ungerade ist.

Aber wie ein Thread, dessen klare Frage im ersten und dessen (fast) klare Antwort im zweiten Beitrag steht, noch auf 20 Postings kommen kann ...