"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 !

jinh68 · Answer

De toute facon on ne peut pas vraiment tout expliquer, en raison de l'optimisation effectu&#233; par le compilateur Delphi.

j!nH

ni69 · Answer

Je retire ce que j'ai dit :
"L'&#233;cart se r&#233;duit consid&#233;rablement quand on met "else if" &#224; la place des if de 2 &#224; 59... "

En fait, c'est tr&#232;s variable..... des fois oui, des fois non
Ca d&#233;pend de l'utilisation du processeur au moment ou on fait le calcul aussi... 


@+
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

Bon j'ai quelques &#233;l&#233;ments de r&#233;ponse, mon affirmation sur les if et les case est v&#233;rifi&#233;e en C, mais:

Delphi est un peu plus malin.

En examinant le code ASM g&#233;n&#233;r&#233;, nous remarquons effectivement un pr&#233;calcul des diff&#233;rentes valeurs du case. Si valeur de i > valeur max propos&#233;e ds le Case alors on retourne au prochain case (TestCase + $35).

Et ainsi de suite, dc cela &#233;vince pas mal de tests (ceux du d&#233;but + ceux ou i >60).

De plus comme les valeurs sont cons&#233;cutives, dans le case, le saut &#224; effectuer est fixe (multiple de 4octets).

Donc c bien une optimisation du case par Delphi dans ce cas la, et ce n'est pas li&#233; au fonctionnement originelle des deux fonctions.Le meilleur moyen de se le prouver est de mettre des valeurs non cons&#233;cutives dans le case (saut variable pour atteindre l'instruction donc plus de cycles machines).

Voila ca serait int&#233;ressant un jour que quelqu'un approfondisse davantage en faisant un tuto, mais moi je n'ai pas assez de connaissances en asm.

j!nH

ni69 · Answer

Merci jinh68 pour ces &#233;l&#233;ments de r&#233;ponse !   Notre cher Delphi nous joue donc des tours 

Pour le tuto, je pourrais pas le faire, l'asm c'est pas trop mon truc...  Quelqu'un se sentirait-il capable de le r&#233;aliser 


@+
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

neco: &#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

 jinh68  tu utilises une version r&#233;cente de delphi non?

jinh68 · Answer

Je suis sous delphi 5 en fait, mais je peux aussi faire les tests sous 2005.

Le tri par dichotomie est possible (on travaille sur des intervalles qui rapetissent &#224; chaque fois) mais je n'ai pas su l'identifier par les instructions d'asm(beaucoup de OU exclusif sur le registre al).

j!nH

cs_Kenavo · Answer

'scuse pour mod 20, j!nH, 
pas fait expr&#232;s ! Mea culpa, mea culpa, mea maxima culpa ! J'avais commenc&#233; avec 20 valeurs !

Le mieux est de sortir de la boucle l'instruction i:=SecondOf(Now) (elle est longue) on observe mieux le comportement des routines de test.



Et je te cite:

"De plus comme les valeurs sont cons&#233;cutives, dans le case, le saut &#224; effectuer est fixe (multiple de 4octets)."


1 - La question de Bundyboss &#233;tait bien dans ce sens !

2 - Si tu enl&#232;ves quelques valeurs, l'adresse de la routine inexistante
est remplac&#233;e (dans la table) par l'adresse de l'instruction suivant le
case, donc m&#234;me temps d'&#233;x&#233;cution, mais l'occupation m&#233;moire ne diminue pas !



j!nH,



"De toute facon on ne peut pas vraiment tout expliquer, en raison de l'optimisation effectu&#233; par le compilateur Delphi."

Ca, c'est ben vrai !
En
rempla&#231;ant une suite de nombre cons&#233;cutifs par quelques valeurs tr&#232;s
&#233;loign&#233;es, il remplace la table par une comparaison apr&#232;s soustraction
(delphi 7), et il pert la structure syst&#233;matique, que je d&#233;crivais plus
haut.



j!nH,

La pr&#233;sence de ou exclusif ne
m'&#233;tonne pas, c'est la m&#233;thode que j'utilise dans tous les assembleurs
pour coder un case of. Mais l&#224; je ne l'ai pas vue (Delphi 7). Elle est
utilis&#233;e comme suit :

mov    ax,valeur

xor   ax,premierevaleur

jz    premiereroutine 


xor   ax,(premierevaleur xor deuxiemevaleur)

jz    deuxiemeroutine 


xor   ax,(deuxiemevaleur xor troisiemevaleur)

jz    
troisieme
routine 

... etc ...

rappels : A xor A 0 ; (A xor B) xor (B xor C)  A xor C 







Nico,

"L'&#233;cart se r&#233;duit consid&#233;rablement quand on met "else if" &#224; la place des if de 2 &#224; 59... "


Ca, c'est pas faux, mais, tu devrais regarder la pendule de ton ordi en m&#234;me temps,  comme le if
regarde la valeur des secondes (dans mon exemple), si tu es dans le
d&#233;but de la minute, ta comparaison est vraie assez t&#244;t et tu quitte
rapidement, si tu es dans la fin de la minute .... c'est plus long !





Mais si on doit conclure, et pour r&#233;pondre &#224; la question (valeurs
cons&#233;cutives de 0 &#224; 300), il semblerait que l'efficacit&#233; et sutout
l'&#233;l&#233;gance nous am&#232;nent &#224; pr&#233;f&#233;rer Case.



Gardons pour if d'autres avantages incontestables comme le test de variables string ou le test de valeurs sup&#233;rieures &#224; $FFFF (limite du case).



Et puis, il ne s'agit que de quelques nano-secondes d'&#233;cart sur un PC d'aujourd'hui !



Ken@vo

____________________

Code, Code, Codec !

bundyboss · Answer

Wouaw kenavo!. Cependant, je souhaite aussi evoqué un autre spécial: tu dis: Gardons pour if d'autres avantages incontestables comme le test de variables string ou le test de valeurs supérieures à $FFFF (limite du case). je copie colle un exemple de code! source: typechaine#caseofstring http://delphi.developpez.com/faq/?page=typechaine#caseofstring ----, [http://delphi.developpez.com/faq/?page=typechaine# [haut]]

auteur : sjrd

Etant donné que la structure Case Of requiert une donnée de type ordinal, il est impossible de faire un Case Of directement avec des String. L'astuce consiste à utiliser la fonction AnsiIndexStr de l'unité StrUtils : uses StrUtils; ... case AnsiIndexStr(Str, ['Chaîne1', 'Chaîne2', 'Chaîne3']) of 0 : // Str = 'Chaîne1' 1 : // Str = 'Chaîne2' 2 : // Str = 'Chaîne3' -1 : // Str ne vaut aucune de ces trois chaînes end; Si votre version de Delphi ne propose pas cette fonction, elle peut être implémentée comme suit : function AnsiIndexStr(AText : string; const AValues : array of string) : integer; begin Result : = 0; while Result <= High(AValues) do if AValues[Result] = AText then exit else inc(Result); Result := -1; end; Une autre idée, dans le cas d'un Case Of dynamique, est d'utiliser un objet de type TStrings et sa méthode IndexOf

dans un cas comme celui-ci le if est plusr apide non pour comparer des strings? non?!?

cs_Kenavo · Answer

Alors l&#224;, le probl&#232;me n'est plus du tout le m&#234;me ! Pour faire un case sur des string, on se d&#233;brouille pour ramener un indice (IndexOf ou 
AnsiIndexStr dans les exemples). Or cet indice est retrouv&#233; par une  m&#233;thode qui doit beaucoup au while (voir la fonction AinsiIndexStr ci-dessus) donc au if ... then ... else



