About FriedEgg

podarum · ‎10-21-2011

Brilliant.. Thanks guys.. I really appreciate it..

Frank_PFC · ‎11-22-2011

Yes, I did. The keys have the correct assignment but do not work at all in the program editor. I initiate Xming as the X11 server then I SSH to the SAS server via PuTTY and start SAS from a terminal window.

PGStats · ‎03-30-2012

Hi Ksharp, I was tempted to try solving the "Datacenter Cooling" problem. But in thinking about it I concluded that this was an intrinsically difficult problem (this was later confirmed by FriedEgg). If I still had an efficient compiler on my machine I would try it. I would love to try solving that problem with object programming (c++, java, c#). But with SAS? No fun. PG

Peter_C · ‎10-19-2011

ksharp the noprint is important if you want to load into :macroVariable because that cannot work with create (unless you are happy to have a report of the select query results in the output) peterC

art297 · ‎10-11-2011

Using the s370fpipW informat, where applicable, solved all of my problems. The data structure I am working on specifies whether numbers are represented in big or little endian form. Interestingly, wnen trying to use the Window's Explorer in XP to change a pictures title, it changed the from from little to big endian (along with totally messing up the industry standards for the format). I'll post my current code, shortly, in the thread that is actually dealing with the whole solution (see: http://communities.sas.com/message/107245#107245 ). Tom's suggestion for using the reverse function was definitely also a possibility, but required the code to be a lot messier.

slsnx2 · ‎05-20-2015

I have to share my code: I know it's a closed topic but I think this could be useful. /************************************************************************************/ /* Descripcion general del programa: */ /* Suma las variables numericas de una tabla, sin especificar nombres. */ /* Autor : Saul Sanchez Sánchez */ /************************************************************************************/ data a; do i=1 to 100; a=abs(int(rand('NORMAL')*1000)); b=abs(int(rand('NORMAL')*1000)); c=abs(int(rand('NORMAL')*1000)); cl='a'||substr(left(compress(i)),1,1); output; end; run; data vars(where=(type='N')); length name $ 8 type $ 1; drop dsid i num rc; dsid=open("work.a","i"); num=attrn(dsid,"nvars"); do i=1 to num; name=varname(dsid,i); type=vartype(dsid,i); output; end; rc=close(dsid); run; data vars(keep=function); set vars; function='sum('||compress(name)||') as '||compress(name); run; proc sql; select function into :function separated by ',' from vars; quit; %put &function; proc sql; create table b as select cl, &function from a group by 1; run;

art297 · ‎10-18-2011

Renee, In answer to your question about announcemnts I, for one, very much appreciated getting the notifications via email.

FriedEgg · ‎10-06-2011

One little side note, a macro variable name can only contain letters and numbers so any other character will automatically call the end of the name to resolve so the periods you are using are not necessary, so a macro variable name followed by a space, =, or ), etc does not need the . qualifier. Maybe it is just a pet peeve of mine...

JimLoughlin · ‎04-09-2012

Renee- Until a few days ago, I used to get individual emails. Now all I'm getting is a daily summary. How can I go back to receiving individual emails. Also, when I click on my name in the header, I don't see any action button named 'Manage Email Notifications'. Jim Loughlin Renee- This is strange. All I did was go into my profile and set the time zone. Now I'm getting individual emails again. Jim Message was edited by: James Loughlin

FriedEgg · ‎10-12-2011

Fixed the approach with sas generated values. It finished in about one and half minutes total, so I am happy enough with it at this point: options fullstimer macrogen mlogic mprint spool; proc fcmp outlib=work.func.cipher; function isprime(num); n=0; j=3; do while(j<=int(sqrt(num)) and n=0); if mod(num,j)=0 then n+1; j+2; end; if n=0 then return(1); else return(0); endsub; run; %let cmplib=%sysfunc(getoption(cmplib)); options cmplib=(work.func &cmplib); data primes; pnum=1; prime=2; output; do prime=3 to 10**7 by 2; if isprime(prime) then do; output; pnum+1; call symput('max',prime); end; end; call symput('nobs',pnum); keep prime; run; %macro sumprimes(seq1,seq2,seq3,seq4,max,nobs); sasfile work.primes load; %do i=1 %to 4; data _s&&seq&i(sortedby=ptot); obsnum=1; cnt=1; iter=1; ptot=0; do until(obsnum+&&seq&i>&nobs or ptot>&max); set primes point=obsnum; ptot+prime; if cnt=&&seq&i then do; output; iter+1; cnt=1; obsnum=iter; ptot=0; end; else do; obsnum+1; cnt+1; end; end; stop; keep ptot; run; %end; sasfile work.primes close; data _null_; merge %do i=1 %to 4; _s&&seq&i(in=in&i) %end;; by ptot; if in1 and in2 and in3 and in4 and isprime(ptot) then put 'SOLUTION FOUND: ' ptot comma20.; run; %mend; %sumprimes(19,21,405,781,&max,&nobs) options cmplib=(&cmplib);

art297 · ‎10-12-2011

Ksharp, One additional note: DON'T use window's explorer to modify the jpg file. It has a tendency to REALLY corrupt the exif portion of the file. Usually will only affect the height, width and date settings (at least regarding the settings that my code is attempting to parse) but, other than title and gps coordinates, those are the only fields I am trying to extract. A MUCH safer way of changing the file's attributes is to use one of the proven perl-based routines, such as http://www.sno.phy.queensu.ca/~phil/exiftool/) which, by the way, is free and has a windows executable version.

FriedEgg · ‎10-03-2011

There is no procedure specific option to directly limit the quantity the IMPORT procedure will read in, to my knowledge. You can use the OBS= system option to limit the number of records that SAS will process. Setting OBS=10 will limit the processing to the first 10, then set it back to OBS=MAX so subsequent operations consider the full data. options obs=10; proc import datafile="G:\Departments\Research\MAP\1112\Oconee - &admin. - Clean.txt" out=map_export dbms=dlm replace; delimiter='09'x; run; options obs=max; Since this is a text file, you should also consider using the DATA step with an INFILE statement to read the data. It requires more knowledge of the data fields as you read them, but that approach provides much more control over how much data is read in. See this topic for more guidance and troubleshooting. (Editor's note: modified this reply for clarification and more detail on this popular topic.)

littlestone · ‎10-02-2011

I apologize for repling late. Thank you all for great help.

FriedEgg · ‎10-06-2011

Here is another implementation of a cipher using proc fcmp. I have it requiring two generated formats right now as well, but would like to change it to not require them later. I also would want to add the ability to encrypt strings that contain multiple words, right now it will not work properly with spaces in the string. One thing to note that this function uses is the nice feature of proc fcmp, the dynamic_array. Too bad it only works for number arrays and not character also. data v1; alphabet='ABCDEFGHIJKLMNOPQRSTUVWXYZ'; retain fmtname '$vigenere'; do label=0 to length(alphabet)-1; start=substr(alphabet,label+1,1); output; end; drop alphabet; run; data v2; alphabet='ABCDEFGHIJKLMNOPQRSTUVWXYZ'; retain fmtname 'vigenere'; do start=0 to length(alphabet)-1; label=substr(alphabet,start+1,1); output; end; drop alphabet; run; data _null_; do i=1 to 2; call execute('proc format library=work cntlin=v'|| strip(i) || '; run;'); end; run; proc fcmp outlib=work.func.cipher; function vigenere(string $, mode $, okey $) $32000; length key want $32000; /* construct key */ key=okey; do until(length(key) ge length(string)); key=cats(of key key); end; array k[1] /nosymbols; dims=length(string); call dynamic_array(k,dims); do i=1to dims; k=put(substr(key,i,1),$vigenere.)*1; end; /* split input string*/ array s[1] /nosymbols; array c[1] /nosymbols; call dynamic_array(s,dims); call dynamic_array(c,dims); do ii=1to dims; s[ii]=put(substr(string,ii,1),$vigenere.)*1; /* calculate encipheredletters */ if upcase(mode) in ('E','ENCRYPT')then c[ii]=mod((k[ii]+s[ii]),26); else if upcase(mode) in ('D','DECRYPT')then c[ii]=ifn(mod((s[ii]-k[ii]),26)<0,mod((s[ii]-k[ii]),26)+26,mod((s[ii]-k[ii]),26)); end; want=''; do j=1 to dims; want=strip(want) || strip(put(c , vigenere.)); end; return(want); endsub; run; %let cmplib=%sysfunc(getoption(cmplib)); options cmplib=(work.func &cmplib); data test; input t $; e1=vigenere(t,'e','FRIEDEGG'); d1=vigenere(e1,'d','FRIEDEGG'); cards; TEST REST BEST ; run; options cmplib=(&cmplib); EDIT: By the way, I forgot to mention, this is the Vigenère cipher: http://en.wikipedia.org/wiki/Vigen%C3%A8re_cipher

Ksharp · ‎09-30-2011

You do not use Hash Table correctly. See the followig code of example. BTW. I am not sure this method will be more efficient than proc sort; data temp; input name age; cards; 23 45 67 89 12 56 ; run; data _null_; *load dataset temp into Hash Table; if 0 then set temp; declare hash ha1(dataset:'temp',ordered: 'a'); ha1.definekey('name','age'); ha1.definedata('name','age'); ha1.definedone(); *output Hash Table to a dataset; ha1.output(dataset:'want'); run; *now see the data has already been sort by name age; proc print data=want;run; Ksharp

Online Status	Offline
Date Last Visited	‎03-31-2025 06:28 PM