Author: James Robertson
Date: 23:26:16 06/25/99
Go up one level in this thread
On June 26, 1999 at 02:24:11, Eugene Nalimov wrote:
>VC++ 6.0 produces perfectly working executable. It gives exactly one warning.
It was a joke. :)
James
>
>Eugene
>
>On June 25, 1999 at 21:58:51, James Robertson wrote:
>
>>On June 25, 1999 at 20:59:28, Eugene Nalimov wrote:
>>
>>I disagree completely; this is _NOT_ a simple program. I'll bet even the
>>compiler is confused. :)
>>
>>James
>>:)
>>
>>>One of my friends sent it to me. I beleive I do not violate anybody's copyrights
>>>when placing it here. The program is obviously more simple than TSCP - or at
>>>least it's shorter (68 lines). Have fun!
>>>
>>>Eugene
>>>
>>>===============================================================================
>>>/*
>>> I beleive that program is one of the winners of the
>>> "Obfuscated C" contents, but I am not sure.
>>> Compile it (e.g. cl /Ox chess.c) and run with a single
>>> optional argument - search depth (default is 2; I don't
>>> recommend it to be more than 3, as it'll thing too long).
>>> To enter a move specify 2 octal numbers - "from", "to"
>>> fields (e.g. "e2-e4" will be "64 44"). When prompting a
>>> move program prints 3 integers - # of searched moves and
>>> 2 positional scores (program's and yours).
>>>
>>> Unfortunately, not all chess rules are supported - there
>>> is no en-passant capture, long castling, no draw by
>>> repetition, and no 50 moves rule.
>>>*/
>>>
>>>#include <stdio.h>
>>>#include <stdlib.h>
>>>
>>>#define m(x)(x<0?-1:!!x)
>>>#define g tj()-J
>>>#define a(x)(x<0?-x:x)
>>>#define h(x)((x)<=K?x:N-(x))
>>>#define f 9999
>>>#define A return
>>>#define H printf(
>>>#define R double
>>>#define U int
>>>#define V for
>>>#define b else
>>>#define u while
>>>#define B if
>>>U v,w,Y= -1,W,J,p,F,o=f,M,N,K,X,YY,_,P[f],s(); typedef U(*L)(); L q[f]; tj(){
>>>U S=m(v)+(m(w)<<K); B(!S)A J; V(v=W+S; v!=J&&!q[v]; v+=S); A v; } k(){ _=K; A
>>>v?a(v)>1||w-Y||!q[J]:(w-Y&&(w-Y*2||q[W+Y*(N+1)]|| (J>>K)-K+(Y-1)/ 2))||q[J];
>>>} z(){ _=5; A v*w||g; } e(){ _= -2;
>>>A(v*v*v-v||w*w*w-w)&&(J-W-2||(W&N)-4||(W>>K!=(Y-1?N:0))||
>>>q[W+1]||q[W+2]||q[W+K]!=z||P[W+K]*Y<0); } R VR(){ int PZ=0x7fff;
>>>A(R)(rand()&PZ)/(R)PZ; } l(){ _=K+1; A(v*w&&a(v)-a(w))||g; } R UC(){ R i=0,d;
>>>u((i+=d=VR())<1.0); A d; } c(){ _= -11; A a(v)-a(w)||g; } I(ur,n,x){ W=ur;
>>>J=n; B(P[W]!=Y||P[J]==Y)A J+1; v=(J&N)-(W&N); w=(J>>K)-(W>>K); A
>>>q[W]()||(x&&QL(W,J,s)); } TT(W){ v=w=0; A q[W]()+K; } s(){ U j= -1,i; Y= -Y;
>>>V(i=0; i<M; ++i){ B(j<0&&P[i]== -Y&&TT(i)&&_== -2) { j=i; i= -1; } b
>>>B(j>=0&&!I(i,j,0))A Y= -Y; } A!(Y= -Y); } bb(){ _=1; A a(v*w)-2; } uv(){
>>>V(v=0; v<f; ++v){ B(h(v>>K)==0){ U S=h(v&N);
>>>q[v]=!S?z:(S==1?bb:(S==2?c:(v&N>K?l:e))); } b B(h(v>>K)==1)q[v]=k; b q[v]=0;
>>>P[v]=!!q[v]*(28-v); } } y(){ U G=Y,i; J=0; V(i=0; i<M; ++i){
>>>i%8||H"\n%4o ",i); B((Y=P[i]=m(P[i]))&& TT(i))H"%c ",_+93+Y*16); b H"- "); }
>>>H"\n "); do H"%2d",i++&N); u(i&N); Y=G; H"\n"); } O(W,J){
>>>B((q[J]=q[W])==k&&h(J>>K)==0)q[J]=l; B(q[W]==e)B(J-W==2)O(J+1,J-1); b
>>>B(W-J==2)O(W-1,W+1); P[J]=P[W]; q[W]=0; P[W]=0; } QL(W,J,D)L D; { U
>>>HQ=P[J],YX; L AJ=q[J],XY=q[W]; O(W,J); YX=D(); O(J,W); q[J]=AJ; q[W]=XY;
>>>P[J]=HQ; A YX; } C(){ U i,j,BZ=0; V(i=0; i<M; ++i){ L Z=q[i]; B(Z){ U
>>>r=h(i>>K)+h(i&N),G=Y, S=Z==z?88:(Z==k?11 +r+(P[i]<0?N-(i>>K):(i>>K)):
>>>(Z==l?124-((YY<8&&((i&N)!=K|| (i>>K)!=(P[i]>0?0:N)))?M:0):
>>>(Z==c?41+r:(Z==e?f-r-r:36+r+r)))); Y=P[i]; V(j=0; j<M;
>>>++j)B(!I(i,j,0))S+=(P[j]?5:1); BZ+=G==Y?S:-S; Y=G; } }
>>>B(!(++X&M-1))write(1,".",1); A BZ; } PX(){ U i,Q=0,XP=0,JZ=M*M,E= -f,t,S=o;
>>>B(!F--)A++F+C(); V(i=0; i<JZ; ++i)B(!I(i>>K+K,i&M-1,1)){ Y= -Y; o= -E; t=
>>>-QL(i>>K+K,i&M-1,PX); Y= -Y; B(t>E){ ++XP; Q=i; E=t; B(E>=S) A++F,E; } }
>>>B(!XP)E=s()?-f+1:0; p=Q; A++F,E; } RZ(){ U i,j,T=0; V(; ; ){ y(); o=f; do{
>>>H"\n%d %d %d %s ",X,T,C(),s()?"!":">"); fflush(stdout); }
>>>u(scanf("%o%o",&i,&j)!=2||I(i,j,1)); O(i,j); y(); X=0; ++YY; Y= -Y; T=PX();
>>>i=p>>(K<<1); j=p&(M-1); B(I(i,j,1)){ H"Rats!\n"); A; } O(i,j); Y= -Y;
>>>B(T>M*M)H"\nHar har.\n"); } } main(ac,av)char**av; { long time(),j=time(&j);
>>>R i=0; srand((U)j); V(M=0; M<=f; ++M)i+=UC(); M=i/100; B(M&3)++M; B(M&1)--M;
>>>V(N=1; N*N<M; ++N); K= --N/2; F=ac>1?atoi(av[1]):2; uv(); RZ(); }
This page took 0 seconds to execute
Last modified: Thu, 15 Apr 21 08:11:13 -0700
Current Computer Chess Club Forums at Talkchess. This site by Sean Mintz.