Détecter si un nombre est premier ou pas

Version imprimable

bonjour

je cherche à réaliser une macro qui détecte si une variable est un nombre premier ou pas

voila mon code mais il ne marche pas
merci d'avance
Code:

1 2 3 4 5 6 7 8 9 10 11 %macro dett(nb); %let count=0; %do i=1 %to &nb ; %let modul=%sysfunc(mod(&nb,&i)); %if &modul. eq 0 %then &count=%eval(&count+1); %end; %put &count; %if &count gt 2 %then %put " &nb pas premier "; %else %put " &nb est premier "; %mend;

Bonjour,
Cette solution peut répondre à ta requête (ton code repris et rectifié) à vérifier :

Code:

1
2
3
4
5
6
7
8
9
10
11
%macro dett(nb) ;
%do i=1 %to &nb. ;
	%do j=2 %to &i.-1 ;
		%if %sysfunc(mod(&i., &j.)) eq 0 %then %do  ; 
		%put " &i. n'est pas premier "  ;  %goto leave  ; 
                                                      %end  ;
        %end ;
%put " &i. est premier ";	
%leave: ;
%end ;
%mend;	%dett(10) ;

Bon courage
Ward

Bonjour,
Une autre solution est possible avec la fonction fcmp:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
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;
 
data test;
input a;
cards;
34679
34678
23456789
; run;
 
options cmplib=work.pack1;
 
data test1;
set test;
    result=MyFunc1(a);
run;

Cordialement