Ermitteln, ob eine Zahl eine Zweierpotenz ist.

Spaceguide · Beiträge: 552 (D3/D7/D8) Prof.

Hey, bewundert mal diese Eleganz

IngoD7 · Beiträge: 629 D7

Spaceguide hat folgendes geschrieben:

Hey, bewundert mal diese Eleganz

Hast du gerade im Baströckchen "Schwanensee" getanzt? Sorry, habe ich verpasst .... :lol:

Oder meinst du deinen Code? Doch, ist ganz nett und leichter zu merken und schwerer zu durchschauen, als mein Vorschlag.

Spaceguide · Beiträge: 552 (D3/D7/D8) Prof.

... und um einiges performanter

zudem darf man = nicht mit fliesskommazahlen verwenden.

BenBE · Verfasst: Fr 14.01.05 00:19

Spaceguide hat folgendes geschrieben:

markieren

Delphi-Quelltext

1:
2:
3:
4:

function IsPowerOfTwo(d : dword) : boolean;
begin
  Result := (d>0) and (d and (d - 1) = 0);
end;

Moderiert von BenBE: Mod-Tag durch eigenen ersetzt

Wäre also in ASM:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

function IsPowerOfTwo(Const Value : DWORD) : Boolean;
asm
    TEST EAX, EAX
    JZ @@FinishZ

    MOV EDX, EAX
    DEC EDX

    TEST EAX, EDX

    SETZ AL
    OR AL, AL
@@FinishZ:
    SETNZ AL
end;

Aber die Grundidee ist cool! Muss man wirklich drauf kommen. Absolutes Lob!

_________________

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.

I.MacLeod · Beiträge: 109

Wirklich nicht schlecht ;-)

Spaceguide hat folgendes geschrieben:

zudem darf man = nicht mit fliesskommazahlen verwenden.

Darf man glaub ich nur nicht mit Fließkommazahlen verschiedener Typen machen. Solange man Extended mit Extended und Real mit Single (*g*) vergleicht ist alles ok.

@BenBE:

Das or al, al würde ich einfach durch ein ret ersetzen, dann sparst du dir das or und noch ein setCC, und letzteres wird IIRC auf P4s ziemlich langsam ausgeführt.

Hier ist meine Variante:

mir ist noch aufgefallen dass AL ja sowieso schon 0 ist wenn der Sprung genommen wird.

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

function IsPowerOfTwo(const Value: DWORD) : Boolean;
asm
      TEST EAX, EAX
      JZ @@done

      MOV EDX, EAX
      DEC EDX
   // oder:
   //   LEA EDX, [EAX-1]

      TEST EAX, EDX

      SETZ AL
  @@done:
end;

Ich nehme an die LEA-Variante ist langsamer, aber überprüft hab ichs jetzt nicht.

BenBE · Verfasst: Sa 15.01.05 19:11

I.MacLeod hat folgendes geschrieben:

@BenBE:

Das or al, al würde ich einfach durch ein ret ersetzen, dann sparst du dir das or und noch ein setCC, und letzteres wird IIRC auf P4s ziemlich langsam ausgeführt.

I.MacLeod hat folgendes geschrieben:

Hier ist meine Variante:

mir ist noch aufgefallen dass AL ja sowieso schon 0 ist wenn der Sprung genommen wird.

Das ist richtig. Hab ich glatt übersehen

. Hab nur erstmal das übersetzt, wie's der Compiler generieren würde ;-)

I.MacLeod hat folgendes geschrieben:

Ich nehme an die LEA-Variante ist langsamer, aber überprüft hab ichs jetzt nicht.

Ne, ganz im Gegenteil, die LEA ist sogar schneller, da du eine Anweisung sparst ... Wenn man ASM-Anweisungen sparen kann, soll mans machen

Wäre also die schnellste (bisher gefundene) Variante folgende:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

{$W-} //Stackframes abschalten!

function IsPowerOfTwo(const Value: DWORD) : Boolean; register; assembler;
asm
    TEST EAX, EAX
    RETZ

    LEA EDX, [EAX-1]
    TEST EAX, EDX
    SETZ AL
end;

_________________

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.

uall@ogc · Verfasst: Sa 15.01.05 19:28

RETZ kennt der delphi compiler net ;> und gibbet auch net

=>
jnz @blub
xor eax, eax
ret

@blub

BenBE · Verfasst: Sa 15.01.05 20:14

Da sind ja Z80-Prozessoren fortschrittlicher

Die können das nämlich

Hieße dann korrigiert:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

function IsPowerOfTwo(const Value: DWORD) : Boolean; register; assembler;
asm
    TEST EAX, EAX
    JZ @@Done

    LEA EDX, [EAX-1]
    TEST EAX, EDX
    SETZ AL
@@Done:
end;

Naja, kann passieren, wenn man I386 und Z80 mischt

_________________

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.

AXMD · Verfasst: Sa 15.01.05 20:15

@Ben: du solltest den Delphi-Tag beim Öffnen nicht schließen :lol:

AXMD

I.MacLeod · Beiträge: 109

BenBE hat folgendes geschrieben:

Ne, ganz im Gegenteil, die LEA ist sogar schneller, da du eine Anweisung sparst ... Wenn man ASM-Anweisungen sparen kann, soll mans machen

Nja, nicht unbedingt. Wenn ich zwei "einfache" durch eine "exotische" Anweisung ersetze würde ich mich lieber nicht darauf verlassen, dass es danach schneller ist (Womit ich nicht sagen will dass LEA exotisch ist). :roll:

Zitat:

Hieße dann korrigiert:

Kann es sein dass du einfach meine Version nochmal kopiert hast?

BenBE · Verfasst: So 16.01.05 00:10

I.MacLeod hat folgendes geschrieben:

Zitat:

Hieße dann korrigiert:

Kann es sein dass du einfach meine Version nochmal kopiert hast?

Naja, angefangen hab ich, mit ASM, aber stimmt schon, an meiner Version bist Du nicht ganz unschuldig

Aber im Grundegenommen würde das Patent auf diese Methode Spaceguide zustehen ;-)

Wir haben da nur dran Optimiert

_________________

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.

grayfox · Beiträge: 800 win98, winXP D4 Standard; D6 Personal

Zitat:

RETZ kennt der delphi compiler net ;> und gibbet auch net

na, dann werd ich dem compiler mal auf die sprünge helfen

--> retz

BenBE · Verfasst: So 16.01.05 00:49

I.MacLeod hat folgendes geschrieben:

BenBE hat folgendes geschrieben:

Ne, ganz im Gegenteil, die LEA ist sogar schneller, da du eine Anweisung sparst ... Wenn man ASM-Anweisungen sparen kann, soll mans machen

Nja, nicht unbedingt. Wenn ich zwei "einfache" durch eine "exotische" Anweisung ersetze würde ich mich lieber nicht darauf verlassen, dass es danach schneller ist (Womit ich nicht sagen will dass LEA exotisch ist). :roll:

Zitat:

Hieße dann korrigiert:

Kann es sein dass du einfach meine Version nochmal kopiert hast?

_________________

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.

uall@ogc · Verfasst: Mo 24.01.05 20:15

glaub das problem ist gelöst, da kann unser Benny ja auch mal den thread als bearbeitet/gelöst markieren

BenBE · Verfasst: Mo 24.01.05 22:10

Hab darauf gewartet, dass ein Programmierer mit viel zu viel Freizeit vielleicht noch ne kürzere findet ;-)

Aber gut, hab's mal als gelöst markiert

_________________

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.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme