C'est bien joli de lire des, disons, inélégances de programmation, mais la dernière que je viens de lire vaut bien une contribution personnelle. Quand vous calculez la moyenne de deux rééls, pensez bien à distinguer tous les cas...

 let moyenne a b = if a = 0. then b /. 2.
          else if b = 0. then a /. 2.
               else (a +. b) /. 2.;;