🚀 go-pugleaf

Results from PPro 150 MHz 32Meg main memory (ASUS P/I-P6RP4/150)

fabien@ppro150> /bin/time run >/dev/null
       38.0 real        38.0 user         0.0 sys  


fabien@ppro150> cc -v
Reading specs from /lib/i386/specs
NeXT Computer, Inc. version cc-437.2.6, gcc version 2.5.8


-- 
Fabien Roy
---------------------------------------------------------------------
Fabien_Roy@free.fdn.org (NextMail/MIME accepted)
Fabien Roy Consultant
NEXTSTEP/OPENSTEP/EOF Consultant, SYBASE DBA
10 rue de la DEFENSE 93100 MONTREUIL, France 
Tel: 33 1 45 28 32 23  Fax: 33 1 48 55 09 90

#include <stdio.h>
#define M(x,y) Z=x,x=y,y=Z;
#define K b[*U++]
#define R *Q++=*U++-*a
char W=6,H=10,F[12][32],L[12],S[12],Z,*U,O[300],*B=O+40;long T,i,j;
void G(int N,char *b){char o,Y,*P;if(N){while(*++b);
for(Y=12;Y--;)if(L[Y]){L[Y]=0;P=F[Y];for(o=S[Y];U=P,o--;P+=4)
if(!(K||K||K||K)){U=P;Z=Y+65;K=*b=Z,K=Z,K=Z,K=Z;G(N-1,b);
U=P;K=*b=0,K=0,K=0,K=0;}L[Y]=1;}}else printf("%s%d\n\n",B,++T);}
main(){char p,t,k,*Q;for(p=0;Q=F[p],p<12;p++){for(t=8;t--;)
{char m="737040221000"[p],a[5];if(!(t&m)){for(k=0;k<4;k++){int c=
"678=23457=>?234:78>?7=>C28>?789=2379278>78>D678>"[k+p*4]-48,
x=c%6-1,y=c/6;if(t&1)x=-x;if(t&2)y=-y;if(t&4)M(x,y)a[k]=x+y*9;}
a[4]=0;for(i=300;j=i%4,i--;)if(O[i]=L[i%12]=32-22*(i%9==3),
a[j+1]<a[j])M(a[j],a[j+1])U=a+1;R;R;R;R;S[p]++;}}}
for(j=H;j--;)for(i=W;i--;B[i+j*9]=0);B[H*9-1]=0;G(12,B-1);}