TP noté de
Programmation Fonctionnelle


            Durée : 1h

Avant de commencer, taper les
commandes unix suivantes :

$ chmod 700 .

$ mkdir TPNOTE

$ cd TPNOTE

Pour rendre votre copie :

mettre le fichier .ml
dans le répertoire courant (TPNOTE)

puis taper la commande :

$ /tmp/rendrecopie.sh

 

           Définir une fonction cribble qui, étant donné un nombre entier n non nul,
        retourne la liste des nombres premiers inférieurs à n.
            On utilisera l'algorithme d'Erathostène (Cribble d'Erathostène) :

        Créer la liste de tous les nombres entiers de 2 à n :

        [2;3;4;5;6;7;8;9;10;11;12;13;14;15;16;17;18;19;20;21;22;23;24;25; ...]

        Eliminer de la liste tous les multiples du premier nombre (2) :

        [2;3;5;7;9;11;13;15;17;19;21;23;25; ...]

        Eliminer de la liste tous les multiples du nombre suivant (3) :

        [2;3;5;7;11;13;17;19;23;25; ...]

        Eliminer de la liste tous les multiples du nombre suivant (5) :

        [2;3;5;7;11;13;17;19;23; ...]

        etc., jusqu'au dernier nombre de la liste. A la fin, les nombres qui restent sont premiers.       

        Ex.  cribble 24;;
         - : int list = [2; 3; 5; 7; 11; 13; 17; 19; 23]