m.brahim

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
9
10
11
12
13
14
15
16
17
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;
                                       end;
                   else do;
                             var1="NbrPre";
                   end;
        end;
 
       return (var1);
    endsub;
quit;

Cordialement