Discussion :

[Peter_s]

Bonjour j'ai essayé d'écrire une fonction prenant en argument un tableau et
qui détermine s'il est croissant:

Code :

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

1
2
3
4
5
6
 
let croissant tab = if Array.length tab=0 then failwith "ni croissante ni décroissante" 
 else
 for i = 1 to Array.length tab -1 do
 
   if tab.(i-1)<= tab.(i) then true else false done ;;

sauf que cette fonction renvoie un type unit () et je voudrai qu'elle renvoie un bouléen.

Voila et merci d'avance pour vos réponse

[TchoubiTchoub]

La boucle

Code :

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

for

d'OCaml renvoie nécessairement un type

Code :

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

unit

Regardez le module

Code :

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

Array

d'OCaml, vous devriez y trouver des fonctions qui vous intéressent. Sinon, si vous voulez nécessairement le faire dans une boucle

Code :

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

for

alors il vous faudra utiliser une exception ou une référence.

[Peter_s]

Merci , j'ai fini par utilisé une référence et ca m a donné ca

Code :

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

1
2
3
4
 
let croissant tab = let p = ref true in
 for i=1 to Array.length tab-1 do 
  if tab.(i-1)<= tab.(i) && !p then p:= true else p:= false done; p;;

[TchoubiTchoub]

Je pense qu'à la fin vous voulez renvoyer !p, pas p

[Peter_s]

Oui. Merci beaucoup pour votre aide!