Juin 2005

(c) Écrire une fonction date.en.clair de profil int *int * int - > string qui étant donnés 3entiers j l date, mois représentant une date renvoie la chaîne de caractères exprimant la dateen clair. On ne traitera pas les cas d'erreur sur l'entier date. Exemple: date.en.dai: (1,3,5)renverra "lundi 3 mai" .5. (3 points) On considère la fonction suivante:let rec myst x y = match y with1 [] -> [x]It ::q -> if x' b) - > 'a list - > 'b list, vue en courset de la fonction serie proposer une définition pour la fonction multab.(c) On veut maintenant écrire une fonction liste.muliob de profil int - > int - > int list li stqui calcule toutes les tables de multiplication pour des eutiers compris entre des valeurs met n et retourue le résultat sous la forme d'uue liste de listes. Par exemple liste.multob 4 6renverra les tables de multiplication de 4,5 et 6.2