Discussion :

[djstarmix]

Bonjour !
Je souhaiterais programmer en CamL une fonction assez compliquée puisqu'elle nécessite les fonctions somme, partie entière, logarithme et puissance... Il s'agit de celle ci-jointe.
Comme je suis débutant, je me suis vite perdu dans ces choses assez compliquées... Il serait gentil à vous de m'éclairer... Je vous remercie d'avance

[Cacophrene]

Bonsoir,

Quel dialecte : Caml-Light ou OCaml ? Si c'est OCaml, tu devrais jeter un œil aux fonctions suivantes :

• Fonction puissance : ( ** )
• Les fonctions d'arrondi floor et ceil
• Le logarithme népérien log

Tout ceci se trouve dans cette page du manuel. Pour la sommation, une boucle ou une fonction récursive fait l'affaire... Dans tous les cas, ne jamais se priver de lire le manuel.

Code :

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

1
2
3
4
5
6
7
let calcul n =
  let sum = ref 0. in
  for k = 1 to int_of_float (floor (ln n / ln 2)) + 1 do
    sum := ... + !sum
  done;
  !sum

Cordialement,
Cacophrène

[djstarmix]

Merci ! Je suis sur CamL Light donc c'est plus compliqué... En Maple c'est tellement plus simple X____X

En fait la question exacte, c'est d'écrire la fonction qui calcule le nombre de 1 dans l'écriture binaire d'un nombre entier n...
Et j'ai pensé à cette fonction qui marche très bien mais qui me semble un peu complexe... Peut être y a t-il un autre moyen mais en tout cas je ne le connais pas...

[adtunum]

en OCaml ça donne çà :

Code :

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

1
2
3
4
5
6
7
# let f n =
    let res = ref 0 in
    for i = 0 to 30 do
      if (n land (1 lsl i)) <> 0 then incr res
    done;
    !res
  ;;

la fonction lsl est le décalage de bit vers la gauche, donc ici on teste successivement tous les bits de l'entier, un entier OCaml faisant au minimum 31 bits.

[djstarmix]

Merci beaucoup, mais je dois à tout prix avoir ce programme en CamL Light car je suis en Informatique de Prépa et c'est ce langage là qui est au concours =S

[adtunum]

fort bien, seulement les gens dans la vraie vie utilisent OCaml et non Caml Light.

Perso je vous recommanderais d'apprendre les différences entre OCaml et Caml Light, ça vous sera utile par la suite.

[djstarmix]

Moi je veux bien mais faut dire ça au système..... Ce programme ne passe pas sur CamL Light ?

[Cacophrene]

Bonjour,

Maple n'est plus « simple » que parce qu'il est prévu pour un certain type d'utilisation, alors que caml est généraliste. Par ailleurs, la conversion en Caml-Light du code OCaml donné par adnutum est assez simple...

Cordialement,
Cacophrène

[InOCamlWeTrust]

Moi je veux bien mais faut dire ça au système..... Ce programme ne passe pas sur CamL Light ?

Le système ? quel système ? BigBrother is watching you ? ou peut-être Linux ou Windows ?

On t'a déjà maché le travail en faisant la partie la plus difficile, à toi de l'avaler maintenant.

Prends cette page du manuel de Caml Light...
http://caml.inria.fr/pub/docs/manual...ht/node14.html

... et cette page de OCaml...
http://caml.inria.fr/pub/docs/manual...ervasives.html

... et tu regardes comment traduire les fonctions de l'un vers l'autre, tout en sachant que la syntaxe est la même.

Si ça se trouve, tu n'auras rien à faire... ou pas !

[gasche]

Le code passe tel quel sous Caml Light.