Messages des blogs récents

Bonjour,
Je partage cette solution qui permet la détection des nombres premiers dans une colonne.

Code :

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

1
2
3
4
5
6
7
8
proc fcmp outlib=work.pack1.MyFunc1;
    function MyFunc1(var$) $10;
       length var1 $10;
 
        do i =2 to int(sqrt(var));
                   if mod(var,i)=0 then do; 
                                                    var1="NbrNPre";
                                                   leave;

...