/* comedian.ipl - tct - 1/23/2010

/* you may skip all the code below until you get to the endlibrary statement

[comedian]

putchar char c[if(!c)c='"';return MC c,1]
getchar[return MC 2]
chrdy[return MC 12]
pft char f(0),t(0)[MC f,t,13]
gs char b(0)[return MC b,15]
ps char b(0);[int l;char c;l=-1;while(c=b(++l))MC c,1;return l]
pl char b(0)[MC 13,1;MC 10,1;ps b]
alpha char a[
if((a>='a')*(a<='z')+(a>='A')*(a<='Z'))return 1
]
num char b(0);int v(0)[int k;v(0)=0
while(k<5)[if((b(k)<'0')+(b(k)>'9'))return k
v(0)=10*v(0)+b(k)-'0';++k]
return k]
atoi char b(0);int v(0)[int k,s;char c;s=1;c=b(0)
while((c==' ')+(c=='-')+(c=='+'))[
if(c=='-')s=-1;c=b(++k)]
k=k+num(b+k,v);v(0)=s*v(0);return k]
pn int n[MC ' ',1;MC n,14]
gn[char b(20);int v(0)
while(1)[gs b;if(atoi b,v)return v(0)
ps"number required "]]
ceqn char a(0),b(0);int n[int k;k=-1
while((++k)<n)if(a(k)!=b(k))return 0
return 1]
index char i(0);int l;char f(0);int n[
if(n<=0)return 1
if(l<=0)return 0
int a,d(0);while(a+n<=l)[d(0)=1;a=a+1+scann(i+a,i+l-n,f(0),d)
if(d(0))return 0
if(ceqn(i+a,f+1,n-1))return a]]
move char a(0),b(0)[int k,l(0);l(0)=1;k=scann(a,a+32765,0,l)
movebl(a,a+k,b-a);return k
]
gc[char f;f=MC 2;while(MC(2)!=13)[]
return f
]
movebl char a(0),b(0);int n[MC(a,b,n,7)]
countch char a(0),b(0),c[return MC(a,b,c,8)]
scann char a(0),b(0),c;int n(0)[return MC(a,b,c,n,9)]
readfile char n(0),w(0),l(0);int u[int k,t
if(MC(1,n,0,u,3)<0)[pl"File not found";MC(u,6)return -1]
while(w<=l+1)[k=MC(w,u,4)
if(k==-1)[MC(u,6);return t]
if(k<-1)[MC(u,6);return k]
w=w+k;t=t+k
]
pl"Too big";pl"";MC(u,6);return -2
]
writefile char n(0),b(0),e(0);int u[int k,t,l
if(MC(2,n,e-b+1,u,3)<0)[pl"Unit 1 open";MC(u,6);return -1]
while(b<=e)[l=e-b;if(l>511)l=511
k=MC(b,b+l,u,5);if(k<0)[MC(u,6);return k]
t=t+l+1;b=b+l+1
]
k=MC(u,6);return t
]
fopen int rw;char n(0);int s,u[return MC(rw,n,s,u,3)]
fread char a(0);int u[return MC(a,u,4)]
fwrite char f(0),t(0);int u[return MC(f,t,u,5)]
fclose int u[MC(u,6)]
strlen char st(0)[int i;while(st(i))++i;return i]
strcat char s(0),t(0)[int i,j;i=strlen(s)
while(t(j))[s(i)=t(j);++i;++j];s(i)=0]
strcpy char s(0),t(0)[
int i;while((s(i)=t(i)))++i
]
sak[pl"Press Enter ... ";return getchar]
exit[MC 10]
memset char s(0);int b;char c[MC s,b,c,16]

endlibrary

comedian [
 pl "";ps "comedian.ipl - 1/23/2010 - tct";pl "";pl "";sak;pl "" /* 1
 char scratch(5000),wwname(30),wname(30),fnc(1000),lnc(1000),fna(1000),lna(1000),aster(2),lpar(2)
 int mj1,mj2,i,j,k,cl,idx,lp,ls,fn(2)
 strcpy(aster,"* ");strcpy(lpar," (")
 fn(1)="comedian.txt";fn(2)="actress.txt"
 for (k=1;k<=2;++k) [ /* 2
 j=0 /* 3
 if (!(cl=readfile(fn(k),scratch,scratch+5000,1)>0) [pl "";ps "error on read of ";ps fn(k);exit] /* 4,5
 idx=index(scratch,strlen(scratch),aster,2) /* 6
 lp=index(scratch+idx+1,30,lpar,2)
 pl "";ps "reading ";ps fn(k);pl "";sak;pl "";pl ""
 while(lp) [ /* 7
  for (i=0;i<lp;++i) wname(i)=scratch(idx+1+i) /* 8,9
  wname(i-1)=0 /* 10
  pn j/4+1;ps " ";ps wname;pl "" /* show progress
  strcpy(wwname,wname)
  wwname(4)=0
  if (k==1) strcpy(fnc+j,wwname) /* load w/ first 4 characters /* 11,13
  else strcpy(fna+j,wwname) /* 12
  strcpy(wwname,wname) /* 14
  ls=strlen(wwname)
  strcpy(wwname,wwname+ls-4)
  wwname(4)=0
  if (k==1) strcpy(lnc+j,wwname) /* load w/ last 4 characters /* 15,17
  else strcpy(lna+j,wwname) /* 16
  j=j+4 /* 18
  strcpy(scratch,scratch+idx+lp)
  idx=index(scratch,strlen(scratch),aster,2)
  if (!idx) lp=0 /* 19,21
  else lp=index(scratch+idx+1,30,lpar,2) /* 20
  ]
  if (k==1) mj1=j /* 22,24
  else mj2=j /* 23
  ]
 mj1=mj1/4;mj2=mj2/4 /* 25
 pl "";pl "";ps "analyzing ...";pl "";pl "";sak;pl "";pl ""
 for (i=0;i<=mj1;++i) [ /* 26
  pn i;if (i%10==0) pl "" /* 27,28,29
  for (j=0;j<=mj2;++j) [ /* 30
   if (ceqn(fnc+i*4,lna+j*4,4)) [ /* 31
    if (ceqn(fna+j*4,lnc+i*4,4)) [ /* 32
     pl "";pl "bingo!";pl "";pl "" /* 33
     ps "comedienne's name begins w/ ";pft(fnc+i*4,fnc+i*4+3);ps " and ends w/ ";pft(lnc+i*4,lnc+i*4+3)
     pl ""
     ps "actress' name begins w/ ";pft(fna+j*4,fna+j*4+3);ps " and ends w/ ";pft(lna+j*4,lna+j*4+3)
     pl ""
     pl "";ps "please visit http://primepuzzle.com/tc/comedian.html";pl ""
     exit
]]]]]