mirror of
https://github.com/notepad-plus-plus/notepad-plus-plus.git
synced 2025-08-27 12:48:27 +02:00
4f295de864
Enable Sctintilla's SAS lexer, populate langs.model, stylers.model, and themes. (includes keyword lists from UDLs, notepad4, and SAS documentation) Fix #16148, close #16183
26 lines
654 B
Plaintext
26 lines
654 B
Plaintext
%macro printz/parmbuff;
|
|
%put Syspbuff contains: &syspbuff;
|
|
%let num=1;
|
|
%let dsname=%scan(&syspbuff,&num);
|
|
%do %while(&dsname ne);
|
|
proc print data=&dsname;
|
|
run;
|
|
%let num=%eval(&num+1);
|
|
%let dsname=%scan(&syspbuff,&num);
|
|
%end;
|
|
%mend printz;
|
|
%printz(purple,red,blue,teal)
|
|
|
|
proc cas;
|
|
function SharedBday(days, number);
|
|
p = exp( lgamma(days+1) - lgamma(days-number+1) - number*log(days));
|
|
return (1-p);
|
|
end func;
|
|
|
|
do n over {3 10 22 23 50 75};
|
|
p = SharedBday(365,n);
|
|
print "Chance at least 2 out of " put(n,best3.) "
|
|
share the same birthday = " put(p,best6.2);
|
|
end;
|
|
run;
|