Le case avec des strings dissimule (mal !) une utilisation &#224; la cha&#238;ne (!) d'instructions if



Mais l'&#233;l&#233;gance du source justifie tout &#224; fait une telle utilisation du case.



Ken@vo

____________________

Code, Code, Codec !

japee · Answer

Merci les gars pour ce d&#233;bat passionnant.

J'ai bien s&#251;r voulu tester, &#231;a a donn&#233; lieu &#224; un code.

Il m'a paru int&#233;ressant de le partager, &#231;a peut certainement servir comme base de test plus pouss&#233;s ?



COMPARER LES INSTRUCTIONS CASE OF, IF THEN ET IF THEN ELSE



bonne prog' &#224; tou(te)s   



japee

aafi · Answer

ce forum n&#176; ID 393257  se trouve avoir une continuation dans le forum ID 29593 , &#224; l'initiative je crois de JAPEE

Consultez ce forum, et vous y trouverez d'int&#233;ressants d&#233;bats sur ce sujet 

Quant &#224; moi, mes conclusions que vous y trouverez sont sans appels : :

Avantage par K.O.   au CASE..OF   

* plus rapide ( l'&#233;cart se creuse lorsqu'il y a beaucoup de valeurs &#224; tester )
* encombrement m&#233;moire moindre d&#232;s lors que les valeurs &#224; tester sont contigues
* &#233;l&#233;gance du code 
* bien meilleur lisibilit&#233; du code
* facilit&#233; de rajout de nouvelles valeurs 
* insensibilit&#233; &#224; l'ordonnancement de valeurs ( pas la peine de se prendre la tete pour savoir quel est le cas le plus fr&#233;quent)

comme le montre le programme exp&#233;rimental &#224; JAPEE ,  un CASE  portant sur 60 valeurs est 10 fois plus performant que des IF THEN successifs.

*****

aafi · Answer

OBJET : le CASE OF fonctionne t il par DICHOTOMIE ??

( questions pos&#233;es par BUNDYBOSS , NEKO , JINH68 )  vers le 16/02/05

REPONSE : OUI dans certains cas , NON dans d'autres  ;

Voir mes contributions sur l'autre forum  n&#176; ID 29593

et cela  n'est pas valable que avec Delphi7 , puisque j'utilise Delphi 5

"case of " VS "if then"

32 réponses

Votre réponse

Discussions similaires