Bonjour,

Pour le module Systeme, on fera les choix suivants : le Systeme est un damier de 10 × 10 (utiliser des constantes size_x et size_y) et une position est représentée par un couple d’entiers( i,j). Quand on sort du damier d’un côté, on réapparaît de l’autre côté (gauche/droite ou haut/bas) = tore.
Question : Écrire un module SystemeAMIER.??

la signature DAMIER est définie par :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
module type DAMIER= 
sig
  type t
  val a_: 'a->t
  val b_ : 'a->t
  val c_: 'a->t
  val d_: 'a->t
  val random_pos: 'a->t
  val ma_position : ('a->t)-> t -> 'a list ->'a list
  val sort_par_position : ('a->t)-> 'a list ->'a list
  val display: (int-> int-> unit)->t->unit 
  val clear: unit->unit 
end;;
Le module est une matrice qui affiche les position (x, y)? à l'aide svp.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
let display f (x,y) = f x y;;
val display : ('a -> 'b -> 'c) -> 'a * 'b -> 'c = <fun>
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
 
module Systeme: DAMIER=
struct
let display f (x,y) = f x y
end;;