Discussion :

[gomisse]

Je souhaite écrire une fonction module en ocaml qui permet de modéliser un scrabble 10 × 10 .
je pensais aux matrices utilisées. car la position d'un element est donné par (i,j).
pour une le module graphique voir : http://caml.inria.fr/pub/docs/manual.../libgraph.html.

Si quelqu'un peut m'aider je serai reconnaissant.

ceci comme exemple trouvé dans mes recherches :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
let affiche_tableau_couleur(m,nb_ligne,nb_colonne) =
 
    for  i=0 to (nb_ligne-1) do
      for j=0 to (nb_colonne-1) do
 
    begin
 
    match m.(i).(j) with 
    |true -> graph_set_color (red);
         graph_fill_circle (i*20+25, j*20+480, 10);
 
    |false -> graph_set_color (black);
          graph_fill_circle (i*20+25, j*20+480, 10);
 
    end
      done;
      print_newline();
    done
;;

Error: Unbound value graph_set_color

[SpiceGuid]

C'est bien d'être aller chercher le caractère ×
J'apprécie

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
#load "graphics.cma";;
open Graphics;;
open_graph "foo:0";;

ceci comme exemple trouvé dans mes recherches

C'est du code Caml-Light. Tu ne dois utiliser que les fonctionnalités documentées ici.

[gomisse]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
 
 
#load "graphics.cma";;
open Graphics;;
open_graph "foo:0";;
let affiche_tableau_couleur(m,nb_ligne,nb_colonne) =
 
    for  i=0 to (nb_ligne-1) do
      for j=0 to (nb_colonne-1) do
 
    begin
 
    match m.(i).(j) with 
    |true -> Graphics.set_color (red);
         Graphics.fill_circle (i*20+25, (nb_colonne-j)*20+480,10); 
                        (*     (i*20+25, j*20+480, 10);*)
 
    |false -> Graphics.set_color (black);
          Graphics.fill_circle (i*20+25, (nb_colonne-j)*20+480,10) ;
         (*(i*20+25, j*20+480, 10);*)
 
    end
      done;
      print_newline();
    done
;;

J'ai trouvé ceci comme erreur::
Characters 256-291:
Graphics.fill_circle (i*20+25, (nb_colonne-j)*20+480,10);
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Error: This expression has type 'a * 'b * 'c
but an expression was expected of type int

[SpiceGuid]

La documentation dit que val fill_circle : int -> int -> int -> unit.

Or le code que tu as écrit ne serait correct que si val fill_circle : (int * int * int) -> unit.

Encore un peu de code pour te faire méditer sur la notion d'application d'un argument à une fonction :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
# let id x = x;;
val id : 'a -> 'a = <fun>
# id id (+) 1 2;;
- : int = 3

[gomisse]

Graphics.fill_circle ( prend trois parametre en arguments) et renvoie l'affichage ) ;;
id id (+) ;;
- : int -> int -> int = <fun>. je ne comprends pas les arguments passés en parametres.

[gomisse]

je me permets de reveir vers vous pour silliciter une aide ! car j'ai fait de mon possible pour resoudre mais en vain .

[SpiceGuid]

À trop vouloir bien faire je n'ai pas été assez terre-à-terre.

Avec fill_circle (i*20+25, (nb_colonne-j)*20+480,10) on appliquer un triplet en argument.
Pour appliquer 3 arguments c'est plutôt fill_circle (i*20+25) ((nb_colonne-j)*20+480) 10.

Il n'y a pas besoin de Graphics. parce que le module est ouvert avec la commande open Graphics.

[gomisse]

je vous remercie infiniment .