Vitesse en compilé et en interprété

Bonjour

Je suis tout nouveau ici, alors je me présente rapidement, je suis éléve en prépa et je fait pas mal d'informatique dans ce carde.

Je voudrai savoir si avec code compilé en Ocaml on peut esperer un gros gain de vitesse par raport a un code interpréter.

En vous remerciant par avance

Bonne journée

On peut en espérer un gain énorme dans la plupart des cas.

--
Jedaï

Tu aurai une idée de a peu pres combien (en moyenne) ou un article sur cela ??

Bonne journée

Tout dépend de l'application, par exemple sur mon calcul de PI par spigot (voir le sujet "Page code source, mettez vos sources ici !") le gain est clairement x1 car tout le temps de calcul est passé dans les fonctions Big_int lesquelles sont déjà compilées.

Le gain est quelque part entre x1 pour des fonctions précompilées et environ x15 pour des calculs intensifs avec très peu d'allocations de mémoire.

Voici un exemple de calcul ou le gain est environ x15 :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
let pyramid p x =
  let n = p*(p+1) / 2 + x in
  let rec helper a b c q l m =
    if q <= p then
      let d = ref 0 and u = ref 0 and v = ref 0
      and i = ref 0 and j = ref 0 in
      for r = l+1 to n do
        d := a.(r); i := l; j := l-q+1;
        while b.(!d) > l && !i < m do
          incr i; incr j; d := abs (!d - a.(!j));
        done;
        if !i = m then begin
          d := a.(r); i := l; j := l-q+1;
          while b.(!d) > !i && !i < m do
            incr i;
            v := a.(!i); u := b.(!d); c.(!i) <- !v;
            a.(!i) <- !d; a.(!u) <- !v;
            b.(!d) <- !i; b.(!v) <- !u;
            incr j; d := abs (!d - a.(!j));
          done;
          if !i = m then helper a b c (q+1) m (m+q+1);
          while !i > l do
            v := a.(!i); d := c.(!i); u := b.(!d);
            a.(!i) <- !d; a.(!u) <- !v;
            b.(!d) <- !i; b.(!v) <- !u;
            decr i;
          done;
        end;
      done;
    else begin
      for i = 1 to p do
        print_int a.((i*i-i+2)/2); print_char ' ';
      done;
      print_newline ();
    end;
  in
  let a = Array.init (n+1) (fun i->i)
  and b = Array.init (n+1) (fun i->i)
  and c = Array.make (n+1) 0
  in  helper a b c 1 0 1;;
 
let main () =
  let p = print_string  "How many levels? "; read_int () in
  let x = print_string  "How many extras? "; read_int () in
  assert (p >= 1);
  assert (x >= 0);
  pyramid p x;;
 
if !Sys.interactive then ()
else main ();;

Compilez avec:

Code:

ocamlopt -unsafe -o Kheopful.exe Kheopful.ml

Exécutez et entrez 8 puis à nouveau 8.
En interactif évaluez (mais il faut être plus patient):

Code:

pyramid 8 8;;

Le résultat affiché est la base de cette pyramide où chaque pierre contient la différence entre les deux pierres sur lesquelles elle repose:

http://perso.orange.fr/alphablock/il...riangle_08.png

Merci beaucoup

Bonne journée

Pense à cliquer sur le bouton résolu quand tu es satisfait des réponses. Et bonne compilation :)