"case of " VS "if then"Résolu

Question

Salut, 
j'aimerai savoir quel traitment est le plus rapide et le moins gournamd en memoire pour faire des actions du genre

case Valeur of
0: i:=1
1: i:=2
.. : i:=..
. : i:=..
300 : i:=3
end;

et
if i:=0 then
i:=1:

if i:=1 then
i:=2;
.....

if i:=300 then
i:=3;

Dans un cas comme ca, mis a part la visibilit&#233; il vaut mieux utiliser un case non?

jinh68 · Accepted Answer

Un if sans h&#233;sitation...Pour t'en convaincre fais une boucle et chronom&#232;tre &#224; l'aide de GetTickCounter.

j!nH

japee · Answer

Oui, sans conteste, quand on peut utiliser "Case of", c'est plus rapide (et plus &#233;l&#233;gant).

1 &#224; 0 en faveur de Case of !

ni69 · Answer

2 &#224; 0 pour "Case of" ! 


@+
Bonne Prog'
Nico



<HR>
N'oubliez pas de cliquer sur R&#233;ponse accept&#233;e lorsque la r&#233;ponse vous convient !

jinh68 · Answer

Bonjour, 

Je ne suis pas d'accord, un case prend plus d'instructions m&#233;moire car il teste quand m&#234;me tous les cas en interne..Cela d&#233;pend bien sur des cas, mais &#224; la base une imbrication de if..else est plus rapide.

j!nH

ni69 · Answer

Mais beaucoup moins lisible et &#231;a prend plus de place dan le code..... 


@+
Bonne Prog'
Nico



<HR>
N'oubliez pas de cliquer sur R&#233;ponse accept&#233;e lorsque la r&#233;ponse vous convient !

jinh68 · Answer

Oui mais l&#224; il a bien parl&#233; d'utilisation m&#233;moire et pas de visibilit&#233; ;).

j!nH

bundyboss · Answer

c'est exact, un code pas lisible ou peut le cacher...
Non pour un cas de 300 tests qu'est ce qui serai le plus rapide?

ni69 · Answer

jinh68 >> ok ok je me tais 


@+
Bonne Prog'
Nico



<HR>
N'oubliez pas de cliquer sur R&#233;ponse accept&#233;e lorsque la r&#233;ponse vous convient !

bundyboss · Answer

d'apres ni69, il vaut mieux te croire.... .
Je ferai sans doute prochainement un test meme si je ne connais pas GetTickCounter.. va falloir chercher encore lol..
Si j'y arrive et que j'ai le tps je posterai la reponse. 
Encore merci a vous tous.
"case of" =2
"if Then" =1 et remporte, qui a dit que la majorit&#233; gagne tjs

cs_neko · Answer

&#231;a depend de la version a delphi que tu as, a partir de la version 7 ( me semble ) le Case ... Of est optimis&#233; il fait ses comparaisons par dichotomie

bouh

bundyboss · Answer

Je suis sur la 3.0 mais c'est tres interessant a savoir! merci pour l'info

jinh68 · Answer

J'ai v&#233;rifi&#233; sous D5 , pour une boucle de 3000000 de cycles, le If met environ 20 ms de moins que le Case.

j!nH

cs_Kenavo · Answer

Tiens ben moi, c'est exactement le contraire, 200ms plus rapide pour le case

 (alors l&#224; je dis 200ms pour bien montrer que c'est mieux
que 20ms, mais si je ne dis pas sur combien... ! ni sur quelle machine
!)



En fait j'ai pas de r&#233;ponse correcte mesur&#233;e : je n'ai essay&#233; que sur des case ou if sur 60 valeurs (0 &#224; 59). Mais une chose parait s&#251;re, plus il y a de valeurs, et plus le Case prendra l'avantage, du fait de sa fa&#231;on de travailler .





EXECUTION :



A la compilation d'un case, une table des adresses des parties sp&#233;cifiques &#224; chaque

valeur est remplie, et le case execute une suite d'instruction du type :



cmp    eax,max

jnbe     suite       {si la valeur est sup&#233;rieure &#224; la plus grande  des valeurs du 
case }


jmp    dword ptr[eax * 4 + AdresseDebutTable]



et pi c'est tout !



A la compilation d'un if, on a un code du genre



cmp    bx,#valeur

jnz      plusloin

{instructions}

cmp    bx,#valeursuivante

jnz      plusloinencore

{autres instructions}

.... etc ....

.... etc ....

.... etc ....





Ce qui est s&#251;r, c'est que toutes les comparaisons sont effectu&#233;es, et donc plus il y en a, plus le boulot est long !







