restore *.orig.c to each entry
Under each yyyy/dir there is a file of the form '*.orig.c' containing the original source code, or as close as we can get to the original source code.
This commit is contained in:
1 parent
cfd253683f
commit
2ba12ecc3c
320 files changed
+21365
No files matched your search
@@ -0,0 +1,21 @@
|
||||
#include <string.h>
|
||||
typedef char ape
|
||||
#define D define
|
||||
#D EA register
|
||||
#D EP unsigned
|
||||
#D A 1
|
||||
#D AP (A<<A)
|
||||
#D P (A<<AP)
|
||||
#D AE ((P<<P)<<A)
|
||||
#D PE (((A<<P)<<P)<<P)
|
||||
#D E ((EP)A>>A)
|
||||
#D APE {EA EP ape ea=AE;while(ea--) e[ea]=E;}
|
||||
;ape a[PE+A],ap,*ae,p[P+A],e[AE];
|
||||
main(){ape pe,*ep=a;srand((EP)time((long)E));
|
||||
while(((*(ep++)=getchar())!=-A)&&((ep-a)<PE));
|
||||
*(ae= --ep)=E;for(ap=E;ap<=P;){APE;if(pe=PA())
|
||||
{putchar(pe);if(ap<P){p[ap]=pe;ap++;}else{
|
||||
ep=p+A;while(*ep) *(ep-A)= *(ep++); *(ep-A)=pe;}}else break;}}
|
||||
PA(){EA ape pe,*ep=a,pa,Ap=E;for(ep=a;ep<ae-P;ep++)
|
||||
if(!strncmp(ep,p,ap)){e[*(ep+ap)]++;Ap++;}if(!Ap)return(Ap);
|
||||
pa=rand()%Ap+A;pe=~E,Ap=!Ap;while((Ap+=e[++pe])<pa);return(pe);}
|
||||
Reference in new issue
Block a user