MEMOIRE : (puisque c'est aussi &#233;voqu&#233; dans la question initiale)



case : 4 instructions (20 octets environ) + table 4 octets x indice max du case

pour case de 0 &#224; 300 : 20 + 4 x 301 =  1224 octets



if : un compare (4 octets) et un saut (2 octets au mieux) par comparaison

pour un if avec nos valeurs de 0 &#224; 300 : 6 x 301 = 1806 octets





Donc, je ne suis pas d'accord avec j!nH, na !



Case vainqueur !




Ken@vo

____________________

Code, Code, Codec !





un code pour v&#233;rifier ce que je dis :



procedure Rien;

begin

end;



procedure TForm1.Button1Click(Sender: TObject);

var

  i: Word;

  j, h: longint;

begin

  h := GetTickCount;

  for j := 0 to 3000000 do

  begin

    i := SecondOf(Now);

    case i of

      0: Rien;

      1: Rien;

      2: Rien;

      3: Rien;

      4: Rien;

      5: Rien;

      6: Rien;

      7: Rien;

      8: Rien;

      9: Rien;

      10: Rien;

      11: Rien;

      12: Rien;

      13: Rien;

      14: Rien;

      15: Rien;

      16: Rien;

      17: Rien;

      18: Rien;

      19: Rien;

      20: Rien;

      21: Rien;

      22: Rien;

      23: Rien;

      24: Rien;

      25: Rien;

      26: Rien;

      27: Rien;

      28: Rien;

      29: Rien;

      30: Rien;

      31: Rien;

      32: Rien;

      33: Rien;

      34: Rien;

      35: Rien;

      36: Rien;

      37: Rien;

      38: Rien;

      39: Rien;

      40: Rien;

      41: Rien;

      42: Rien;

      43: Rien;

      44: Rien;

      45: Rien;

      46: Rien;

      47: Rien;

      48: Rien;

      49: Rien;

      50: Rien;

      51: Rien;

      52: Rien;

      53: Rien;

      54: Rien;

      55: Rien;

      56: Rien;

      57: Rien;

      58: Rien;

      59: Rien;

    end;

  end;

  H := GetTickCount - h;

  Button1.Caption := IntToStr(h);

end;



procedure TForm1.Button2Click(Sender: TObject);

var

  i: Word;

  j, h: longint;

begin

  h := GetTickCount;

  for j := 0 to 3000000 do

  begin

    i := SecondOf(Now) mod 20;

    if i =  0 then  Rien;

    if i =  1 then  Rien;

    if i =  2 then  Rien;

    if i =  3 then  Rien;

    if i =  4 then  Rien;

    if i =  5 then  Rien;

    if i =  6 then  Rien;

    if i =  7 then  Rien;

    if i =  8 then  Rien;

    if i =  9 then  Rien;

    if i = 10 then  Rien;

    if i = 11 then  Rien;

    if i = 12 then  Rien;

    if i = 13 then  Rien;

    if i = 14 then  Rien;

    if i = 15 then  Rien;

    if i = 16 then  Rien;

    if i = 17 then  Rien;

    if i = 18 then  Rien;

    if i = 19 then  Rien;

    if i = 20 then  Rien;

    if i = 21 then  Rien;

    if i = 22 then  Rien;

    if i = 23 then  Rien;

    if i = 24 then  Rien;

    if i = 25 then  Rien;

    if i = 26 then  Rien;

    if i = 27 then  Rien;

    if i = 28 then  Rien;

    if i = 29 then  Rien;

    if i = 30 then  Rien;

    if i = 31 then  Rien;

    if i = 32 then  Rien;

    if i = 33 then  Rien;

    if i = 34 then  Rien;

    if i = 35 then  Rien;

    if i = 36 then  Rien;

    if i = 37 then  Rien;

    if i = 38 then  Rien;

    if i = 39 then  Rien;

    if i = 40 then  Rien;

    if i = 41 then  Rien;

    if i = 42 then  Rien;

    if i = 43 then  Rien;

    if i = 44 then  Rien;

    if i = 45 then  Rien;

    if i = 46 then  Rien;

    if i = 47 then  Rien;

    if i = 48 then  Rien;

    if i = 49 then  Rien;

    if i = 50 then  Rien;

    if i = 51 then  Rien;

    if i = 52 then  Rien;

    if i = 53 then  Rien;

    if i = 54 then  Rien;

    if i = 55 then  Rien;

    if i = 56 then  Rien;

    if i = 57 then  Rien;

    if i = 58 then  Rien;

    if i = 59 then  Rien;

  end;

  H := GetTickCount - h;

  Button2.Caption := IntToStr(h);

end;

ni69 · Answer

Ah ! &#231;a fait plaisir !  

Vive Case ! lol

Merci Kenavo ! 


@+
Bonne Prog'
Nico



<HR>
N'oubliez pas de cliquer sur R&#233;ponse accept&#233;e lorsque la r&#233;ponse vous convient !

jinh68 · Answer

Hum, on va pas s'entendre lol ^^.Deja explique moi pourquoi ds un cas i:= secondOf(Now) et dans l'autre cas i:= secondOf(now) mod 20;

Surtout qu'un modulo est une instruction tr&#232;s lente que tu multiplie par le nombre de passages dans la boucle.

j!nH

ni69 · Answer

M&#234;me en enlevant mod 20, le if reste plus lent chez moi... 


@+
Bonne Prog'
Nico



<HR>
N'oubliez pas de cliquer sur R&#233;ponse accept&#233;e lorsque la r&#233;ponse vous convient !

bundyboss · Answer

merci kenavo pour ton explication! c'est kall&#233; mais ca montre bien le fontionnement.
Merci a +

ni69 · Answer

...et l'&#233;cart entre les deux est chez moi de l'ordre de 530ms (moyenne sur 20 tests).... !! 
(Bien sur sans mod 20 !  )


@+
Bonne Prog'
Nico



<HR>
N'oubliez pas de cliquer sur R&#233;ponse accept&#233;e lorsque la r&#233;ponse vous convient !

jinh68 · Answer

Hum attendez, attendez , je suis en train de comprendre pourquoi...Laissez moi un petit moment et je vous explique cet &#233;cart aberrant (qui ne s'explique pas par le calcul de Kenavo).

C'est marrant ce petit truc ^^.

j!nH

ni69 · Answer

Mmmh.... 
L'&#233;cart se r&#233;duit consid&#233;rablement quand on met "else if" &#224; la place des if de 2 &#224; 59... 
C'est vraiment une bonne question que tu as pos&#233;e l&#224; bundyboss 
Va-t-on vraiment finir pas trouver la solution ? 


@+
Bonne Prog'
Nico



<HR>
N'oubliez pas de cliquer sur R&#233;ponse accept&#233;e lorsque la r&#233;ponse vous convient !

"case of " VS "if then"

32 réponses

Votre réponse