国际混淆C代码大赛获奖作品部分源码

国际C语言混乱代码大赛(IOCCC, The International Obfuscated C Code Contest)是一项国际编程赛事,从1984年开始,每年举办一次(1997年、1999年、2002年、2003年和2006年例外)。目的是写出最有创意的最让人难以理解的C语言代码。

 1、

 1              #include<stdio.h>
 2                                                 typedef unsigned int _;_ d,b,
 3                                            #define i(I1,Il,lI)if(Il){lI;}else{I1;}
 4                                          I[256],            n,y,a,r,u,k,o
 5                                        ,L,l[                    256],O,K[
 6                                       /**/                        #define\
 7                                       q(g)                        g char\
 8                                       *C,                           *Q,c[\
 9                                       ]=                              "KfW"\
10                                       ""                            "Ww|"\
11                                        /*                               'UU!\
12                                         %                                 NYA!\
13                                         */                                   "Z}"\
14                                  ";fRo?JtJaV<x4@*?R?&JV1"                         ".s"\
15                              "{Fyj2_;khB1xQ5oxm~mS@B|(pa>oRU"                          "Ro"\
16                           "nB}h@o?)d.X)NSTIUCz7@%",*s[]={c,"#en"                        "di"\
17                        "f/*}||1;\n__DATA__\40*/\n\n#ifndef\40q\n#d"                         "ef"\
18                       "ine\x20q\n#include<stdio.h>\ntypedef\40unsign"                           "e"\
19                     "d\x20int\x20_;_\x20K[]={\n#include\40__FILE__\n#u"                        "n"\
20                    "def q","0},L,O,l[256],I[256],n,y,a,r,u,k,o;"#g"char"                     "*"\
21                  "S,s[]=\"",c,c,"\";int main(){X();for(S=s+*K;*S>37;){for"                     "(o"\
22                 "=0;o<5;o++)r=r*85+(83+*S++)%89;r","^=*x();for(o=0;o<4;o++"                      ")"\
23                 "{s[O++]=r&255;r>>=8;}}return!fwrite(s,O-*S%5,1,stdout);}\n"                       "#"\
24                "endif",c},S[256]="#ifdef/*\n'true'\40or\40q{\nexec\40head\40"                       "-"\
25               "8\40$0\n};for(open$O,$0;<$O>;print\40if$f){$f|=/^$/;}q{*/q",/*                        */z;
26               256];q(_*x(){if(!L--){y+=++a;for(o=0;o<256;y=l[o++]=I[255&(k>>10                        )]+u
27               ){n^=(o&1)?n>>(( o& 2)?16:6):n<<((o&2)?2:13);u=I[o];k=I[o]=I[255&                        (u>>
28              2)]+(n+=I[(o+128)  &   255]) +y;}L=255;}return&l[L];}_*X(){for(O=0                        ;256
29             >O;I[O++]=0);for(O   =     0;   sizeof(K)/sizeof( _)> O;O++)I[O&255]                    ^=K[
30             O];for(n=y=a=L=O=0 ;O<1<<24;++   O)x( );r=O=0x0; return&O;})int/*^^*/                    main
31            (int p,char**P){FILE* Z=fopen(p>    (+  1)?P[01   ]   :"/dev/urandom",                    "rb"
32           );i(;,Z,O=fread(K,256  ,4,Z);/*P          */     fclose(Z))X();for(p=b=d                    =O=
33           0;O<256;K[O++]=0)*K=+  86;for(O                =1;12> O;K[O++]=*x());X();                    for
34          (C=Q=S;r-8;){i(*C++=34,  (r-4&&r               -5)||C- S ,;)z=Q[p++];i(;,z                    !=
35         32||r-3,i(i(C+=sprintf((    C),                 "%uU"    ",",K[b++]);i(d=1;C                   =S
36        ;i(d=02,b-12,;),b%6,;),r-1                       ,i(b=   fread(c,1,4,stdin);i                   (p
37        =O=0,b,for(d=O=0;O<04;O++)d                             +=(c[O]&255)<<(8*O);d                  ^=
38       *x();for(p=5;p;c[--p]=O<32?O+                            95:O+6){O=d%85;d/=85;}                 O=
39      5)i(d=0,b<4,c[O++]=b?b-1?b-2?36:      37:33:35           ;d=2)c[O]=0,r-4,i(i (d=                 2
40     |d,C!=S+6,*C++=(*x()%34)+93;p--),r      -5,*s=          C;d|=2)  )),z ,i(*C++ =92                ,
41    z-63||C [-1]-63||C>S+76,;)*C++=z))i(                   ;,d>1,d=  d-2  ;Q=s[r]  ;i(                   ;
42   ,r<3||  r>5,d=1;i(;,r-1, *C=0)C=S)  i(;,            r-4, p=0)++   r)   i(*(C++ )=
43  34,r    <4||r>5||   C<S+    78,;)i       (*C++=0;d=1; C=S   ,r<3       ||       r>
44 5        ||C<S+     79,;      )i(;,d,                         puts               (
45         S);         d=0      )}  return
46                                       0;}

 

2、

 1 #include<stdio.h> /******** SpigotQuine -- usage: ./spigot [pi or e] ********/
 2 char*s="G1%%xJ{;Q7wunmuGuu%%uu#include<stdio.h>/*Spigot_Quine*/#include<stdli"
 3 "b.h>/*_IOCCC2012_*/int*e,"    "i,j,k,n"     ";char*q"    ",*a,*d,*z,*p=%s%c;"
 4 "int" "%cmain(){a=calloc("                                 "1,1e4+n*2);;for(*"
 5 "a=\0@3,z=d=a+n+1,j=n*8-7;"    "k=0,j-1"     ";j-=2){"    "for(a[1]+=2;--z-a;"
 6 "*z=k%%10,k/=10)k+=j/2**z;;for(;k=k%%j*"     "10+*++z,z<d;)*z=k/" "j;;\0@2,z="
 7 "d=a+n*2,*z=1,j=0;++j<n;){for(;k=k%%"           "j*10+*z,a-z;*z"   "--=k/j)a+"
 8 "+;for(k=0;z-d;*a--=k%%10,k/=10)k+"               "=*++z+*a\0"     "@;}d+=spr"
 9 "intf(q=d-20,p,p,34,32,n+1)+2;;;;"                 "for(n=n*2"     "0-400;k<n"
10 ";++k%%n?j=!puts("                                                 "d):(d[j]="
11 "47,d++,d[j-2"                                                     "]=42),k%%"
12 "20<1?puts(d"                                                      "-1),a++:0"
13 "){for(i=-1"                                                       ";i++<32;!"
14 "*z?q[662]"          "=0,z=q+207:"                 "*z+z[1]<6"     "5?z+=11:*"
15 "z==34?p=0"         ":0)d[i]=((k/2"               "0-1?275*q["     "*a+10]-8*"
16 "q[*a+0]-8"         ":128)>>(i/11+k/"           "4%%5*3))&1?k"     "/3*!j&&p?"
17 "j=34:(j="           "i+1,*z++):32;k/3*"     "j--&&p?d[z--,j]=3"   "4:0;}}int"
18 "*y,n=%d;/*..~",*f="nnLa5~z23~|22t$q(s82r&q(s82q'q(s8;q(s8;q(s8:" "r(s8:r(s8:"
19 "q)s89r)sLr#t+" "sLx,uJw-yGu/wnnnU",*g="nnLa<z::t$u88t(u67t*u57s,t56t,t56~v56"
20 "tF6tF6tF8t1p"   "Nu/qOv+rS}Xxnng";int main(int m,char**v){char a[2012],b[2012
21 ],*p=a,*r=m>1     &&*v[1]=='e'?g:f,*q=b,*t=r;;sprintf(a,"%s%s%s",s,r==g?s+281:
22 s+168,s+386);     sprintf(b,a+22,a,34,32,24);for(sprintf(a,"%.33s/*%.28s*/%.3"
23 "3s/*%.28s*/%"   ".33s\"%s*/",b,b+66,b+33,b+76,b+66,b+99);*r;r++){;for(m=0;m++
24 <(*r-34)%77;*q++=*r>111?32:*p++)(q-b)%66<1?*q++=10:0;*r-110&&*r-126&&r-t<(t-g?
25 62:45)?*q++=34,((q-b)%66<1?*q++=10,*q++=34:0):0;}*q=0;puts(b+1);}/*IOCCC2012*/

 

3、

 1                                        /*
 2                                       +
 3                                      +
 4                                     +
 5                                     +
 6                                     [         >i>n[t
 7                                      */   #include<stdio.h>
 8                         /*2w0,1m2,]_<n+a m+o>r>i>=>(['0n1'0)1;
 9                      */int/**/main(int/**/n,char**m){FILE*p,*q;int        A,k,a,r,i/*
10                    #uinndcelfu_dset<rsitcdti_oa.nhs>i/_*/;char*d="P%"   "d\n%d\40%d"/**/
11                  "\n%d\n\00wb+",b[1024],y[]="yuriyurarararayuruyuri*daijiken**akkari~n**"
12           "/y*u*k/riin<ty(uyr)g,aur,arr[a1r2a82*y2*/u*r{uyu}riOcyurhiyua**rrar+*arayra*="
13        "yuruyurwiyuriyurara'rariayuruyuriyuriyu>rarararayuruy9uriyu3riyurar_aBrMaPrOaWy^?"
14       "*]/f]`;hvroai<dp/f*i*s/<ii(f)a{tpguat<cahfaurh(+uf)a;f}vivn+tf/g*`*w/jmaa+i`ni("/**
15      */"i+k[>+b+i>++b++>l[rb";int/**/u;for(i=0;i<101;i++)y[i*2]^="~hktrvg~dmG*eoa+%squ#l2"
16      ":(wn\"1l))v?wM353{/Y;lgcGp`vedllwudvOK`cct~[|ju {stkjalor(stwvne\"gt\"yogYURUYURI"[
17      i]^y[i*2+1]^4;/*!*/p=(n>1&&(m[1][0]-'-'||m[1][1]  !='\0'))?fopen(m[1],y+298):stdin;
18       /*y/riynrt~(^w^)],]c+h+a+r+*+*[n>)+{>f+o<r<(-m]    =<2<5<64;}-]-(m+;yry[rm*])/[*
19        */q=(n<3||!(m[2][0]-'-'||m[2][1]))?stdout /*]{     }[*/:fopen(m[2],d+14);if(!p||/*
20        "]<<*-]>y++>u>>+r >+u+++y>--u---r>++i+++"  <)<      ;[>-m-.>a-.-i.++n.>[(w)*/!q/**/)
21     return+printf("Can "  "not\x20open\40%s\40"    ""       "for\40%sing\n",m[!p?1:2],!p?/*
22   o=82]5<<+(+3+1+&.(+  m  +-+1.)<)<|<|.6>4>-+(>    m-        &-1.9-2-)-|-|.28>-w-?-m.:>([28+
23  */"read":"writ");for  (   a=k=u= 0;y[u];  u=2    +u){y[k++   ]=y[u];}if((a=fread(b,1,1024/*
24 ,mY/R*Y"R*/,p/*U*/)/*          R*/ )>/*U{  */   2&& b/*Y*/[0]/*U*/=='P' &&4==/*"y*r/y)r\}
25 */sscanf(b,d,&k,& A,&           i,  &r)&&        !   (k-6&&k -5)&&r==255){u=A;if(n>3){/*
26 ]&<1<6<?<m.-+1>3> +:+ .1>3+++     .   -m-)      -;.u+=++.1<0< <; f<o<r<(.;<([m(=)/8*/
27 u++;i++;}fprintf   (q,    d,k,           u      >>1,i>>1,r);u  = k-5?8:4;k=3;}else
28   /*]>*/{(u)=/*{   p> >u  >t>-]s                >++(.yryr*/+(    n+14>17)?8/4:8*5/
29      4;}for(r=i=0  ;  ;){u*=6;u+=                (n>3?1:0);if    (y[u]&01)fputc(/*
30       <g-e<t.c>h.a r  -(-).)8+<1.                 >;+i.(<)<     <)+{+i.f>([180*/1*
31       (r),q);if(y[u   ]&16)k=A;if                               (y[u]&2)k--;if(i/*
32       ("^w^NAMORI; {   I*/==a/*"                               )*/){/**/i=a=(u)*11
33        &255;if(1&&0>=     (a=                                 fread(b,1,1024,p))&&
34         ")]i>(w)-;} {                                         /i-f-(-m--M1-0.)<{"
35          [ 8]==59/* */                                       )break;i=0;}r=b[i++]
36             ;u+=(/**>>                                     *..</<<<)<[[;]**/+8&*
37             (y+u))?(10-              r?4:2):(y[u]         &4)?(k?2:4):2;u=y[u/*
38              49;7i\(w)/;}             y}ru\=*ri[        ,mc]o;n}trientuu ren (
39              */]-(int)'`';}             fclose(          p);k= +fclose( q);
40               /*] <*.na/m*o{ri{                       d;^w^;}  }^_^}}
41                "   */   return  k-                -1+   /*\'   '-`*/
42                      (   -/*}/   */0x01        );       {;{    }}
43                             ;           /*^w^*/        ;}

 

4、

 1                                          #define A 64
 2                                  #define/*++++[>++>+*/B 256
 3                            /*+++[>++++>+++++>[*/#include<time.h>
 4                        /*]<<<-]<<-]>>>++.+++>++*/#include<stdlib.h>
 5                    /*[>+>+<<-]>>.<+.<<<<[->>>+>->>>>>[*/#include"SDL.h"
 6                  #define/*]<<<<<<<<<]>>.>>>.<.<++.[>]<>[*/m(a,b,c)a##b##c
 7               typedef/**/Sint32 i;i/**/p[A][4][B][2],d[4][B][2],q=0,b[4][2]
 8             ,S,C,H,I,e,R,K,E=1,G,u,t,s=SDL_HWSURFACE|SDL_DOUBLEBUF,P[4][3]={{
 9            255,16,16},{00,255,00},{255,255,64},{64,128,255}},w=800,h=600; const
10           SDL_VideoInfo*v;SDL_Surface*o;SDL_Event n;i O(i/**/x,i y){return(y-x)*
11         (float)rand()/RAND_MAX+x;}void g(i z,i x,i/**/y){if(p[q][I][S][C]<z)d[I][
12    S]  [C]+=O(x,y);if(p[q][I][S][C]>z)d[I][S][C]-=O  (x,y);e=d[I][S][C];d[I][S][C]
13    =e<-H?-H:(e>H?H:e);}void c(i x,i/**/y,i/**/z){t   =SDL_MapRGB(o->format,x*S/A,y*
14    #define r(Z){SDL_FillRect(o,NULL,t);for(S=1;S      <=A;S++){C=(q+S)%A;for(I=0;I<4\
15  ;I++){c(255,255,255);for(H=0;H<B;H++){if(H==          1)c(P[I][0],P[I][1],P[I][2]);e\
16   =p[C][I][H][0];e>>=16;if(e>=0&&e<w){R=p               [C][I][H][1];R>>=16;if(R>=0&&\
17 R<h)*(Z*)((Uint8*)(o->pixels)+R*(o                        ->pitch)+(e*K))=(Z)t;{;}}}}}}
18  S/A,z*S/A);}int main(int                                  x,char**y){if(SDL_Init(m(SDL,
19 _INIT_,VIDEO))<0)puts(                     "SDL\40error.     ");else{;atexit(SDL_Quit);v=
20 SDL_GetVideoInfo();K=v->                                m(v     ,fm,t)->BytesPerPixel;if(K
21   -2&&K!=4)puts(                                                  "Bad\40pixel\40format");
22    else{if(x>                                     1)s|=              SDL_FULLSCREEN;o=m(SD,
23    L_SetVideo     ,Mode)(                      w,h,K*8,s)            ;if(!o)puts("error!");
24   else{;m(SDL    , _WM_SetC                    ,aption)(  "           Schierke",NULL);srand(
25   time(NULL))   ; for  (I=                      0;I  <4;   ++         I){for(S=0;S<B;S++){p[
26   0][I][S][0]     =O(0,w<<                      16);for(              p[C=0][I][S][1]=O(00,h
27   <<16);C<2;d[       I][S]                       [C++]=O              (-3<<16,3<<16));}for(S
28   =1;S<A;S+=1)      for(C                         =0;C                <B;C++)for(H=0;H<2;H++
29   )p[S][I][C][                                                       H]=p[0][I][C][H];b[I][0
30   ]=O(0,w<<16)               ;                                       b[I][1]=O(0,h<<16);}m(S
31   ,DL_ShowCurs              ,                                        or)(SDL_DISABLE);for(u=
32   SDL_GetTicks                                                      ();E;){u+=16;c(0,0,0);m(
33   SD,L_LockSur                                                     ,face)(o);if(K-4)r(Uint16
34   )else r(m(Ui                                                    ,nt,32))SDL_UnlockSurface
35    (o);SDL_Flip                                                  (o);for(I=0;I<4;I++){if(!O
36    (0,60)){b[I]                                                 [0]=O(50<<16,(w-50)<<16);b
37    [I][1]=O(50<<                                      16      ,(h-50)<<16);}H=2<<16;g(b[I]
38     [S=C=0],16,8<<9         );g(b[I][C=1]             ,16,8<<9);H*=2;for(S=1;S<B;S++){g(p
39      [q][I][0][C=0]           ,32,3<<11)               ;g(p[q][I][0][C=1],32,3<<11);}H=(
40       q+1)%A;for(S=             0;S<B;                 S++)for(C=0;C<2;C++)p[H][I][S][C
41        ]=p[q][I][S][C                                   ]+d[I][S][C];}for(q=H;m(S,DL_,
42          PollEvent)(&n)                                  ;)if(SDL_KEYDOWN==n.type||n
43             .type==m(SDL_                              ,QU,IT))E=0;G=SDL_GetTicks()
44                ;if(G<u)m(SDL                        ,_De     ,lay)(u-G);}m(S,DL_,
45                  FreeSurface)(o                 );}}          SDL_Quit();}m(re,
46                     tur,       n)/*       ]c2011                  omoikane[.>
47                                    +]*/0;}

 

5、

 1                                                                          #ifdef o
 2                                                                  /*>++<[*/#include<stdio.h>
 3                                                         G*W[]={"baac","baac","dffe","dghe","i..j"}
 4                                                   ,*t[]={"....","....","....",".aa.",".aa."};Z/*##*/int
 5                                              i;using/**/namespace/**/std;_ V;i C,T,O,R,I,Q,U,E[0400];struct
 6                                         B{B(B*v):b(v){if(v)for(U=0;U<5;U++)for(Q=0;Q<4;Q++)A[U][Q]=v->A[U][Q];}
 7                                     H/**/c(i k,i a,i z,i u){i y=A[a][k];A[a][k]=A[a+u][k+z];A[a+u][k+z]=y;}i/**/d
 8                                  (i u,i v){j(v>       -  1&&v<     5&&u>-    1&&u<4)?A[v][u]:0;}i p(i u,i v){j E[d(u
 9                                 ,v)];}i/**/q       ()  {for(T    =0;T <=     4 ;T++) for(C=0;C<4;C++)if(t[T][C]-46&&A[
10                               T] [C  ]-t[T       ][   C])j+    0; j  1;     }  H D(){ V   .clear();for(U=0;U<5;U++)for(Q
11                            =0  ;   Q<4;Q       ++)  V.o (     p ,   us     ,  h_back)( E   [ A[U][Q]]);}B*b;i A[5][4];};B*
12                          r  ,*s   ;o(qu      ,eu   ,e )<    B *>   n;      o  (s, e,t)  <  _> m;G*e(B&v){j/**/v.d(C,T)-46?(
13                        "  "):   "::";      }F f   (B &    v) {R    =C     -   1;j v.d(R ,   I  )-v.d(C,I)?v.d(R,I)-v.d(R,T)||
14                     v.  d (C   , I)-      v .d   (C      ,  T     )?     +   43: 124 : v .   d (R,T)-v.d(C,T)?43:v.d(R,I)-v.d(
15                   R,  T  )    ? 45:      * e   (v )    ;; }F     g(      B   & v ){j v .  d  (  C -1,T)-v.d(C,T)?(124):*e(v);}i
16                 h(  B   &   v){O=v      . b   ?1 +    h  (*     v.b     )    : 0 ;/* ]  > +   <  [ < */l"Move\40%d\n",O);for(T=0
17                ;  T    <   6 ;) {     I= T   -1 ;    {  ;}     for      (    C = 0 ;    C  <   4 ;  C  ++)l"%c%s",f(v),v.d(C,I)-v
18              .  d(    C   , T) ?      "-"    "-"    :  e(      v)       )   ;  ; l /* k  u j   o     u  */"%c\n",f(v));if(T<5){for
19            (C  =     0   ; C< 4      ; C    +=1   )l  /*      ] >      [    >  + +  + >  >  >   [    */  "%c%s",g(v),e(v));l"%c\n"
20           ,  g      (   v )) ;      } ++   T;}   j(  O);     }H Y      (    )  { (  * s   ) .   D     (   );if(m.insert(V).second){
21          (  n      )   . push      (  s   );}   ;}H  w(      i k       ,    i    a  ,  i  z  ,  i      u   ,i y,i A,i v,i b){;s=new
22        B( r)      ;   s ->c (     k, a   ,z,   u);  s->     c( y       ,    A    ,   v ,  b  )   ;     Y    ();}H/**/x(i k,i a,i z,i
23       u) {       w   ( k,a,z      , u    ,0   ,0,   0,      0  )       ;    }    i     o   ( m   ,      a    ,in)(){B v(0);for(T=0;T
24      <5 ;       ++  T )for (     C  =   0;    C <  4;       C ++       )    v    .      A  [ T]  [C     ]    =W[T][C];E[46]=5;for(T=0
25     ;T <       5;   T++)for      ( C    =    0 ;   C<      4  ;C       =    +    1      +  C  )  if           (!E[O=v.d(C,T)])E[O]=O-
26     v.d        (C  +1,T ) ?     O  -   v.   d( C  ,T+      1  )?       1    :              2  :  O-           v.d(C,T+1)?3:4;s=&v;for
27    (Y(        );  n.size ()     ; ){   r    =  n  .o(      f ,ro       ,    nt             )  (  );            n.pop();if(r->q()){h(*
28   r);o        (b  ,r  ,eak     )  ;   {;    }  } for       ( T =       0     ;    T        <  5  ;T            ++)for(C=0;C<4;C++)if(
29   r->        d(   C, T )==    46  )   {{   ;   } for       ( R =        -    1    ;        R  <  2 ;           R +=2){O=r->p(C+R,T);if
30  (01         ==  O)  x ( C    ,T  ,  R,0   )  ;; if(       O==  3       &&    (   *        r  )  . d           ( C+R,T)==r->d(C+R*2,T)
31  )x(         C,  T,  R * 2    ,0  )  ;if   (  +5 ==O)      {if  (       (*    r            )  . p( C           +  R*2,T)==1)x(C,T,R*2,
32  +0          );  if  (r->     p( C   + R   *  2, T)==      3&&   r      ->     d   (     C +  R *2 ,           T  )==r->d(C+R*3,T))w(C
33 ,T,          R*  2,  0,C+     R, T   , R  *2  ,0 );}}      for   (I      =-    1   ;     I <  2 ;  I           =   I+2){O=r->p(C,T+   I
34 );          if(  +1 ==O)x     (C,T  ,0 ,I );  if ( +2      ==O    &&     r->    d   (     C, T  +  I           )   ==r->d(C,T+   I*   2
35 ))          x(C  ,T ,0,I*2    );if  (   O==+  5 ){ if(      01     ==    r ->    p  (     C, T  +  I           *   2) )x (C ,T   ,0   ,
36 I*          2);  if (r-> p    (C,T+ I    * 2  ) ==  +2      &&r     ->   d  (        C     , T +I  *           2   )==(  *  r)  . d    (
37 C           ,T+   I  *3 ))     w (C ,    T,0   ,I*2 , C      ,T      +   I  ,0       ,     I*  2  );           }  } if(  '.'==  ( *    r
38             ).d(  C  +1 ,T)    )for(I     =-     1;  I <     2;        I =   2        +   I )  {  if          (+  3  ==  ( * r  )  .   p
39              (C,  T+ I) &&r    -> d(C,T+I)==     +r           ->        d(    C       +1  , T +I ))           w   (   C  , T , 0,  I   ,
40              C+1, T,  0,  I)    ; if    (r->p     (            C                   ,T+I)  ==  4  &&           (  *r   ) . d  ( C,T +    I
41              )==r  -> d(    C+  1 ,T  +I)&&r->                      d(C,T+I*02)         ==(*  r ) .           d  (C+ 1  , T  +I  *  2   )
42              &&r-> d ( C     ,T  +    I)==r->d                     (C   ,T+I*2))w(C      ,T  ,  0,I           * 2  , C  +1,  T,  0  ,   I
43               *2 ) ;if( 1     ==r->   p(C,T+I                        ))x(C,T+I,1,-I);   if   ( ( *            r )  . p   ( C +    +     1
44               , T + I)==1)      x(C   +1,T+I,                        -1,-I);}if(46  ==  (*  r )  .           d (    C,   T + 1    )      )
45                for(R =- 1;R<    2;     R+=2){                         if(2==r->p(C  +  R,   T ) &&           r->    d(  C  +R     ,T     )
46                 == ( r)  ->d(   C+      R,T                           +1))w(C,T,R     ,0   ,    C        ,T  +1 ,    R  ,   0      )      ;
47                 if  ( r   ->p(C  +                                     R,T)==4&&     (*        r         )  .d( C    + R,   T)     ==     (
48                   *  r).   d   (C+R                                                 ,T         +        1)  &&   (   * r     )      .      d
49                    (  C+         R*                                               2,T         )        ==r ->    d   ( C      +      R     *
50                      2            ,                                             T+ 1          )       &&( *r)     .  d ((     C      )      +
51                        R  ,T      )==                                             r->        d      (C  +R* 2     ,  T) )      w      (     C
52                                     ,T,          R*2,0,                                    C,T  +1,R*        2    ,  0)  ;     if      (     (
53                                     1 )==                                                 (* r)      .       p     ( C+   R     ,             T
54                                    )  ) x(C                                            +R,     T     ,-       R    , 1)   ;     if            (
55                                    1 ==r   ->p                                       (C+         R    ,T       +    1))    x     (             C
56                                    + R ,    T +1,                                -R,-1                 );      }}   }j      0    ;              }
57                                   /*] <    <   <[>+*/                      #else    /*                   >      +   ++      +    +              */
58                                   # /*+  +>   [ */   define o(x,y,z)x##y##          /*]                   <      +           <   */               z
59                                  /*  <  - ]  <  */  #include<string>/*-]>>>++       + +.                   +     <>  +       +    .               */
60                                 #   /*-  > [    */   define/**/Z/**/o(typed,/*      [   ]                   */    e  ,             f                )
61                                #   /*    ]      <-     -.  -*/ include<set>/*      --     .<     +                 .          <    [                */
62                               Z/* */    std::   o(        st,      rin     ,       g)        _    ;                Z          o    (                  c
63                                                  ,       ha,        r)F            ;Z           o( co,              n              ,     st            )
64                                                  F     G;/*         */Z            o                (vo,i           ,               d     )H            ;
65                                                       /*+-          ]*/            #                       define                   l   printf           (
66                                                                     /**/                                      # include             <queue>   /*[        */
67                                                                                                                #/**/  define        j  o(ret,   ur,        n)
68                                                                                                                              #include   /*]2011*/ __FILE__
69                                                                                                                                   #/*     */endif

 

6、

 1                             /*drrr!*/#include<time.h>
 2                        /**Sonohara_Anri*/#include<stdio.h>
 3                    typedef char/**/_;_*a,*n,*r,*i,/**/*x=":"
 4                  "4{C!!!!E4}C72DRRR!!27!!!!E#qvla4n4r4i#nwq|722"
 5               "7|0G2h1c72227~wj0#2h#h331q~02h%%(`*z1c~wj0h722733#"
 6              "(`*z52h#33h1#e}tk}cq~02h72927&(,(120j331%0G10aF2h1#ee"
 7            "qvl7227uyqv0nwq|1cj%{#a%(#|0:72|jjj927;qv{tm|}$lqu}6p&722"
 8           "KwvwpyjyGYvjq27;qv{tm|}$kl|qw6p&lah}|}~{pyj7227G#G2y42v42j4"
 9         "2q472272`%D,*:1#|0`1#|0:D :42~%D::1#y%j#|07227~1#v%j#a%*,#|0`1"
10        "#a%lqu}0(1>0)(**)1#q%}#2q3 3%0G1000(`)~>a13.)1F)1#2q33%0G1000a&&"
11       "-13.)1F)1#j%{#~wj0n%r%i%(#y  5v#33y1ca%2y#q~0(`*)%%a1c2q33%)(#i%)#"
12      "e}tk}cq~0a%%,*1c2q33%,,5)#e}   tk}c#q~0a&!*1c~wj0a5%!*#a#55a1q~0r>>0"
13     "0a%%)>>yC)E%%(,)1dd0a%%2y5!*>   >i1112q 33%(,,5*#}tk}c#q~02j%%(`**1rF%"
14    ")#2q33%2j33#ei%(#eq~0,,$%a1~wj    0a5%(`  *z#5a#a5512q33%(,(#q~0a&(,*1~w"
15    "j0a5%(,*#a#a55120q331%}C033n>      )1E#ee  e2q%(#j}lmjv72127hmlk0}720273"
16   "*1#e",*f="Gu!B~]!>c,}!<~i!9~n!      8~q!6~  u!5~w!3v,~_ !2w,~`!1x-~`!0y.~`"
17  "!/z.c,{!.{/b-{!.z1b-z!-{1b-g,o        !,{3a    /f,o!,{4a/ e,o!,z6`0e,o!z8_2c"
18  "-n!y;]4a.n!yI^/l!wH*5*i!u*7*:*         /%2*h    !s*/)2*5* -)$/*h!g-e*-)%4*2*"
19  ".)1*h!g-d*0)#5*1*.(2*h!g-d*1(           6*1*     1#4*h!g.d *A*1*;*h!g.d*@*3*9"
20 "*h!,g-e*>*6*5*,i!,h,f-*7*=*/*             /i!       ,h-e1*/  *Ji!-h,eUj!-sSk!."
21 "_,oQh-]!.`,c,fF^2i!/_,c-g;e3                j         !4b-g   ,^Ga,e!5`/g.^Bc,e"
22 "!7^0g1_:e,e!@f3a2h,c!Ab-^8a0                              c/    _!Bb.]C]4^!E`O^"
23 "![=]![<]",c[9999],e[/*\JJJ                             +          +99*/9999];int
24 y,v,j,q;void/**/d(_*p){/*+            +               +    88o       +**/for(;*p;p
25 ++)if(*p==0x2b){for(p/*+    o88888o       +          +  d88@@888o    +*/++;0x2b-*p
26 ;++p);}else  {if(*p/*!+  o8888@@888         +       +   888@888      +*/>040)*(r++
27 )=(_)(y^*p)  ;}}int/*+     888@8888          +      +   988888       +*/main(void)
28 {r=c;y=0;d(  "/*drrr!+      88888P           +      +      8         +*/#include<"
29 "time.h>/**   Sonohara+                      +      +                +_Anri*/#inc"
30 "lude<stdio   .h>typed+                     +        +              +efchar/**/_"
31  ";_*a,*n,*r  ,*i,/**/*+                   +           +          + x=\42");d(x);
32  d("\",*f=\"" );a=r;d(/*  +            +                  +    +    */f);n=r;y=24
33  ;d(x);y=time  (0)&(1022      +    +                               1);i=e;*i++=(
34   _)(((0x1f&y) +61)^1);*                                          i++=(_)(((y>>5
35   )+61)^1);r=c;for(v=j=q=                                        0;a-n;++a){y=*a
36    ;if (0x21==y){*i++=10;q                                      =1;}else{if(  y
37    ==42 ){*i++= 44-1;}else                           {;       if(y>92){for(
38     y-= 92;y;--  y)if(j&&((y                ==1&&a[1]        ==041)||(y==*a
39          -92&&q  )))*i++=044 -2                            ;else {;if(*r==
40           0x22    )j^=1;*i++=   *r                       ++;}q=0 ;}if(44<=
41             y)     for(y-=0x2b      ;-y               ;y--)*i++ =040;if(y
42                      >042)for(y        -=042       ;y;y--)*(i++ )=e[(++
43                       v&1)];  }}             }*i=0     ;return    /*)
44                        */puts   (                        e         /*
45                           (*/+                                    2)
46                                                                   ;
47                                                                  }

 

7、

 1                                                     (*      ,
 2                                                    177   ,o*)        open
 3                                                   Array (**)       module    L=
 4                              List          ;;let u,i,h,a,r,u_     =300,4,(0,0,
 5                               (0)),       float,truncate,(atan2( 0.)(-      1.0     ))
 6                                ;;let(  s,v   ,w)=L.split        ,fill          ,L.map;;      let(
 7                                 c,n)=();a      (i),u  *           i;;           module    R=Random
 8                                  ;;let(o,k      )     =                        make_matrix(n)(n   )
 9                        (124,194,169),75.0*.  c;;     let              e(     p)=let(*o*)q=();(     r(   p
10                      ))   mod(n)in(if(q     <(0)    )then(n+         (  q)   )        else(**)q         ) (*
11                *);; let    t(p)q=(    q-.                p)<          0.5              ;;let          j(d)=L.
12                fold_left    (fun        (p,      q)x   ->(                    min       (x)p,            max(
13                 x)q))(infinity,         (*bo .  d  *)-1.*.                      infinity)  d;;(*.    *)  exception(*_*)
14              I;;let(*      *)x         (p)q=   ((  fst)(q)            )           -.       (fst(p   ));;let(**)y(p)q=
15              (snd(         q)         )-.(snd  p  );;let z(          p)q           (     d)    =(x(p)d)*.(y(p)q)<(
16        x(p)q)  *.(         y      (p)d);;              (   );;    let(**)m        (p)   q=     (p+.q     )/.2.0;;let
17       f   (x)   w=L    (**)          .iter(fun  h(*   '      *)->let(x,y)=s(h)in(let(j,k),     (p,q        )=j(x),j(y
18       )    in   (for  s= (r           (p))to(  r(q+.       0.5))do(let(**)y=(a)(s)in(let  a(x)=match       (h)with  (o)
19       ::      p::      q->            (if(z(o)p(x,y))then(false)else(let(**)rec(*|  *)r  (u)      i=       match(     i)
20     with    ([      ]                )->z(u)(x,y)o|b::d->(if((z)(u)b(x,y))then(1=77  )  else         (r(   b    )d     ))
21     in(r    (p      )                q)))|_->(false)in(let(**)rec(**)u(p)q=if(t(p)q  )  then         (*[   ]    `;     *)
22    (  raise(     I)       )else(let(**)x=m(p)(q)in(if(a(x))then(x)else(();try(u(p  )x)   with        I->         ();u(x)
23     q) ))in    (let       rec(**)b(p)q=if(t(p)q)then(q)else(let(**)x=m(p)q in(if(a(x))   then    (b          )p (x)else(b
24        )x(q)  ))in       (let(**)rec(**)d(p)q=if(t(p)q)then(p)else(let(*L1*)x=(m)p(q)in (if((a)(x))           then(d
25 )    x (q)else( d       )p(x)))in(try(let(**)x=(u)j(k)in(let(f,g,h)=e(b(j)x),e(d(x)k),e(y)in(if(f<=  g  )     then(v(
26       o.(h))f   (g    -f)w)else(v(o.(h))0(g+1)w;v(o.(h))f(n-f)w))))with(I)->()))))))done)))x;;let(*. 8  ;    *)  g(b)p
27       (q)=w  (    fun(x,y)->x+.p,y+.q)b;;let(*o*)t(x)=match(x)with[p;b;q;d]->let(**)rec(**)i(z)u=if(z=   64  )     then
28       (L (* ;     *).rev(u))else(let(**)w(x)y=(x+.(a(z))*.(y-.x)/.64.0)in(let(f,g,h)=w(p)b,w(b)q,w(      q  )       (d(*
29     -=*)   )     in(let(x,y)=w(f)g,w(g)(h)in(i(z+1)((w(x)y)::u)))))in(i)0 [d]|_->[];;let(*177*)j(p)q(d)    b         =let
30       u=    w(fun(x,y)->((x*.c),(y*.c)))(b)in(let(* *)rec(**)b(f)=if (f=0  )then[]else(let(i,o)=s(g(*.   o   8         *)
31       ( let  d =((((a(f))*.72.0)+.d)*.u_/.180.0)in( let(o,c)=cos(d),  sin(  d)in(w(fun(x,y)->(o*.x-.c*. y),(c*.x        +.
32       o*.      y))u)))p(q))in(L.combine(t(i))(t(o))  ))::(b(f-1))in(   (b)   (5)));;let(**)t(p)(q)(o)(x)(y)(z)=let       u
33       =j       (x)y(z)in(let(b,d)=u(p),u(q)in(let(*   *)p=(w)L.hd(d)    in    (f[p]o;f(b)h;f(d)o)));;let(**)e(x)(y)(z     )
34       =(       t)[(3.290,-0.75);(19.61,-27.60  );((    -4.78),- 24.20);(-1.80  (*' *),-2.50)][(2.46,1.32);(17.7,-25.42)(*  |
35        |      *);(-4.47,-21.44);(-1.92,(-0.62   ))]     (234,236,237     )( x)y(z);;let(**)rec(**)d(p)q=if(q=0)then[]else(let
36        z=    0.2*.u_*.(a(q))in(p(**)*.cos(z),   p*.      sin(z)  )::      (          d(p)(q- 1)));;let(**)w(x)y(z)=t[(15.24
37         ,   (**)-8.520);(39.81,-51.51);(-34.94   (*        2010   1                    `*),-  52.33);(-9.32,-11.85)][(14.42
38          , (-6.64));(37.08,-48.54);((*     -       `        *)                             -    31.98,-48.81);(-7.94,-8.74)
39           ]( 233,185,185)x(y)z;f[(g(d(                                                            5.*.c)10)x(y))]h;f[(g(d(c
40              *.3.5)10)x(y))](221,  218                                      ,167);;                let(c,t)=R.float,Printf.
41             printf(*01*);;let(h,g   ,                                   f)= iter,iteri,           init;;R.self_init();;let(*
42              *)b()=(c(k*.0.4)) -.        (0.2*.                            k);;let(*^*)j(z        )=let(**)rec t(i)o=match(i)
43              with (p)::q->();t(       q)(o+.p)|[]                          ->b()+.(  o/.4.0)      in(let(x,y)=s(z)in(t(x)0.,t(y
44              )0.0 ));;let(**)s=      r((a(n))/.(                           k));;let(**)r(  p)     =let(x,y)=(p)in(x+.a(n),y);;let
45              d(*'  *)(p)q=f(s)(    fun (z)->  if(                          z=0)then(j[p.(   s-   1);r(p.(0));q.(s-01);r(q.(0))])else
46              (j[    p.(z);p(**)   .(z -1);q.(z);q                          .(z-1)]));;let    r   (x)(y)=f(s)(fun(z)->(**)(x+. b()+.(a(
47               z)    )*.k,y+.b()   ))  ;;let(**)j=                           f    s(fun(z     )  ->r (b())((a(z))*.(k)));;let(r,
48               k)=   i*i,f(s)(fun  (z   )->if(z=0)                               then(d(     j   .( s-1))(map(  fun(x,y)->x,y+.a(n
49                ))   (j.(0))))else  (   (d)(j.(z))                             (j.(z-1)         )) );;let(**)a    (p)(q )=h(fun(d)->(
50                 h  )(fun(x,y)->p(x         )y(c(                                                  360.0)))d)      q;;a  (w   )j;a(e)
51                    k;;let(**)a(x)         y=let                                                  (( ru,i,ko       )(**)   )
52                   ,(ka,za,ri)=(x,                                                               y)  in((ka       +ru),i+
53                  za,ri+ko);;for (*                     ob                                      /    *)y=0  to(   u-(1))do
54                 (for  z=(();0)to(i                     -1)                                          do( let(*  *)  b=(y*i+
55                 z     )in(o .(b)<-                                                                  (       let      (*-*)d
56                       =(o.  (b))in(                                                                   let(**)o=
57                      make    (u)(d.(                                                             0))in(for x=(1
58                      -1       )to(u-                                                            1)do(let(**)rec
59                                p(*( )                 *)              (q)                     =(if(q=1)then(d.(
60                                  x* i)                  )else(a(d.(x*i                       +q-1))(p(q-1))))in
61                                    ( o.                                                    (x)<-p(i)))done )(*[
62                                        Oo                                                *);o))))done;o.(y  )<-o
63                                          .(                                            y*i);let(**)p=o.(y)   in(
64                                            for                                      z=( 1)to(i-1)do(g(fun(    x)
65                                               q->                                 p.    (x)<-a(p.(x)) q)(o      .
66                                                  (y*                           i+z      )))done))done  ;()
67                                                    ;;let                   (*P'         @_@*)s='\x20'    ;;
68                                                    t"P3\n%d"(          (*;'             *)u);t" %d"u;
69                                                     t"\n255\n";g(fun(y                  )d->if(  (y)<
70                                                     (u))then(h(fun                       (p,q,b   )->(
71                                                      t)"%d %d%c"(p                       /r)(q/      r
72                                                      )s;t   "%d\n"                       (b /r)
73                                                      )d      )else                       (*   *)
74                                                               ())o                       ;;

 

8、

 1                                                     (*      ,
 2                                                    177   ,o*)        open
 3                                                   Array (**)       module    L=
 4                              List          ;;let u,i,h,a,r,u_     =300,4,(0,0,
 5                               (0)),       float,truncate,(atan2( 0.)(-      1.0     ))
 6                                ;;let(  s,v   ,w)=L.split        ,fill          ,L.map;;      let(
 7                                 c,n)=();a      (i),u  *           i;;           module    R=Random
 8                                  ;;let(o,k      )     =                        make_matrix(n)(n   )
 9                        (124,194,169),75.0*.  c;;     let              e(     p)=let(*o*)q=();(     r(   p
10                      ))   mod(n)in(if(q     <(0)    )then(n+         (  q)   )        else(**)q         ) (*
11                *);; let    t(p)q=(    q-.                p)<          0.5              ;;let          j(d)=L.
12                fold_left    (fun        (p,      q)x   ->(                    min       (x)p,            max(
13                 x)q))(infinity,         (*bo .  d  *)-1.*.                      infinity)  d;;(*.    *)  exception(*_*)
14              I;;let(*      *)x         (p)q=   ((  fst)(q)            )           -.       (fst(p   ));;let(**)y(p)q=
15              (snd(         q)         )-.(snd  p  );;let z(          p)q           (     d)    =(x(p)d)*.(y(p)q)<(
16        x(p)q)  *.(         y      (p)d);;              (   );;    let(**)m        (p)   q=     (p+.q     )/.2.0;;let
17       f   (x)   w=L    (**)          .iter(fun  h(*   '      *)->let(x,y)=s(h)in(let(j,k),     (p,q        )=j(x),j(y
18       )    in   (for  s= (r           (p))to(  r(q+.       0.5))do(let(**)y=(a)(s)in(let  a(x)=match       (h)with  (o)
19       ::      p::      q->            (if(z(o)p(x,y))then(false)else(let(**)rec(*|  *)r  (u)      i=       match(     i)
20     with    ([      ]                )->z(u)(x,y)o|b::d->(if((z)(u)b(x,y))then(1=77  )  else         (r(   b    )d     ))
21     in(r    (p      )                q)))|_->(false)in(let(**)rec(**)u(p)q=if(t(p)q  )  then         (*[   ]    `;     *)
22    (  raise(     I)       )else(let(**)x=m(p)(q)in(if(a(x))then(x)else(();try(u(p  )x)   with        I->         ();u(x)
23     q) ))in    (let       rec(**)b(p)q=if(t(p)q)then(q)else(let(**)x=m(p)q in(if(a(x))   then    (b          )p (x)else(b
24        )x(q)  ))in       (let(**)rec(**)d(p)q=if(t(p)q)then(p)else(let(*L1*)x=(m)p(q)in (if((a)(x))           then(d
25 )    x (q)else( d       )p(x)))in(try(let(**)x=(u)j(k)in(let(f,g,h)=e(b(j)x),e(d(x)k),e(y)in(if(f<=  g  )     then(v(
26       o.(h))f   (g    -f)w)else(v(o.(h))0(g+1)w;v(o.(h))f(n-f)w))))with(I)->()))))))done)))x;;let(*. 8  ;    *)  g(b)p
27       (q)=w  (    fun(x,y)->x+.p,y+.q)b;;let(*o*)t(x)=match(x)with[p;b;q;d]->let(**)rec(**)i(z)u=if(z=   64  )     then
28       (L (* ;     *).rev(u))else(let(**)w(x)y=(x+.(a(z))*.(y-.x)/.64.0)in(let(f,g,h)=w(p)b,w(b)q,w(      q  )       (d(*
29     -=*)   )     in(let(x,y)=w(f)g,w(g)(h)in(i(z+1)((w(x)y)::u)))))in(i)0 [d]|_->[];;let(*177*)j(p)q(d)    b         =let
30       u=    w(fun(x,y)->((x*.c),(y*.c)))(b)in(let(* *)rec(**)b(f)=if (f=0  )then[]else(let(i,o)=s(g(*.   o   8         *)
31       ( let  d =((((a(f))*.72.0)+.d)*.u_/.180.0)in( let(o,c)=cos(d),  sin(  d)in(w(fun(x,y)->(o*.x-.c*. y),(c*.x        +.
32       o*.      y))u)))p(q))in(L.combine(t(i))(t(o))  ))::(b(f-1))in(   (b)   (5)));;let(**)t(p)(q)(o)(x)(y)(z)=let       u
33       =j       (x)y(z)in(let(b,d)=u(p),u(q)in(let(*   *)p=(w)L.hd(d)    in    (f[p]o;f(b)h;f(d)o)));;let(**)e(x)(y)(z     )
34       =(       t)[(3.290,-0.75);(19.61,-27.60  );((    -4.78),- 24.20);(-1.80  (*' *),-2.50)][(2.46,1.32);(17.7,-25.42)(*  |
35        |      *);(-4.47,-21.44);(-1.92,(-0.62   ))]     (234,236,237     )( x)y(z);;let(**)rec(**)d(p)q=if(q=0)then[]else(let
36        z=    0.2*.u_*.(a(q))in(p(**)*.cos(z),   p*.      sin(z)  )::      (          d(p)(q- 1)));;let(**)w(x)y(z)=t[(15.24
37         ,   (**)-8.520);(39.81,-51.51);(-34.94   (*        2010   1                    `*),-  52.33);(-9.32,-11.85)][(14.42
38          , (-6.64));(37.08,-48.54);((*     -       `        *)                             -    31.98,-48.81);(-7.94,-8.74)
39           ]( 233,185,185)x(y)z;f[(g(d(                                                            5.*.c)10)x(y))]h;f[(g(d(c
40              *.3.5)10)x(y))](221,  218                                      ,167);;                let(c,t)=R.float,Printf.
41             printf(*01*);;let(h,g   ,                                   f)= iter,iteri,           init;;R.self_init();;let(*
42              *)b()=(c(k*.0.4)) -.        (0.2*.                            k);;let(*^*)j(z        )=let(**)rec t(i)o=match(i)
43              with (p)::q->();t(       q)(o+.p)|[]                          ->b()+.(  o/.4.0)      in(let(x,y)=s(z)in(t(x)0.,t(y
44              )0.0 ));;let(**)s=      r((a(n))/.(                           k));;let(**)r(  p)     =let(x,y)=(p)in(x+.a(n),y);;let
45              d(*'  *)(p)q=f(s)(    fun (z)->  if(                          z=0)then(j[p.(   s-   1);r(p.(0));q.(s-01);r(q.(0))])else
46              (j[    p.(z);p(**)   .(z -1);q.(z);q                          .(z-1)]));;let    r   (x)(y)=f(s)(fun(z)->(**)(x+. b()+.(a(
47               z)    )*.k,y+.b()   ))  ;;let(**)j=                           f    s(fun(z     )  ->r (b())((a(z))*.(k)));;let(r,
48               k)=   i*i,f(s)(fun  (z   )->if(z=0)                               then(d(     j   .( s-1))(map(  fun(x,y)->x,y+.a(n
49                ))   (j.(0))))else  (   (d)(j.(z))                             (j.(z-1)         )) );;let(**)a    (p)(q )=h(fun(d)->(
50                 h  )(fun(x,y)->p(x         )y(c(                                                  360.0)))d)      q;;a  (w   )j;a(e)
51                    k;;let(**)a(x)         y=let                                                  (( ru,i,ko       )(**)   )
52                   ,(ka,za,ri)=(x,                                                               y)  in((ka       +ru),i+
53                  za,ri+ko);;for (*                     ob                                      /    *)y=0  to(   u-(1))do
54                 (for  z=(();0)to(i                     -1)                                          do( let(*  *)  b=(y*i+
55                 z     )in(o .(b)<-                                                                  (       let      (*-*)d
56                       =(o.  (b))in(                                                                   let(**)o=
57                      make    (u)(d.(                                                             0))in(for x=(1
58                      -1       )to(u-                                                            1)do(let(**)rec
59                                p(*( )                 *)              (q)                     =(if(q=1)then(d.(
60                                  x* i)                  )else(a(d.(x*i                       +q-1))(p(q-1))))in
61                                    ( o.                                                    (x)<-p(i)))done )(*[
62                                        Oo                                                *);o))))done;o.(y  )<-o
63                                          .(                                            y*i);let(**)p=o.(y)   in(
64                                            for                                      z=( 1)to(i-1)do(g(fun(    x)
65                                               q->                                 p.    (x)<-a(p.(x)) q)(o      .
66                                                  (y*                           i+z      )))done))done  ;()
67                                                    ;;let                   (*P'         @_@*)s='\x20'    ;;
68                                                    t"P3\n%d"(          (*;'             *)u);t" %d"u;
69                                                     t"\n255\n";g(fun(y                  )d->if(  (y)<
70                                                     (u))then(h(fun                       (p,q,b   )->(
71                                                      t)"%d %d%c"(p                       /r)(q/      r
72                                                      )s;t   "%d\n"                       (b /r)
73                                                      )d      )else                       (*   *)
74                                                               ())o                       ;;

 

9、

 1                                                                #ifdef/*[*/_
 2                                                          /* C 2 0 0 9*/#include<GL/glut.h>
 3                                              _ ( t,ype ,def )unsigned char E ;typedef double K ;
 4                                     # /*] + + + + > [ */include<sys/time.h> /*] <[>++>++++> > > [*/
 5                                K Q , k , a , h , o , x , w , v ;typedef/**/int j ; K U=.4,_3 [ 3 ] =
 6                              { 107,192,229},s [ 7 ] [ 3 ] [ 8 ] , Z [ 3]={0,128,8 * 8 } ;/*]<<<[> + + >
 7                             >[*/typedef void l ; j n , ( J ) , m ; K V = .39,f[114 * 9 ] [1025], L [ 3 ]
 8                            ={240,250,250};j M , O , R , I , S , H , i , T , A[9][04 ] = { { 69,-9 * 3 , 0,
 9                           -1},{75,-24, 3 , - 1 } , { 9 * 9 + 9 , 7 * 3 , 3 , - 1},{93, 21, 0 ,-1}, { 8 * 3 *
10                          4,24,1,0},{93, 27, 0 , 1 } , {87 , 9 * 3 , - 3 , 1 } , { 72,-2 * 9 , - 3 , 1 } , {69
11                          ,-21,0,1}}; K z ( K b , K o_, K B , K O_, K y ) { F(O_- B )*(y- b )/( o_- b ) + B ; }
12                          E D[512][8 * 8 * 8 ] [ 3 ] ; K p ( K b , K B ) { F z(0,b_, b ,B, _ (ra , n , d ) ( ) )
13                       ; } l/**/u(j b , j B , K y ) {if ( ! O ||( b * B * ( b - _x)*( B -_x ) ))f[B ] [ b ] = y ;
14                    } l e (j(b),K( B ) ) { G ( ; b > 1 ; B = B / 2 ) { b = b / 2 ;G(I= 0 ; I < _x;I= T ) { T = ( H =
15                   I + b )+b;G(R = 0;_x > R ; R = i ) { i = ( S = R + b ) + b ; u (S,H, ( f [ I ][R]+ f [ I ] [ i ] +
16                  f [ T ][R]+f[ T ][i] ) / 4 ) ; u ( S , I , ( f [ I ] [ R ] + f [ I][i] + f [ H ][S]) / 3 ) ; u ( R ,
17               H , ( f [I][R]+f[H][S] + f [ T ] [ R ] ) / 3 ) ;u (i , H , ( f [ I ] [i]+f[H ] [ S ]+f[T ] [ i ] ) / 3 )
18              ; u ( S , T,(f[H][S]+f[T ] [ R ] + f [ T ] [ i ]) /3); u ( S , I , f [ I][S]+p ( - B ,B)); u ( R , H , f [ H
19             ] [ R ] + p ( -B,B));u(S,H,f[H ] [ S ] + p ( - B,B)  );u ( i ,H, f [ H][ i]+p( - B , B ));u( S , T , f [ T ] [ S
20            ] + p ( - B , B ) ) ;}}}}l/**/t(l){struct timeval b;gettimeofday(&b,NULL ) ;v=b. _ ( t , v_se, c ) + b . tv_usec/ 1e6
21           ; n++ ; } l r ( l ) {glutPostRedisplay();}l/*@_@*/P(K*b ,K*B,K y){G(M= 0 ; M <3;++ M ) D [ I][R][M ] = ( E ) z(0,1,b[M],B[M]
22          , y); } l d ( l ) { if(x>U){P(L ,_3 , z ( U , 1,0,1.0,x    ));}C if(x>V) { G ( M=0 ; M < 3 ; M++)D[I ] [ R ] [ M ]=(E)L[M];}C{P(Z,L,z
23         ( -1,V, 0 , 1 , x ) ) ;};}j c(K y ) { F ( ( M =(j)(_x*(y     +1)/2 ))>=0)? M % ( _x) :_x - ( ( -M)%_x) ; } l W ( E y,j(b),j(B)){glFlush();v
24        = v-Q;if( v > 1 ) { printf("%ffps\n", n / v ) ; }exit(0);      }l N(l){G(O=0;O < 8;O = O + 1 ) s [M][0][ O ] = s [ M ] [ 1][O]=s[M][
25         2][O];G ( s [ M ] [ 1][6]+=p(2,7);s[M ] [ 2 ] [7]==s[M][       0][7];s  [M][2] [ 7 ] = ( j ) p (0,4));G( O = 0 ; O < 6;O ++) s
26        [M][1][O] = p ( - 9 *40,360);O=( j)s[M][2 ] [ 7 ];s[M][1] [O/2]=((O&1)?-   360:360 ) ; } l Y ( j b,j(I)){r() ; } l g ( j b ) { _ (g
27       , lNormal3, d ) ( A [ b][2] *cos( w),A[b][3 ] , sin(w)*A[b][    2]);_(glVer, tex3,d) ( A [ b ] [ 0]*cos(w),A[b][ 1 ] , A [b] [ 0 ] *sin
28       (w)) ;}l l1( l ) { _ (glTr, ansl,  ated)(s[M][ 2 ][0],s[M][     2][1],s[M][2][ 2]);G( O = 3;O < 6;O++){glRotated(s[ M ] [ 2][O] , ( O-3)?1
29      :0,(  O-4)?1:0 , ( O -5)?1:0  );}_    (gl ,CallL , ist)((J));    glPopMatrix();}  l p_( l ){; R = glutGet(_(GLUT_WINDO, W ,_WIDTH ) ) ;k=a=1;
30      I=M=  glutGet(_ ( G ,LUT_WIN  ,DOW_HEIGHT)  );if(R>I)k=R/(K)I    ;C{a=I /(K)R;} t  (); } l q_( j (b)){glMatrixMode(b); _ ( glLoadI , d ,entity)
31      ();}  l O0(l){h=30 ;glFrustum (-k,k,-a,a,h,  1e6);gluLookAt(0,   0,-1e4,0,0,0,0 ,-  1,0);}j/* [ */q[]={_(GL_TEXTURE_,2, D ) ,/*<>*/ _ ( GL_TEXTUR,
32      E_G    ,EN_S )|00,_ (G,L_TEXT , URE_GEN_T),(   GL_CULL_FACE ),   _(  GL_NORMALI ,  Z , E )/* ] */,GL_DEPTH_TEST,GL_S,GL_T, _(GL_TEXTUR , E_MAG_FIL,
33      TER    ),_(   GL_,TEXTURE_MIN,   _FILTER),        GL_LINEAR,         GL_POLYGON     , _ (GL_, RG,B),GL_COLOR_BUFFER_BIT|_(GL_DEPTH_BUFF /*]<X++++>[*/,
34      ER_    ,BIT)  ,GL_PROJECTION,_   (GL_,MODE           ,LVIEW)         ,GL_BACK}     ; l X(l){ ;glDrawBuffer(q[16]);glClear(q[13]);p_();glViewport(0,0,R,
35      I)      ;q_( q[14]);O0();q_(q[   15]);G(M=              0;M<7       ;M++){G(O     = 0 ;O<6; O ++)s[M][2][O]=z(s[M][0][6],s[M][1][6],s[M][/*omoikane 09*/
36      0]      [O],s[M][1][O],v);s[M]    [   2][6                         ]=v;if(s[     M ] [1][6 ]<=v)N( );glPushMatrix();l1();}glutSwapBuffers();glFlush  ();;}
37       j       main(j/**/b,char**B){_      (g,l,                          utInit      ) ( &b,B) ; _(glu  ,tInitDisplay,Mode)(GLUT_RGBA|GLUT_DOUBLE|_(GLUT_,  DEPT
38       ,      H));b=_(glut,CreateWin,      dow/*                                     ; /  */)( "Koyomi  \x00");glutSetWindow(b);glutDisplayFunc(X);_(glutRes,  hap
39           ,eFunc)(Y);_(glut,Keyboard,    Func)(                                  W ) ;  _(g, lutIdle  ,Func)(r);_(gl,ShadeMo, del)(GL_SMOOTH);t();srand((j)v)   ;k
40         =atan2(0,-1)/24;J=glGenLists(1     );    _(                             g ,     lN ,ewList)(J,GL_COMPILE);G(M=0;M<8;++  M){glBegin(GL_QUAD_STRIP);G(O=0
41      ;O<49;){w=O++*k;g(M);g(M+1);}_(             gl                           ,         E ,nd)();}glBegin(q[11]);G(M=0;M<48;g(0    ))w=M++*k;glEnd() ;glBegin(q[
42    11    ]);G(M=I=0;M<48;g(8))w=M++*-                                                k ; glEnd();b=_x;G(glEndList();I <=b;I+=128      ){G(R=M=O=0;R<=   b;R+=0x80
43         )f[I][R]=0;}G(;M<32;M++)f[((j                         )p                    ( 0 ,8))*128][((j)p(0,8))*128]=p(.1,.3);e(128,      .06);G(M=0;M<=    b;M+=1){
44        f[b][M]=f[0][M];f[M][b]=f[M][0]              ;}O=1;e(b,.48                  ) ;G(I=0;I<b;I++)G(R=0;R<b;f[I][R++]*=5* 75);b=b        /2;G(I=0;I<       b;I++)
45       {a=z(0,511,1,-1,I);G(R=0;R<b;R++)              {k=z(0,511,                  - 1,1,R);h=k*k+a*a;o=sqrt((1-k*k)/2);if(a   >=o){x          =1;d();}C        if((-
46      o)>=a){x=-1;d();}C{if(h<1){x=a/sqrt              (1-h);if(                  x >=-1&&x<=1)d();}}if(h<1)if((w=f[c(k/sqrt     (1-h))            ][c(a/         sqrt
47     (1-h))])>0)G(M=0;M<3;M+=1)D[I][R][M]=(E            )((O=(j                  ) D[I][R ][M]+(j)w)>255?255:O) ;}}_(glGenT,       extu,              res           )(1
48    ,&m);glBindTexture(*q,m);G(M=0;M<6;_( glEn            ,ab                   ,le)(q[   M++]));G(_(g,lTexIma, ge2D)(*q ,0,          q[12              ],            b
49   ,b,0 ,q[12],GL_UNSIGNED_BYTE,D);M<8;_( gl,TexG                              , eni)(    q[M++],(_(GL_TEXTUR,   E_GEN_M /*;            */,
50   ODE  )),GL_SPHERE_MAP));    G(glTexEnvf (_(GL_TEX                          , TURE_    ,ENV),_(GL_TEXTURE_E    ,NV_MO  ,/*               '
51  */DE  ),GL_REPLACE);M<      10;glTexParameteri (q[0],                 q[M++],q[10     ]));Q=v;G(M=n=0;M<7;     M++){G  (O=
52  0;O   <6;s[M][2][O++       ]=p(-360,360)) ;s[M  ][2][7]=s[       M][2][6  ]=v;N()    ;}_(glut,Mai ,nLoop)      ();F+0  ;}
53 /*]    <>>>+++++<*/       #else   /*<<<<-]< <-]>  >>>>>>[<+<+>>-]<+++     ++++++.    <-  .----.>-  ---.++.      <<+.>   */
54 /*.     */#define        _(/*     <.>>-----> [*/   KO,YO,MI              /*]<.+     +    */)KO##    YO##MI      /*+.<   */
55 #       include/*      <*/        <stdlib.h>  /*>   tarai--              --.--           .>-----    --.<        -.*/
56  #      include                     <stdio.h>  /*    +++++.             <<.>>            >-.<<       .>-        >*/
57  #      include                      <math.h>   /*     X++.+            +++++            .[          <]        <*/
58  /*       +*/#                         define     C      else          /*+.<                          [        */
59   #       /**/                          define             G/*         */for
60   /*      */#                           define               F        _(/*'
61             */                           re,tu                        ,rn)
62             /*                           */int                       b_=_
63              (                           RAND                       ,_MA
64                                          ,X/*                      */),
65                                          _x=                      (/*;]
66                                          */                    1024);
67                                          #                  include\
68                                                          __FILE__
69                                                        #endif

 

10、

 1                               ($z
 2                                =q[usezC
 3                                 o  mpr ess:                                     :Zli
 4                                  b; eva     l(u                             ncompr  e
 5                                    s s(        unp                      ack      ("u "
 6                                     ,uc(          jo                in"           ",m a
 7                                  p{ch r($           _-            3)    }un        pa ck
 8                                 "C* "     ,q!pA        0        m   @89            x r +
 9                                  f?3b           h}lb    y) 9   n  d4               +=% c`
10                          }6}      '+{'         'we++j)$6((zq-o/=@k      mte    8aup|4&zy
11                          vpiC>swel4-qa  q<A6svfy@onv/?+r}226w@=n=kx            )6x2
12                            hzx1?{@:&10pdg*Bv<*$,9ml{,mf4CiBi4wjuCi'c<q|,?z      d?t3w}w
13                         ks)9o1*9^p'e{6.m'qp?'s)('rk1/gk+/78(-5vx&di?-o?|          > lx5
14                   v@6w)A5t$ghdm*)}84sq({=5|*>p*-8jie.?t'l1163z80lo}Ch?m|hu  /*c{;x&z 1
15               k`t^&x_0)en14ojt&>$):,}prB6@,632l@,+iB`cu=%.hf3-0oBrBiy5?7kC)A'&hbmd0:0'
16            3dk-xg>f|l5cpv4g0j|gyz-A>Ao@0i&^4q^*),;k+k*?<1%i:8-j<ld6'5/3so16,(ko
17         'm9|pp4B9?/wmdz8-p-v8@03q$pd57er?n0f,-1/qlh%u@1$*7:tl).c{qb(prA$gsp|os>
18       pg-`c=x)ot|3c3_otcn3$kyj?m`^'')f$}wk3+elax20A@$}($(5}jq_p@>',o{6at{6ys+$ykt
19     )p1iC`8=3-qr6w5+%l7f(ly>e>w0a18/u|c>_)my&1pC_'.z>ftvc5&v@@un:'gA$&pd,wh9zBw6.
20    2-      /n'j(&z67i+2&(,i.c?xc;q7p=re=_A9=c5@chA&7t-8usB$p109wd;0d`qzzqn_*m<y?$_
21         2k}ft{w  q:`sqmrpy5{)r?|0x1v?3p6o`xo:j9>c*d6)36z^bphn0=C8/0-?7<8=fx+'(bxir6
22       zspm     ')<C8odCg)nq{:o*n0^/0mfi`mz`C,d0|?'aA85tb`ytrla(5)hcv$9@'>?pch-w58;3
23              i}%?jCB4qy<r;`q'7vq9iy=3y)wykxyCx}%j:gm>> 66m4_+A1%5?p=6kCghkom$`<A}2z
24            q^u@dB=vB(a5xvt5(c-gofc4uy&{6)hx1p&p4:&8q  :y ?p   4i(jfb/u>6@ty1qz=4r^6
25         <k$fu   ,pw;s &j@,tse4@{*6mf0/2a/%&y^ @3qn0?p`@       0<<=,w2n48vbn:&tb.|7l
26       k2        zi(t m/m5lrb9&^5`.1c&a8uk>%m;  67B}e   _      A p_0>s(zxw7rd}j.q6q
27                9.y}  7j+*<ot'wvjd=.44spp{6d:      ,           %%7 6zth|Cpwuesbp,A`
28               %,86  8/-^i?l93 8z0jg2 2_10zck                 ?f:: ))(gzskmf`/}8 r
29             a^$&   1%bjfsw,;p %j_ni   3s^ {BA                d-m v%a.C=eom=%_0:
30                   %yA5)  d<v  {8a7;   4o1 opr}                 u|yagxa25m=;pwg
31                 _x*b-    eBy   -e'     :pb6   a     >'/       _i6`-2w^?{?dm8v6
32               aow@       t;     mk      np     An         b`2a,w2ABCy8x.%u:p$
33                           2                      gj<+|h`vh<`badAn.}bx!))))])
34                                                 =~       s/\s//sg ;$z=~s/z/
35                                                          /;      eval  $z;

 

11、

 1                                                   ($z=q[
 2                                        usezCompress::Zlib;eval(unc
 3                                    ompress(unpack("u",uc(join"",map{chr
 4                                ($_-3)}unpack"C*",q!pA0m@88pv{f;7Bq`/b_14}|h
 5                             %3k(wlbo3xCgg1/6h{ku$<f,,pm0Ct@<e,%.,p5xi)bAw`/d$
 6                           +w^|w$qp?rj2|@%vg:&/;o>b/}Aipkr0)/b0A(mq+_8g1B=m{pld
 7                          &h/w^dgeodk?a{{C,qm,ig/o_{&1gw:y+/ib'/k}{u-i.(k/A/9?,hu
 8                         C5wp/f|$$_a9w/o(t;,;0_/er=:e'slz/o@A@bgujwm+m'$xekzd8r'g
 9                       u4fwh`lCp|5^fsf,@?$f*7e3/b+,-hu=93(`1<3^&j'_lp-v0;f}t)>;=@1
10                       9/6h,gib+lp<bd;^8qA;ds:7j*oB/w(d3'z=))t)B`i`u;kss=%+f^/(x;'
11                      wtt,%+z(qhvjp/ytc<t6(&89=y:=,65v-4'dr>*5A5e6c>?ks(y-,g|k9kw$)
12                     93t&C|hw2g_|pvmwn?<{veex7rl6n4f2t`&vflg<mh<? 8644f/9hp45Bub6=d
13                    %}>hf,*96p^}ps^&rg{h7egw/q@v,/+n_ut),,:$&ylo  xd) $''ehf{&)fl.
14                   2:snc03@pr>@crp_ig&(kn(BC_r%2-Cdj3y=a5z4dr2   p o,A|8cs,_(9?p$o
15                  +g7/,q7=r;B9c;<8pCv?90v`nk(g)hd/,zhe<h           (   0@m)cg{$t}b
16                 z3+2+@g7%v$l8a;%*14(/}@ed$wpsi&3y36;b3|A(3r=      f?o  l%B* :,:d
17                )7w1ev4lwng?':b2?fj={g`B$f4yuvd  7fpsy+<           4v{twe&x, 4jp<
18               &dm`:lzt-e?3;t^*>wmw@e*0o|yC:0C}   fj2u1            xA  %s@pp 2 ^
19             k=`t$8/3,y%=/y96,0^qvf&_g6w_;18u33    3'mb           /gC  <t?%.  b
20            b%bf_A6.B{hpr*cB4)oq?(,2f-j&{c2rqxd                       p.{?;j
21          r%ot1`vzm&r?gz-;,'uhnx2z'02ei@{p/3h&.r                      <=(24}
22        39os+obw-?`gnoj8m`-})2B%_<cg6*%w1xrd&s,w                     vmf}ukm
23       {pbh|n4:b{0C:bn?n^@0<{hmng5obs)Brhs_@}rA*-6         `<cA     Att;7kB
24      }_?-nwj{p7-a:u}oi_wlq?i_$}z8b5k|2uk_8|w'{(5 ?7{            (6xd)<7h6-
25     ,wd<u<>jm8$$spo{1wv-<8*8Ck=@Cl<l?>.nqr2x=`+q%   oahr     |z%*k2^9h)u^z
26    :1'|   m(&2132*pwi<{,>hlm=j--b|??h2rq}|`.lw @s:    i|8&wmqv:zx|nA;%BotA
27          :hh5qm jloypxev6>&:2@@lg(?B`'tpou_*ia   nl  b7cbe_>ei-sr_ul4?9n'
28         bC     45(v>@  g6eu6p'  inB=|  _B`,(>1^   Aw 6l  wvha09xqrxbuibu^
29                       '^tn     B6       <+zx*._    =$n>     |6@:{_;Ab(c@
30                               ^          n8bkc!)              )))])=~s/[
31                                          \n]//sg                    ;$z
32                                           =~s/z/                    /;
33                                           eval  (                  $z
34                                              )                     ;

 

12、

 1                                    ($z=q
 2                           [usezCompress::Zlib;eval
 3                       (uncompress(unpack("u",uc(join"",m
 4                     ap{chr($_-3)}unpack"C*",q!pA0m@8hp2)w?7BrAri
 5                   .Cn@6@3&+w7p6C)rb=h6|*}',+)l7<;?nf;fme'e0d@pCy`C1{(
 6                 C*'1/o>g;;y(og`f'=}6_C%mb+?2o|9jb3ob/yo(,)}imp$n2v2j1p^6
 7               rj&&s.A0$     `v|b$w@*Bb,0vr{v_`-r6rA%=:xCg}}a0u^5t'u2(B96o*$
 8              j<p;}1um=89     x8k);>i/|6=9?xf=d{2+vCig08=w6o-+01&q$>oas2+,3^{*
 9             1@q?p;hj)7d1          4@<)o8'dtd^uos;m;,'Bdwf}(5uwoh9_w|cCC:i)|d17}
10            hm0/72|zp*             &j?soon0)typ{mhcr1BtB+<hkkcs:-(4:))x$+g3tyA7'/
11           7`;>=gg}^-c         m2p+l='h?A0';q'),;qi(}=y>f'_d}&lCc0e&s&97(b'_5/5a8r
12          +ku-<(4%g$>0p56a{     wr0n|1u5p$5=<e9(u'n< u0> w`*lzlv:-v-l7^:,'k^6u6o'h
13          ;j8n@<itpy-='9$59c +mqiv'pk}exB  ::h  u/f 8' ?j  qg    8;Ae{@;5e)k^b:^&
14         )e4w+i=&Ar,p/u0fh=t+2?go+&978-p0     .8  8*  ao =l  jf    Cj  |a@}A|?99
15          g_:55,*&hr3.Ae}*51lphl         }5f   ?/   /+ p7 3A   =(    ?0  |rm8pf
16           e.ose>2:kuzAlh1l91<%tB          }sB   tk  ',  5  v   xl    d$/ gp  bt
17             kyyq;h$,whh;-}r     7A          1.   $=  -p  .  n5   9     t<  g( 'o
18             *5&q-)^o<b797^n45C    <,          ln  (`  cp  n  ';   ye    `4  =jA 35
19            9%   tf     _ 4d./=6(    6r      9  .m  hk  'u A{  |`   8t     `l  }< .A
20          ft     0      _u  9^gj>sd   dt'    pmc yx  7  @,u az  k    |m     4a  Bo  *1
21         xm     <^      j`*  t$ 5ysd    `9    v6g  c kg  p7  ^   1    k      7h   .  8+
22        }h      %       o  ou f{vzp ._   (o0   x3{ m` 9) 9km v=  5m    v      8e   _  C@
23       6q      jn       ?   <+2'  t% u{  Cgea   lyC qt 7oBem(}<   ;    xg      ->   p  yh
24       l       <%       w/y1v      (0 6q  nrvn  65< 6`{c{od . -;  4}    `|      {@  |=   l
25      e^      0A9   `   2l.         >% 5h pg +7 1@:p>&;q}%$  -A5m  &     }       3A  u8   A
26      g      'jC>  '     y           e1 1l ?  e 5w vzr %o v| r'**  t     +t       f   ?   *}
27      4      13r<  o  .  e*           pt67o^i ,lf  9z  ;n 8^  2ml  )7     ^   B   lu  8;   xA
28     cA      ;+ e  tg o8  r            %ue-7g  (o   (C&+o@qc4 < $+ o(     p)  yp   <   i2   5y
29     y4      >^ `v  >A ^' 3b           4<< 0<  8gsh:1v+|n-m=h7> >v v3      a  2f   |   i2$   ^
30     /4   /   |? d  =p  c@ v1           9p BB  2{;v9yti1y, y?    d _>      o,fpm-  j7  v7}5  9=
31      %   zi  ^$  w  >; v>A->n          b/  -issA  wp9cq9h<oB    a f5 =^   >>x8r=  y.  +c a   <{
32      e   b19  5b  e  c0 175uA7         '   ,Ch     6;;f3:-ppu   a09^ ^p    m_$eC= s$  -pcfh  j>;
33      y^  7f3   ',  ebsB%:e  <1                       o2m81)@    `(qf 68    n}*qr* C_  bic y  n @i
34       p   | s  ys;j <y>Bs0/s.m5<kz                    i_{=      z:3u jv    A CsB?up`  5 ' b} <) 3
35        {  l@ o4 +k0>160fq4p*k9w|j                    $2        ms@v& e@    ; 9 Bhm_0 z} |b8>7s( i:
36         `  a  u2 Bz |-tj( kC_0m{gk                             pC x bi/    4 6 pyp=ecr  w*b3d0h? <e
37          xh4%   lr.58(<0$;C,i snw^c                              79py )    w 6 ):08(+3  iCz-vx r tp
38           {97,    9e:-yf,1y^,r< 7{b                             ls(A <{   i5lv9' @mBv$  kbz$iz xr e
39             0/y     ,6nzl dv =p  >                             2p?w(:w2   r 7__1 @q _2  &6e|{f t^ C
40               @_    &hj 3j u@ {?                               *b,/vB}c  ^s _ 1 %o1 fy  q *dqb C' 8
41                 p    w(r qq bi $'                 A*           dg*  xe  tf ^+ho %65 @  ag  jb  B0 s
42                       eax ss 9( +6q         u&z'.B            7k    .h p+ k-cd1pvqber %}   ^z  ? j0
43                        qqtf u '| &_gsa                      iA=     iABA 7o1e@{nhlxb  1c  {t' b@ d
44                         q0%b v3>;( vp?&_}                 cl<      ot&  22a;8(vfrg{m=@5  t|B  s./{
45                           `uss^B;/ynjBs 72:*.          -Ags         ?6bk  i< pd s11s1c %b .B%?^1&
46                            `20%)(}m6{/<k<   *so*rqA&34q/            w|         tih;kb;tv  Cbd.ew
47                              p=b4bv24z3k/u^2 ?}h1   6_               s           C nn}   ^ejjzw
48                               ?jd :_c!))))])=~s/\s//sg               ;            $z       =~ 
49                                       s/z/   /;eval$z                                     ; 

 

13、

 1                                                          $d=           
 2                                                    '~~_!~s*g!          
 3                                               ~m1f!~h      .b          
 4                                           )f!~d-           g*e         
 5                                       !~`-k*               e!~         
 6                                   ,q*d!                     z,u        
 7                               +c!w,                         _.n+       
 8                            c!u?g   +c!r.c+                  c-c,       
 9                          b!n,g+])f,a+b!l*^+c*a*g+           _,a!       
10                       k)_)]1d       *a-^       *],a!k       )]*c1      
11                   a0])`           .a!k ,^          ?c*a,     a!jK      
12                 `)]  0a!j       N],     ^)]           *`!j   Qa)]*     
13                `!   hA _9^-`!g@a-        ]4]     +a!e:]  ,c, _7b!d     
14                :^ +e*       a6b!c:_*b0     `5b!c+];a *]    /^6a!b+     
15                ]5],f  0]6a!a+^.]-],e2]6`!a*_-]       .],     e0`5`     
16               !`)`-^.],f/`5`!`(a-^)]+^*h,b5`!g+^)^    +w 5a!g+^(_,     
17               e-f5b!h)c-e+g/]+c!h)c/o1]*e!i(c+^.c6_)f !q)`+  ^3 `,`    
18               )g!w)n,o!~h*r!~~_';$p=q{lambda(p):''.join(     fi lte    
19             r(lambda(q):not(q.isspace(   )),p))};$x=q{lambd  a(p),q    
20            ,x,d,t:((lambda(b),z:"".j     oin([[ z[min(len(eva l(p)     
21          (b[0:i+1])),len(z)) -1],b       [i]][   b[i].isspace()]f      
22         or(i)in(range(len(b  )))]         ))(     "".join([[chr(1      
23        0),"x"*(ord(i)-39),   chr      (32)*(ord    (i)-92)][int((      
24        ord( i)+13)/53)]for(i)in(     eva l(p)(d))  ]),eval(p)("$d=     
25       '%s' ;$p=q{%s};$x=q {%s};          $q=q{%s}; $q=~s/[\s]//gs;     
26      eval  ''.($q) x(1);" %(d,p         ,q,x))))};$ q=q{$t='"'x(3);    
27      @b=   ("prin t(lambd a(p),         q,z,zz,x,    d:eval(eval(p)    
28     (q    ))(p,q  ,x,d,'$ t'))(          ($t$p$t)    ,($t$x$t),$t$q    
29     $     t,($t$  x$ t),$  t$q            $t,$t      $d$t)"=~/\S/gs    
30            );ma  p{  prin                           t(($i=ord)<39?     
31            chr(  1   0):$i         <92?ch          r(32)x($i-39):      
32             sp       lice(@         b,0,           $i-92)); }("$       
33             d!       "=~/\S/g                   s);#print( lam         
34              b       da(z  ):"Z"+z       [1:3])("Lunatic   ++          
35                      ")    };$q  =~s/[\s]//gs    ;eval    ''           
36                            .(                  $q)x(                   
37                                               1);                      
38                                                                        

 

14、

 1 print(lambda(p),q,z,zz,x,d:eval(eval(p)(q))(p,q,x,d,'"""'))(("""lambda(
 2 p):''.join(filter(lambda(q):not(q.isspace()),p))"""),("""   lambda(p),q
 3 ,x,d,t:((lambda(b),z:"".join([[z[min(len(eval(p)(b[          0:i+1])),l
 4 en(z))-1],b[i]][b[i].isspace()]for(i)in(range(       len(b)  ))]))("".j
 5 oin([[chr(10),"x"*(ord(i)-39),chr(32)*(ord      (i)-92)][in   t((ord(i)
 6 +13)/53)]for(i)in(eval(p)(d))]),eval(p      )("$d='%s';$p=q   {%s};$x=q
 7 {%s};$q=q{%s};$q=~s/[\s]//gs;eval'     '.($q)x(1);"%(d,p,q,x   ))))""")
 8 ,"""$t='"'x(3);@b=("print(lamb     da(p),q,z,zz,x,d:eval(eva    l(p)(q)
 9 )(p,q,x,d,'$t'))(($t$p$t),(     $t$       x$t),$t$q$t,($t$x$    t),$t$q
10 $t,$t$d$t)"=~/\S/gs);map{                        print(($i=o    rd)<39?
11 chr(10):$i<92?chr(32)x       ($i-39)    :splice      (@b,0,$     i-92))
12 ;}("$d!"=~/\S/gs);     #print(lamb    d  a(z):"Z"+z     [1:3]    )("Lun
13 atic++")""",("""   la    mbda(p)   ,q,x,   d,t:((lambd    a(b     ),z:"
14 ".join([[z[min(  len  (          eval(p)(   b[0:i      +1   ]     )),le
15 n(z))-1],b[i]][  b   [i].iss          pace(         )  ]for       (i)in
16 (range(len(b)))     ])                        )("".jo   in([[     chr(1
17 0),"x"*(ord(i)                                    -39)  ,         chr(3
18 2)*(ord(i)-92)                                       ]     [i  n   t((o
19 rd(i)+13)/53)]                                          for(i  )   in(e
20 val(p)(d))])                          ,ev                  al      (p)(
21 "$d='%s';$p                         =q{%s      }             ;    $x=q{
22 %s};$q=q{                   %     s};$q=~     s/[                \s]//g
23 s;eval''                   .(    $q)x(1);"   %(d,p               ,q,x))
24 ))"""),                   """   $t='"'         x(3)              ;@b=("
25 print(l    a                    mbda(   p        ),               q,z,z
26 z,x,d:    e              v     al(eval(p)         (               q))(p
27 ,q,x,    d,       '      $     t'))(($t$           p               $t),
28 ($t$x   $t)      ,       $     t$q$t,($t         $x$t              ),$t
29 $q$t  ,$t$      d$       t     )"=~/\S/gs        );ma              p{pr
30 int( ($i=o      rd  )    <3   9?chr(10):$i     <92?ch              r(32
31 )x($i-39):s    pl  ic    e(@b,0,$i-92));}("$d!"=~/\S              /gs);
32 #print(lamb    da (z)     :"Z"+z[1:      3])("Lunat              ic++")
33 ""","""~~_!~  s*g!~m1      f!~h.b)f!    ~d-g*e!~`-k        *    e!~,q*d
34 !z,u+c!w,_.n  +c!u?g+        c!r.c+c-c,b!n,g+])f          ,   a+b!l*^+c
35 *a*g+_,a!k)_) ]1d*a-^    *]       ,a!k)]*               c1a  0])`.a!k,^
36 ?c*a,a!jK`)]0a!jN],^)  ]*`!    jQ            a)]*     `!hA  _9^-`!g@a-]
37 4]+a!e:],c,_7b!d:^+e*a6b!c:  _*b0`5b!c+];a*]/^6     a!b+]5],f0]6a!a+^.]
38 -],e2]6`!a*_-].],e0`5`!`)`-^.],f/`5`!`(a-^)]+^   *h,b5`!g+^)^+w5a!g+^(_
39 ,e-f5b!h)c-e+g/]+c!h)c/o1]*e!i(c+^.c6_)f!q)`+^3`,`)g!w)n,o!~h*r!~~_""")

 

15、

 1 %!PS
 2  /;{def                                           }def
 3   /?   {                                       moveto}
 4    ;/+  {                                  exec}   ;/={
 5     pop };                             /!{     lineto};
 6      /*{ }+                           {{    closepath}
 7     +{88 8}                           =   sethsbcolor
 8    fill  };                           { systemdict
 9    }/@   {}                           + {exch};
10   /&{{    8}                          = repeat}
11   ;/#{;    54                       ;   684 ;};
12    +/Seed    /-                  {.8   ; 20};/|
13     {{clip     }               +     newpath 11
14        neg}    ;   /U/D/O/N/G/E  /_{{realtime
15          }ifelse srand       9{U =}&}; - #
16        504 ;{rand 2           31 exp div
17       }; known                       {Seed
18      }_/"        {                       mul}
19     ;/-    {;   0       G          }    ; /'{add
20    };/l   /u   /n /a    /t  /i /c  2   /_{2{ rlineto
21   } };{   U   240 " 60 2. "  ' D div   ;{U}+ 360 " ;
22  1 U .3  "   sub ;}& /: { closepath  | 6{?}+ 0  6  !}; /#{
23 rotate   E   E  scale};/u{u}+{.3( ) =}  + sub(8 )=    ;{  0.6
24 ()=}+ -  O{ {    /y  {}=      }+{@}+{; }+  /z y  i{'    c    "}+
25 sin{-}+  D{dup{  n}    +   '{a "() =}  +  sin z   ' {2    ' 4   div
26   }+ 360  "/x  {            };{ gsave }+  @ y/o{  &{  #}+    -10    5{?
27    4 5} +{!}+ 10{           0}+ !} ; N 2 N  @  {  translate     }o{    4 -5
28       !}+ -10  -5               !{:}+ 0 -6 !{  11  neg}+{-6}{}     = +      !{u
29         1 l  *     0           6.}exec{?  11.0} +   6  lineto{        11.0%(c)omoikane
30        6.0  neg                }{}  exec +{!} +  /o  {   t{1.0{l}+}exec   *};%     ++2008
31        /d  {@ };     true     -6.(  0. )cvi @ lineto{o}+{  (90.)cvi   sin{1.0}+}
32       { (ZUN)  {+             /quit  cvx  def   }forall}ifelse 8{8       div
33      x dup    x  10.{"   -8.}+ '{dup  }+ x    6.{?      0}+ -12{{10}+}+     6.0
34      {_ &}+  -6 {! }+  t{u     }+ sub (8)= " u{  ' 1}+{l}+          *}for -8.5 3.5{?
35     }+ 3{  3.5 }+  {!}+        7 0   {!}+ -8.5 0.0 !      0{0}+{1}+{*}+()       grestore
36     =  }  for      8            =}     for                           showpage

 

16、

 1 %!
 2                      /T/E/W/I/_                        /+{%
 3                    def        }def                  /;{    exec}+
 4                   /'             /&{      repeat}+{;            add
 5                  }+                 /|{;{div};}+/"                 {;
 6                 ()                     pop mul}+/@                   {2
 7                 {                       exch{;};}                     &}
 8                +{                       closepath            }+/!{_ clip
 9                {                       newpath};}+         {rand{2}{31}
10               @{             exp}  |}+/*{;{sethsbcolor}; _{fill};}+/:{;
11               2{         |}'}+/l/u/n/a/t/i/c{10}{7}@ roll{684}+{504}+{54
12               }        +{systemdict};/Seed known{Seed}{realtime}ifelse()
13             pop       srand/?{@ moveto}+{6{{6}{5}@ roll ;}& curveto}+{9};
14          {I{pop      };}&{@ rlineto}+ I{240}"{ 120.}'{E}| +{I{360}"}; +{I}
15         ;{+};{       .2}+{18}+{T}{T}?{E}{0}i{0}  {W}i{E}{neg 0.}i !{l}  {l}@
16         {0}{E}       @{E}"{W{W}"}'{sqrt}   :{/${     {};  exch}+/r{$};{;   def
17         };/x{        r};{t}"{a}'('  zu        n)    pop   cos{60}"{+{0}};     {
18        6{60           }"}@{360};   {l}{  r}@{ {}    ;      atan}|{ceiling
19      }|/z             {gsave }+ 360    {;{x}                  '/y ${+ z};
20      {y}            {cos}@{r}"{T}     '  {E}:               y sin{r}"{T}'
21    {W}              :{translate}      ;  {x{y}             '} ; rotate
22   u{                u};{scale};       {-50}{0}             ?{ -33}{16
23   ;                  }{-23}{25}        {0}{25              }  c{23.}{25.
24   }                    {33}{16}{50}     {0}            c      {33}{-16.}{23
25   }{                   -25}{0}{-25}c                          {-23}{-25}{-33
26    }{                {-16};}{-50}{0}c           !             -60{60}?{120}{
27     90              cos}i{.0}{-120}i             {-120}{     0}i{n}{1}@{.4}* 
28       1{1        }{8}@{{8}| dup{80}"                         {-60}'{50% 2008
29          }?{40}{-100}i{100.}{0}i{0}{                       %(c)omoikane    ++
30          100}i n 1{3}{2}@ roll{.4}"{0.4                 }{'}*}for{ -33     }
31         {.0}?{-25}{10}    {-16}{15    }{0}{15.}c  {16}{15}{25}{
32         10   }{33}{0}c    0. 0{1               }*{grestore};
33              }for     }    for                    showpage

 

17、

 1                                       ($Q=
 2                                 'b  inm   ode  (STDIN);$q=
 3            ##########     "";whi  le(       <>)          {$q
 4           ##        ##.=$_;fo                              r(;
 5           ##        len gth                                  ($
 6           ##      q)>  59               ;      $               q
 7           ##     =s  ub         s      tr      ($      q        ,6 
 8          ###   0)   )   {$      z="";forea     c h$   x(un        pa
 9        ####   ck   "   V      15",  $q  ){$    c  =$  x  %9         0
10       ##     ;$   i=  (      $x  / =9    0)   %9 0;$r =($x/=         9
11       ##     0    )   %     90  ;$n=($x   /=  9     0)%90;$o   =      $
12       ##    x/   90  ;     $z .=p      ack  " C    *",$c+  33  ,      $i
13       ##    +   33   ,     $r+      @@@     33   ,$n   +33 ,$  o+    3 3;
14       #####}p   r    i    nt"       @@@              @@  $  z  \n    "; }
15        ##}$y   =(     4   -l       @@@@             @@@     en gt   h( $q)
16         %4     )       &  3;       @@@@             @@@     $ z="   ";  for
17      eac       h $x    ( unp       @@@              @@@     a c k"  V     *
18 ","$q         \ 0 \     0\ 0"       @@              @@     ){   $c =$
19  x%90;$i=($x/ =9  0)    %9  0                              ;$   r=(
20          $x        /=    9                                 0)  %90
21         ;$          n=   (                                 $x /=
22         9            0)% 90;             $o=$x/           90  ;$
23         z     .=p      ack "C*",          $c+3        3,$i+  33,
24         $  r+3  3,   $n      +33,$o+33          ;}for(;$y   >0;$
25         y--       ){chop$   z;      }print"$z\n";'     )=~s/[
26                    #@   `]//g                   ;;eval "  $Q
27                                                   "x  1;

 

18、

 1                                          /*2008[  */#ifdef/**/j
 2                                    #include<GL/glut.h>/*]>++++[>>[*/
 3                                #include<sys/time.h>/*]<++++>>++<<[->[>+*/
 4                              #include<stdlib.h>/*<<amaneku_sora_no_hate_e>>*/
 5                            typedef double A;typedef void C;A H(A W){return+((rand
 6                          ()&32767)-16384)*W/16384.0;}struct{A/**/K,_,S,h,I,R,A,H,i,M,E;
 7                         }a[512],*b;A D,E,F,i[1024][3],  k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z,KA,NA,TA,_,g,h[1024][+
 8                        3],G,L,M,N,O,P,Q,R,S,MN;typedef    int B;C xz(){glutPostRedisplay();}B
 9                      c,d,e,f;C yz(unsigned char T,B U,      B V){glFlush();exit(0);}A J(A T,A U,A
10                    V,A(W)){x=n*n;y=1.-n;z=y*y; R=2*n*y;       return+ 3*(-z*T+(z-R)*U+(R-x)*V+x*W);}
11                  GLfloat K[4][4]={{1,1,1,1},{0  ,1,-1,0        },{0,-1  ,1,0},{.9,.93,1,.8}};C yx(B W,B
12                V){xz();}A I(A T,A U,A V,A W){x   =T+n*(U         -T  );  y=U+n*(V-U);z=V+n*(W-V);R=x+n*(y-
13               x);S=y+n*(z-y);return R+n*(S-R);     }C xy          (A      X,A Y,A Z,A U,A V,A W){k=Y*W-V*Z;l=
14             U*Z-X*W;m=(X*V)-U*Y;}C zx(){struct      timeval                T;gettimeofday(&T,NULL);g=T.tv_sec+T
15            .tv_usec*(10e-7);}C zy(C){zx();if(g   >=D){_=D;D                 =g +0.5+(rand()&32767)/8192.;E=s;F=t;G
16           =u;N =v;O=s+s-o;P=t+t-p;Q=u+u-q;MN=v  +v-r;for(e                     =0;e++<8;){s=H(128);t=H(128);u=H(128);k=s-E;l=t           -F;m=u-G;if(k*k+l*l+m*
17          m>=  1820)break;}for(e=0;e++<8;){o=H( + 128)*0.4+               s;p  =t+0.4*H(128);q=u+0.4*H(128);k=o-s;l=p-t;m=q-u;if(k*k+l*l+m*m>1820)break;}v=
18         H(L  );r=v+0.4*H(L);}for(n=(g-_)/(D-_);  d-c&&g-a[              (d)]. S>=20;d=(d+1)&511);if(g-a[c].S>=0.05){c=(c+1)&511;a[c].S=g;}b=
19        &a    [c];b->M=I(E,O,o,s);b->E=I(F,P,p,   t);b->K=I             (G,Q,q ,u);b->h=J(E,O,o,s);b->I=J(F,P,p,t);b->R=J(G,Q,q,u);if(
20       (w    =b->h*b->h+b->I*( b->I)+b->R*b->R)    >M){;w=              sqrt (w);b->h/=w;b->I/=w;b->R/=w;}xy(b->h,b->I,b->R,0,0,1);b->A=1;b
21      ->     H=b->i=0.;if((w=k *k+l*l+m*m)>M){w=     sqrt               (w);  b->A=k/w;b->H=l/w;b->i=m/w;}k=b->h;l=b->I;m=b->   R;x=sin(b->_=I(N,
22     MN      ,r,v));y=cos(b->_  );z=1-y;KA=k*l;NA                        =k   *m;TA=l*m;R=b->A;S=b->H;w=b->i;b->A=(z*k*k+y)*R+(      z*KA-m*x)*S+(z*NA
23    +       l*x)*w;b->H=(z*KA+m  *x)*R+(z*l*l+y)*S+                           (z*TA-k*x)*w;b->i=(z*NA-l*x)*R+(z*TA+k*x)*S+(z*m*m            +y)*w;h[e=c*2][0]=a[
24   c        ].M-16*a[c].A;h[e][1]=a[c].E-16*a[c].H;h                          [e][2]=a[c].K-16*a[c].i;h[f=e+1][0]=a[c].M+16*a[c].A                      ;h[f][1]=
25           a[c].E+16*a[c].H;h[f][02]=a[c].K+16*a[c].i;                       xy(a[c].h,a[c].I,a[c].R,a[c].A,a[c].H,a[c].i);i[f][0]=
26          i[e][0]=k;i[f][1]=i[e][1]=l;i[f] [2]=i[e][2]=m                     ;glDrawBuffer(GL_BACK);glClear(GL_COLOR_BUFFER_BIT);f=j(
27        gl,ut,Get)(GLUT_WINDOW_WIDTH);k=l=1    ;e=glutGet(                   GLUT_WINDOW_HEIGHT);w=(f>e)?(k=f/(A)e):(l=e/(A)f);j(glVi,
28       ew,port)(0,0,f,e);glMatrixMode(j(GL_PR,       OJECT,      ION        ));glLoadIdentity();glFrustum(-k,k,-l ,l,10,12800);gluLookAt
29      (0,0,1280,0,0,0,0,1,0);glLightfv(GL_LIGHT0,                         GL_DIFFUSE,*K);glLightfv(GL_LIGHT0,j(GL_   ,SPEC,ULAR),*K);j(gl
30     ,Ligh ,tfv)(GL_LIGHT0,GL_POSITION,K[1]);j(  glL                   ,ight,fv)(GL_LIGHT0,GL_SPOT_DIRECTION,K[ 2]);    glLightModeli(j(G,
31     L_LI  ,GHT_MODEL_TWO_SIDE),GL_TRUE);j(glMa,     ter            ,ialfv)(GL_FRONT_AND_BACK,GL_SPECULAR,K[3]);j(gl,      Materia,lf)(j(GL_
32    ,FRO   ,NT_AND_BACK),GL_SHININESS,4);j(glCol         ,orMa ,terial)(GL_FRONT_AND_BACK,GL_AMBIENT_AND_DIFFUSE);j(gl,      En,able)(j(GL_CO
33   ,LO,    R_MATERIAL));glMatrixMode(GL_MODELVIEW                );glLoadIdentity();glEnableClientState(GL_VERTEX_ARRAY);      j(glEnableClie,
34  ntSta    ,te)(GL_NORMAL_ARRAY);glVertexPointer(                3,GL_DOUBLE,00,h);glNormalPointer(GL_DOUBLE,00,i);glBegin(      GL_QUAD_STRIP)
35  ;j(g     ,lColor,4d)(m=0,0,0,0);for(e=d;e!=c;e=                (e+1)&511){glArrayElement(e*2);glArrayElement(e*2  +1);if(m       <.8)j(glColo,
36 r,4d       )(.4,.5,1,m+=.08);}glEnd();j(glutSwap,               Buff,ers)();glFlush();}B main(B X,char**Y){j(glutI   ,ni,t)(       &X,Y);L=atan2
37 (0,-       1);glutInitDisplayMode(GLUT_RGBA|j(G ,               LUT_,DOUBLE));glutSetWindow(glutCreateWindow("Kan"     "ata")        );X=GL_BLEND
38 ;j(g       ,lutDispl ,ayFunc)(zy);glEnable(X);M =               1e-7;glShadeModel(GL_SMOOTH);glEnable((GL_NORMALIZE     ));;j(         glutKeybo,
39  ard,      Func)(yz  );glutIdleFunc(xz);j (gl,                  ut,  ReshapeFunc)(yx);X=GL_ONE;glEnable(j(GL,_LIGH,       T0));          glEnable
40  (j(G      ,L_LIGHT   ,ING));j(gl,BlendFu ,nc                         )(GL_SRC_ALPHA ,X);srand ((B)g);zx();D=a[0].S        =g-1;          o=H(128
41   );p=      H(128.)    ;q=H(128);r=H(L);s  =                           t=u=N=c=d =0  ;j(gl,u,  tMainLoop)();j(ret,           ur,             n)0;}
42    #/*      ]+++++[     >>+>+>>+>   +<<<<<                               <-]+++ +[    >>>>+<   <<<-]<]<-]>>>++>+++            */               else
43     /*+      +>++*/      #include/*                                       >+++  +     +>->-    --[>  */<math.h>/*              <                  */
44       #      include       /*<]<   [.                                                 <->      +]   [*/<stdio.h>
45        #       define       j(X,                                                                   Y,Z)X##Y##Z
46          #      include       /*                                                                  */__FILE__
47                      /*]       */                                                                #endif

 

19、

 1                                                                     #ifdef/**/N
 2                                                             /*2008[*/#include<stdlib.h>
 3                                                 /*<>koko_ni_mebuke,<>*/#include<sys/time.h>
 4                                             /*]>+++++inochi_no_hana++++<[*/#include<GL/glut.h>
 5                                          typedef double _;typedef int s;typedef void r;struct{_ K
 6                                        ,S,h,I,R,A,H,i,M,E,_;}W[512],*X;_ m,n[1024][3],o[1024][3],R,
 7                                      KO,NA,TA,q,p,j,i,h,g,f,e,d,c,b,a,P,O,NM,M,L,K,J,I,H,G,F,E,D,C,B,A,
 8                                     Q;s Y,Z,k,l;_ T(_ y){return y*((rand()&32767)-16384)/16384.0;}_ U(_
 9                                   w,_ x,_ y,_ z){e=w+j*(x-w);f=x+j*(y-x);g=y+j*(z-y);h=e+j*(f-e);i=f+j*(
10                                  g-f);return(i-h)*j+h;}r zx(r){ glutPostRedisplay();}r xz(){struct timeval
11                                 t;gettimeofday(&t,NULL);m=1e-6*   t.tv_usec+t.tv_sec;}GLfloat S[4][4]={{1,1
12                                ,1,1},{0,1,-1,0},{0,-1,1,0},{1,     .9,.9,.8}};r zy(unsigned char z,s y,s x){
13                               glFlush();exit(0);}r xy(s y,s x       ){zx();}_ V(_ w,_ x,_ y,_ z){e=j*j;f=1-j;
14                               g=f*f;h=2*j*f;return 3*(-g*w+(g        -h)*x+(h-e)*y+e*z);}r yx(_ t,_ u,_ v,_ w,
15                              _ x,_ y){a=u*y-x*v;b=w*v-t*y;c=          t*x-w*u;}r yz(r){xz();if(m>=q){p=q;q=m+.5
16                              +(rand()&32767)/8192.;A=D;E=H;I          =L;M=P;B=D+D-C;F=H+H-G;J=L+L-K;NM=P+P-O;D=
17                             T(128);H=T(128);L=T(128);C=D+0.4           *T(128);G =H+0.4*T(128);K=L+0.4*T(128);P=T(
18                             Q);O=P+0.4*T(Q);}for(j=(m-p)/(q-           p);Z-Y&&m -W[Z].S>=30;Z=(Z+1)&511);if(m-W[Y]
19                            .S>=0.06){Y=(Y+1)&0777;W[Y].S=m;}           X=&W[Y];X ->K=U(A,B,C,D);X->M=U(E,F,G,H);X->E
20                            =U(I,J,K,L);;X->  R=V(A, B,C,D);X           ->h=V(E,F ,G,H);X->I=V(I,J,K,L);if((d=X->R*X->
21                            R+X->h*X->h+X->I  *X->I) >R){X->R=          X->R/( d  =sqrt(d));X->h/=d;X->I/=d;};yx(X->R,X
22                           ->h,X->I,0,0,1);X   ->i=1  ;X->A =X          ->H=0  ;  if ((d=a*a+b*b+c*c)>R){;d=sqrt(d);X->
23                          i=a/d;X->A=b/d;X->   H=c/d  ;}a=X  ->         R;b=   X  ->  h;c=X->I;e=sin(X->_=U(M,NM,O,P));f
24                         =cos(X->_);g=1-f;KO    =a*b;  NA=a   *         c;h       =   X->i;TA=b*c;i=X->A;d=X->H;X->i=(g*a
25                        *a+f)*h+(g*KO-c*e)*i     +(g    *NA    +       b*e       )    *d;X->A=(g*KO+c*e)*h+(g*b*b+f)*i+(g*
26                       TA-a*e)*d;X->H=(g*NA-      b*    e)*                           h+(g*TA+a*e)*i+(g*c*c+f)*d;n[k=Y*2][0
27                      ]=W[Y].K-16*W[Y].i ;n[       k]    [1]              =W[Y].M-16*W[Y].A;n[k][2]=W[Y].E-16*W[Y].H;n[l=k+1
28                     ][0]=W[Y].K+16*W[Y]. i;     n  [     l]             [1          ]=W[Y].M+16*W[Y]. A;n[l][2]=W[Y].E+16*W[
29                    Y].H;yx(W[Y].R,W[Y].h  ,W[Y].I,W[Y                               ].i,W[Y].A,W[Y].H  );o[l][0]=o[k][0]=a;o[
30                  l][1]=o[k][1]=b;o[l][2]=  o[                                       k][2]=c;N(glDraw, Buf,fer)(GL_BACK);N(gl,C
31            ,lear)(GL_COLOR_BUFFER_BIT);b=c                                          =1;k=glutGet(GLUT_WINDOW_WIDTH);l=glutGet(
32    GLUT_WINDOW_HEIGHT);d=(k>l)?(b=k/(_)l):                                         (c=l/(_)k);glViewport(0,0,k,l);glMatrixMode(
33  GL_PROJECTION);glLoadIdentity();glFrustum(                                       -b,b,-c,c,10,12800);gluLookAt(1280*sin(fmod(m*
34 0.1,2*Q)),0,1280*cos (fmod(m*0.1,2*Q)),0,0,0                                     ,0,1,  0);glLightfv(GL_LIGHT0,GL_DIFFUSE,*S);N(gl
35 ,Light,fv)(GL_LIGHT0,GL_SPECULAR,*S);glLightfv(                                 N(GL    ,_LIGH,T0),GL_POSITION,S[1]);glLightfv(N(G,
36 L_LIGHT, 0),GL_SPOT_DIRECTION,S[2]);glLightModeli(                             N(      G,L_LIGHT_MODEL_T,WO_SIDE),GL_TRUE);N(glMate,
37  rialf,  v)(GL_FRONT_AND_BACK,GL_SPECULAR,S[3])                                     ;glMaterialf(GL_FRONT_AND_BACK,N(GL_ ,SHININ,ESS)
38   ,4.);  glEnable(GL_COLOR_MATERIAL);N(glColorMa,            teria,              l)(    GL_FRONT_AND_BACK,GL_AMBIENT_AND_DIFFUSE);N(glMa,
39     trix ,Mode)(GL_MODELVIEW);{glEnableClientState(N(          GL_            ,VE       ,RTEX_ARRAY));glLoadIdentity();} ; glEnableClientState(
40        GL_NORMAL_ARRAY);glVertexPointer(3,GL_DOUBLE,0,n);                 N(g,          lNormal,Pointer)(GL_DOUBLE,0,o);N(  glBe,
41          gi,n)(GL_QUAD_STRIP);glColor4d(a=0,0,0,0.);for(k=Z;k         !=Y;k             =(k+1)&511){glArrayElement(k*2);N(gl  ,Arra
42         ,yElement)(k*2+1);if(a<0.8)glColor4d(1,0.53,0.67,a+=0.04);}glEnd               ();N(glut,Swap,Buffers)();glFlush();}s main(s y
43        ,char**x){glutInit(&y,x);{N(glut,Init,DisplayMode)(GLUT_RGBA|N(GL,              UT_DO,UBLE));};{y=N(gl, utCreateW, indow)(
44       "Konata");};{N(glut,Set,Window)(y);};{Q=atan2(0,-1);};{R=N(0.0,000,             01);};{N(glu ,tDisplay, Func)  (yz   );};{
45       N(glut,Idle,Func)(zx);};{N(glut,Reshape,Func)(xy);} ;{N(glutKeyboard,            Fun,c)/*]>[- <[  ++*/(   zy)   ;};    {N(
46       gl,Ena,ble)(N(GL_L,IGHT,ING));};{N(gl,Ena, ble)(N(G ,L_LIG ,HT0));  }            ;N(glBlend,  F,  unc)(   N(    GL     ,_
47       ,SRC_ALPHA),GL_ONE);glEnable(GL_NORMALIZE); N(glSha ,deMod ,el)(    N           (G ,L_SMOOT,  H)  );
48        glEnable(GL_BLEND);xz();srand((s)m);q=W[0].  S=m-1;C= T(  128      )           ; G=T(128);   K
49          =T(128);O=T(Q);D=H=L=M=Y =Z=0;glutMainLoop(  );N(   r                       ,  etu,rn)0   ;}
50         /*]>>>   +++++++++>++++*/  #else /*++ ++<  <+<  ]>                             >----.++>   */
51         /**/#     include<stdio.h>  /*--         -                                     .<+++.++   */
52        #/*+*/      include/*.<  +<[  */                                               <math.h>
53        #define      N(x,y ,z)      x                                                  ##y##z
54         #include       /* ]>        .                                                */\
55           __FILE__
56               #endif

 

20、

 1                                                                                #include<stdio.h>
 2                                                                         char*p[]={"~~~&&|||uz.)t}y{{}}5"
 3                                                                      ,"&?***L*vK+L&u*({{{}r^*&H-wvy{pqK+L&^\
 4                                                                   +.{{s^F&P'wv{x~~K.~tr^X2^E&&&x^*&|}K.~sL*_%.\
 5                                                                 U+^H&_S,N,wu{`C6~tsr|O/~}x|}_E&M3w}{}aM&{}^D0t}v\
 6                                                               yb'78'sq_,(R-w||^D7aZ*vqw|bW(T*bG'`*)cT&&&^'&a*+{c8&^"
 7                                                             ,"N&v{{rU'}}&&}r^S+{scU*c@+pb0(ty_-&{{|v^?'_M'''|}{Z+^<&"
 8                                                           ,"`)'Z-2*`H)_;(|}^Z'r|X)|v}{{w}`=+_T)`*+g*&-)yxpaL&w}xzw}g;&\
 9                                                 _@'b8,fY'aU'^4(aY*f3(_,'p}^O'eW'}}_;+pyf0)e%4w^>'U)L)U,g8-fK0_I&J(hQ6i@"
10                                          ,"'c-(_D+a:)_%(`@'g@-^<,d%&_@1b8+`C'iS.dV,hU)e4,^U.v{gI.c#&jJ4g+0d&&h?/h=7`<1h@/"
11                                    ,"R(wvkF5`:)d(&_U&^K/vyw|}{fZ&9&o=-`:*d;,tcS-}}n9(rh$(dO*`<(cD-e4+c%.g('mF(+&nM-d%*^Q&c\
12                               ('aY&<(c6-_V,_&&^P)s}_W&z~w|F&gO'jU'`P&iN,c4-{sruza0'^#+a&&m=6O(bH0o7&c:<}un'-d0?^`A&i''P/O:"
13                           ,"cK'h4(lR'P+lN+_Z6m#'`?(sqQ+^&'h(,v}^R(sjJ(hS-prQ*m='^e+(l>(_F7l+&lB,c&(_'(kB(M2v9(Q-^`G7^c$)mS)"
14                       ,"_$(Q-_$._8)K(o1&kK'e.*n(,l3.hD(aF&g8'v_$(t_**n$,^c:(^Q,c0(ts^a+)`6-^E+^h=.s}a$4dQ*c:+^gQ+m$;eU&eN,O@"
15                    ,"^e,&k%.o73mH/l'.c[+c-2f7(^i.0^  bT)s}^f0*eK'D3^hV4^b6-^i;8^]Q&^kM1^_&-f@._(&^oK'K0m<(v}|w^h%(6+e,'m8(jI"
16                  ,"/^`I+txcU+b-&prnC(m:-n%9srf<"     "&t{^^E'ruk%+n(<t{g<+k%'a;(iC&    ^]R&b5(^H7^g5,^E(^b4(_`P1_Y&hV,g>*p}i:"
17               ,"(P'iP&_%-^dT*b0&^hI0Q(jL(^Y"         "'o7(bK/u{_J*^G)Q(^c4)^f-+^      I*^ Z'^gH-F(_;&k$&^#'_dI$$$$$`S3u~_^;-^"
18             "F(pqw}P(c=)`./^m:(^^X0}x^"              "D'G+oP*_dX*^W.m?(_^W&`Z&  jW.   ^9'c<4  ^^G(w}lC'l=BM*_^3(c+1L7_/&jE)^m"
19           "63iE._W,^m-+e1._`?2pypy                   mW._i2)^mZ.bX,_^0)iX&kE4__74d<&_aB(h6&   mEB^`U,_bC&^oI0O;d.(^]72^S'uwul\
20         Q-`S(}q_hU&<&l<-`Z*b#                        'l4    &a&+^3/_:&oA*R&_ cY(dN *mN'^nG    -_`&(_j E*_ ]&&oK'_4&_hS)lH'||^"
21        ,"d'+^m&2nN+_hF'zw^                          m2 &J,p}^i*.a<<e$'|z^G  /_dO)^d' @^c)     '^V&cZ&s}^`  :0^j=)gY>d0'y}|aD'n\
22      Q&^b(0^h*)_gC,h8                               :^      _B'cD)^mC-_kQ  ,_f#/`.6_ b?-     _k8(hI&utj/:  _Z(S,j<'j@(^iP-^mT",
23     ")S1_B,n[(^_='                                 ^b       2.t{ ^dJ(T9    iV&i52_h[ (`      d23_k#-T'^_    (4[(^a#/a2-^1+l9&`g&\
24    -eX&_jY/_mC                                     0^       nK.   ^g@*     bX@cG3g:  *_     T/_n60d>@Q4^bX)f9>o62n-&R:^jQ'o53^_B8"
25   ,"^n[6`k%                                        +^        _    D-`b        #(z    "      ,NULL},** M,*a,*K,A [9999]="/)(b9`.d,'"
26  "P\n\"o8                                           08       4     28                      ";int x , S,O,U,L [] ={16,1174,2084,3115+
27 /*0w0                                                */2                                   ,4197   , 7};char z  [0xffff];void h(){for
28 (O                                                    =0;*a>                              92;        ++a)O=    O*19+*a-93;O=O*57+*a++
29                                                           -35;}                                       void    q(){for(K=z;*M;M++)for(a
30                                                              =*                         M;*                  a;a++  )if(*a>32&&*a<127)
31                                                              *K                        ++=                   *a;*    K= 0;a=z;}int main
32                                                               /*                                            */      (    int(Z),char**i
33                                                                ){                                          ;M             =p;q();for(K=
34                                                                 A+                                        16               ;*a;M=i+1)if
35                                                                  (*              a>                      3*                 37){*K++=A
36                                                                   [*a              ++-111]              ;}                 else{h();S
37                                                                     =O;                               for                 (h();O--;
38                                                                       K++                           )*K               =K[-S];}q();
39                                                                         for(                    U=-81            ;*a;a++)U=(U<<
40                                                                            04)^          (U<<1)^*           a;U=(U>>9)&3;A[L[
41                                                                               U+1]]=0;return             puts(A+L[U]);{
42                                                                                                         ;};}

 

21、

 1                                               $n         ='DAngoDang
 2                                              oDaNG    ODanG        oDA]N
 3                                             GoD ang o Da               ngoD
 4                                             ]AN GoDang                    oDan
 5                                            goD   ang                         oDa
 6                                       nGoDAngoDa nGo D:anGoDaN                gOD
 7                              angoDanG     oDA   ngoD           Ang             oD
 8                           An     go       DaN                      go          Da
 9                         n      gO    DA   NGO                 DAng    oDa      ng
10                       oD     An   go      daN    g                oDaN    G]O  Da
11                      N     go   da        Ngo    D  an          G    oDaN     gOD
12                    an    Go  DA   ng   o  DAn    g  OD a   N g    o     DanG  ]ODaN
13                   g     o  da   Ngo  Da   nGoD   a   Ng O   D a    nGo    D  Ang    oD
14                  a     nGo    DAn   G     ODa    n   Go  d   a Ng   o[D     AngOD     a]
15                 [    Ngo    Dan   G     o DaN    G   OD  a    N go   Da n   goD   an    go
16                D    An   gO  D   a    Ng   oD   a    n G O     D aN   go D ang o   DaN    g
17                o   D   Ang  o   D    a    ngoD  a    N g  o     DanG   oD ang   O    Da    n
18               G  oD  an g  O   D   an    go Da n     g o  D     a n G   oDan     go   Dan   G
19               o ]  Da  n  G   o   D     An   go     D  a  n      g oD  ang  O     DA   N g   o
20              D  A n   g  o   D   A     ng    OD     A N   G      O D Ang O   D     a   n  g  o
21              D aNgo   D a   N   G     o     d An   g  O   d      A NGOD   A  n     go   D  A n
22             g  o  D  A  N   G  O     [     D   a Ngo D   aN     g oDAN    g  O     DA   [   ]N
23            g      O  D A    N gO   DAN   GO    DA n  g   OD    aNg  oD   an  g     oD  a    N'
24            ;    $t=  ' `   -  S  U\i   SDO   K%   \ =   . !   lI   J$R   l   5    4#"  G
25           m      D_  W _   m N[  W F  n <  5/    )]lQ BJ  ^  m H  G \K   4   \    _ W A
26          q       JJ&T `0S  QAqL J & T  -\IJ     $S uH5    C<y  T X  J\  wK  J    $  T`
27         9       SU E`"CVT   `  5S V^ oE6        M  K     <KY\2!-=  "4` 2S  U    \   o
28        R       ]MG`"C VF_E  :Z ^  |Z3!2=lE                 7Z__E7[]p ZJ>  Do H5
29      C9       yIJ   >B`5GHG  `  8RC;                               {E >]K5HU!
30     2        =lE    6Z    __ E  6                                    [X}ZJ?  Do
31    H        5C:    yIJ      ?B                                       `      2G HK
32   (        ZJ$R    ` 9       C.                                      !        0I J4
33  F       _E4IR    8   ,3      F                  C6y\45             :O         K0J J
34  6      FbG/     %    < lE                        6JK7             H  RV        _ {R]]
35 G      ` 4D     C     : o E8MK2_                                  _    ;3l       E  7YK
36 0     L [J    ]      n E  /    AI`                              8R     Z  K0     L    \J
37 ]    n E /   A     Ie IJ  $    D rGHC                         ,bG      J    $    D     q
38  G  HC ,i   P    GN  P   w   ST  T  \mHU                   :K>  O     SE3   *C   U
39  :  K>yIJ  =   R: 8A   F@   <   N   G    \K*            \IC     !     y 0   5@   A
40   ` /@@L  c   9FC   ,i-   +)  (0   ) F        C!mL\QFjF3       \     K  *   \ 0 4
41   @8 2AH (   _  $8&    #`/  U@   T`  8                 S     WT    ".   <  " .8,
42    E 6OK>   \0HA   k&=N4432    3:  @7c                 $?C7{ 2  ;%      < 0  3F
43       C ! hE 7   LDhPG]   K<Z3';$n                          =~         s/[
44         ]//g ; ;$t=~s/[                                               ss
45        ]//g  ;eval ($n
46              ^= $t)
47                  ;

 

22、

 1                                        char*
 2                                      c[]={"'\
 3                                      x)/d)k^4\
 4                                      9943X)|)/\
 5                                      p)q^49943X\
 6                            )/l>lkq  -Z,)i>*/-100\
 7                           ,P/*&lkfipa`*/+jhjlndk`\
 8                           +konpaku_youmu+/7552/2/\
 9                           *9vqalj+m;*/myon~//ZUN/*\
10                           sjla_-,~i8i(61>cjw->i((>\
11                     /d..867,>xlkq*//*hdlk-,~d8k>|80\
12                   >cjw-p8f^0X>/p>p..,lc-/p(67,~cjw-\
13                  l8f^/p(<=X>/l>l..,lc-67(/l,/d..8/l[\
14                 |>|[80>xZ8i>p8k>d8q>l8f^.7**//*7*/3-\
15                 =l=u=n=a=t=i=c=//*X>cjw->/l>..l,~lc-\
16                 -i8/l,;<6,~i8-i.(<1,/1.7>cjw-Z83>Z((>\
17               /d..8--i8i*7,#4,:-|[8-61(/p,:5?4,:/p..?/p..?1/=,\
18               >xlc-i;33,~i8-i(30,>cjw->((i>/d..8/p..,|[8/p(61:5?4>\
19               x>lc-i;61,_-,>lc-6688i,~lc-|,~/((d8<7>d.          .>p((>x/d..845>xx\
20              >*/9/+100+saigyouji_yuyuko+/*/d85>w`qpwk.             upqv-q,>x","B)G!B'J!B'K\
21     !B'L!B'M!=I$O!<Z!<Z!<[!<[!6[I!4[K!3[M!2[N!2[N!2[O!0[Z!0[[E                        !0[Q,T!/\
22    [R/Z!&[[J:K!%[R0K&m1I!'[J<X,}!([FB1K*G!)[              B:}*F!)YB    ?m)E!                +U-aB3\
23      e'F!,R,mB8a'E!/M,m#aB4a'E!2}-}#qz                          %a^#_:a(E!3e*I#q{$e#a$          a#^4a\
24       (E!2a)u{$yz%mwn^._a'E!1a^uy{#                                               qomwo_.a#        a'E!\
25        0aaqy{#a_{qa#a+{'a'E!/aqy                                                        J${%ay        um%\
26        _a#q^e(E!/owzJ#y%aqmyvn                                                             ^w(a'        E!\
27          .qwzJ$}$e#qmynn_y(e           (E!                                                    -qwz       K$}\
28           $e#omqoo_y^m(E!-          q{|K$                                                       }#m        #a\
29              L$aaa#y^#m(          E!-w|  #P#                                                     I#m        #a\
30                 L%oo_y           ^#}(E! ,qW  $I  #m#   a#K   %      yq                            _w^         #}\
31                  )D!,          yL#L#Q# a#u  ayq q{_  #y^#   E!,     yyy    u                       y#J         $}\
32                 &ue          K#m# ya% w(E  !,J $e}  %m#   J#}'q qI  $m#    K(                 w^    #D!        ,P\
33                #}&   X     'aqu mO(w ^#D! ,L# {d$  m$P   (_wV#a %o  ^#E!   ,K&                u_e    #qJ        3X\
34               $_$   o_#   E!+  ea#m ae#_ #K2 _R$   _$    o_ #E!)m#  a#}#    ae#            aK 3nq     L$_        #a\
35              a$E   !(a  e$y$ aa#P9_#L$_  #a eC$   D!'   ae$ yz%_$O 9aM#a$    au    C$D    !&a  m%     wz%_        %M\
36              :S   #a$  _uD  #D!&oe$qwv* J<R $a   #a#   J#D  !%qm$a qo^ B(Q   $a#    a#     M!  $q      {%a        _o\
37             ^B*  J$q  n_#  M!$oz$a#_q_  B4on_N  !#qw   z&o  q_B3qo _#N !#w    wz    v%e    #_B 3o      o_O!        qq\
38            wqv  q_0  _(_  1aoa#O!y_{qv  q_1N5a  ae#P   !y   a{q{#q aB.  a#q   e#K   #F!    K%L #yz     $mB,e       $q\
39            e#K  %E! maL# yz$IB(}%m}$K&  E!m#oO #eq{a  =K$   }#O$_#E!m#  aO#   m#q   nK4    N%V ,E!      #e#uU       $y\
40            ^%  [D# }$O# I,E!#e$yQ#y{4} ,m#O$I! #e%yP  $J#   a?mmI%}!$a   %M   #I%   J#_    =ua I%}      !$a&L%      m&\
41           L>u  a#I$}!%^'K%m&ye9K'I$G!  2o'e&va 6K+eE  !>a    *m6I-E!?a   *e4 }!@^*  e2}    !B  0^/      F!BB#E       !\
42           BBD ","BB1F!BB0G !BB/}!BB.y C!BB-eE!BB,e#E! BB+    e$E! BB+a   %E! BB*a&  E!BB  )a' E!BB(     a)E !BB      'a\
43           *E! BB&a, E!BB% a-E!BB $a/E !B B#a0F!BB  a2E!BA    a4E! B@a6E  !B-W:O!B& [D)P'  U!? O3a$U      &e  )K      !=\
44           J9a#I*I&  e-J!  <e;a}/   m'e/I  !:e<a#m& a&e'e2     G!9  a<a#  m%}(e)e2  G!7e<  e%m%I&m,e      2F  !6e      <\
45           e&m&P/e3F!5a;e (}'N2e    2F!4a;e*}*m5e2F!3a:e-[     C0a   2F!  2a:e0 [E-a3F !1a9e7I*K-a4F      !0  a8e      B\
46           -a+e6F!/e8 eB >a7F !/    a7a*W   6e)a8F!.a0[D,M      ,O    'a  &N)F!.a*[F7I$K'I$[F#F! -a(      I$   JB      *K\
47           0P1M!-a%}    %O&K 'IB    )e<}   !.a  #e#}*K&uK                 B5K/F!/uoe,m)I'e'K&K2S  -E      !0   }$e     .e\
48          +e([  R'm    ,m+E! 1ua   .a+e   .I     )e*R1e)E!                ,J    $a/a+a0})a,eI3a&  F!      )J   &a/     a+\
49        e4e'a  ,e%    e0a&E! 'e*   a/a*   J4a   &a.a%e.e%                 E    !&a*  a0a)N0e(a.a  %a     .a#   E!%     a+\
50       a0a   'R-m    *a- e&  a-a   E!$    a-a.a'U*},e-a&                       a,     qD!%e+e/a%  m.     e&J   +}-a  '  a\
51      +uD   !&}*    e.e %m0  e#}   $e      &ye(a(e+yC!)a                       &}.   m%m2qm&em%I &m*     e)u   E!*a $y  _\
52     'I%   m3ya(    J+  eM'  e)u   E!       *e#ea&K%m#N                        &I.}'L#Q%a(K!+eaa $L%     Y#    }/m# X&M ,\
53     K!   -}%e#    I#a  #I#  a#Q   /u        eR+J0I!/                          a#q}$e#m%_$P3aa$  L,L    1F!    .a#qm%ae %\
54    a%P  3^_%K,   eI0   E!-  a#q   e%                                           am&e$M7^a$L,e$L  ,E!    ,a$    ya%ue&U=T-\
55   a%P  &E! +a$   y_'   L'    U=   T-                                             e'P$E!*a  %y_  (M    %U>     R.e'eK#E!(\
56   e&   K.  em#  S@Q    /e    'a$  K!'                                                      e&   K7    mPB    #Q.e'e&}!&a\
57  &qe  7eL  B'O  /e'    a$   }!%a  &am                                                     :aB  9e,   m'e     #G!$a%e%m:a\
58  B8  m,}(  uE!  $a$e   'm   9aB7   I-                                                     m(   E!$   ae,    a6aB5ee*}(F!\
59 %y_  ,a4a  B6a  $a(m)  F!   %}2a2  e3a                  (a          4e                   &e'   m)   G!&m    0m2e5O8a&e&}\
60 *G! 'a#_    (m 2eB8a$  }&   K)G!'  aa(                   }3mB8a#m%I#a                   %}!   'ae   (m4I   B3}$}%I%a%G!'\
61 qe' I5JB.   J$ }%K$a#  }!' L(L 4LB  'N#I                                               $L$    a}!  %J$a#   I$a1P=K$m Q%y\
62 |D!$uooI$   m1J#Q(R'eP 'N! #J&  qK$  }/K*Z                                           ,aP)    J!I  (y{O(   weB.qO+G!   }(\
63 y^R$M B1y   }%e*E!#e&I *[C B2J  *E!  #a%J-XB                                      4}!,J1   SB6F! ,K5LB9  C!.K","fm    dw\
64 /f^X8  ~'   ","')'","ebfcf dfef  ffg  b"} ,*a,n[                              1<<16],y,  *u,t[1 <<16],*i;int(  _)     ,l;
65 /*(45  5)U   */#include/*. omoik  ane  .n    jkudnpZ|jp                  hp.*2007*7*/   <stdio.h>/*h|jk{**_P          K*/
66  void   Z(){ l=l-34;for(;l--;*a++  =32 );}        int/**/main(){a=n;y=5;for(u =c[5];  *u;u++)if(*u- 32){for          (i=
67  c[*u    -98 ];*i;i++)if(32-*i )*a ++=* i^y                  ;y^=5;          }_=l;  u=n;a=t;i=c[+  2//**/2
68  /*6(     8i8 p8k8d8q8l8f8**/]  ;for(;*i ;++                                i){if ((l=* i)>93){   l=(l+-
69   94)      *4+2;for(_= 6;_--;*   a++=((l= l/                               2)&1 )?(y   ^=(34-*   u)?0:1
70   )?*       u++:*u++:4   *8);}     if(l>66){l                            =(l- 65);    for(;--  l;*a++
71    =          *u++)y^=*   u-34?     0:1 ;};if(                         l>34)Z();     if(33==  l){if
72                 (y   )     {*--      a   =92;a                       ++;u--;}*         a++=  10;
73                             }};           /*<*.                     455.vdl           b|j
74                              pol           Z|p|                    pnj.*/
75                               *             a=0;                  return
76                                               +                  puts
77                                                                  (t)
78                                                                 ;}

 

23、

 1                                                                                char
 2                                                                               *c[]=
 3                                                                              {"'x)\
 4                                                                             /d) k^\
 5                                                                            4994  3X\
 6                                                                           )|)/   p)\
 7                                                                          q^49    94\
 8                                                                          3X)      /l\
 9                                                                         >lk       q-\
10                                                                        Z,)        i>\
11                                                                       */-          10\
12                                                                      0,P           /*\
13                                                                     &lk             fi\
14                                                                    pa`              */\
15                                                                   +jh                jl\
16                                                                  ndk                 `+k\
17                                                                 onp                   ak\
18                                                                u_y                     ou\
19                                                               mu+                       /7\
20                                            552/2/*9vqalj+m;*/myo                        n~//ZUN/*sjl\
21                                     a_-,~i8i(61>cjw->i((>/d..86       7,>xlkq*//*hdl     k-,~d8k>|80>cjw-p8\
22                              f^0X>/p>p..,l                 c-/     p(67,~cjw-l8f^/p(<=    X>/l         >l..,lc-\
23                            67(/l,/d                       ..8    /l[|>|[        80>xZ8i    >p8k             >d8q>l8\
24                           f^.7                           **/   /*7*/3             -=l=u      =n=a               =t=i=c\
25                         =//*                            X>c    jw->/     l>.       .l,~       lc--                  i8/l\
26                        ,;<                             6,~    i8-i.    (<1,/1      .7>c         jw-Z                  83>Z\
27                      ((>/                            d..8     --i8i    *7,#4,:    -|[8-           61(/                  p,:\
28                     5?4,                            :/p.      .?/p.     .?1/=,>xlc-i;3             3,~i                   8-i\
29                    (30                            ,>cj        w->((i     >/d..8/p..,|                [8/p                  (61\
30                   :5?                            4>x>          lc-i;6        1,_-,                    >lc-                  668\
31                  8i,                           ~lc-             |,~/((d8<7>d..>p((>x/d..84              5>x                   x>*\
32                 /9/                           +100                +saigyouji_yuyuko+/*/d85>w`q           pwk                    .up\
33                qv-                          q,>x                       ","B)G!        B'J!B'K!B           'L!                     B'M\
34               !=I                         $O!<                                             Z!<            Z!<[                      !<[\
35              !6[I                        !4[K                                                              !3[                        M!2\
36              [N!                        2[N           !2[O!0[Z!0[[E!0[Q,T!/                    [R/Z         !&[                         [J:\
37             K!%                 [R0K&m1I!'[J<X,}!([FB1K*G!)          [B:}*F!)YB?          m)E!+U-aB3e'F     !,R       ,mB8a'E!/M,m       #aB\
38             4a'           E!2}-}#qz%a^#_:a(E!3e*I#q{$e#                     a$a#^4a  (E!2a)u{$     yz%mwn^  ._a'E!1a^uy{#qomwo_.a#a'E!0aa qy{\
39            #a_         {qa#a+{  'a'E!/aq                                        yJ${%ayum              %_a#q^e(E!/owz               J#y%aqmyvn\
40            ^w(      a'E!.q   wzJ$}$e#qmynn    _y(e(E!-q     wzK$}$e                                       #omq                            oo_y^\
41             m(E    !-q{   |K$}#m        #aL$aaa#y    ^#m( E!-w|#P#I#                                                   m#aL%oo_y             ^#}\
42              (E!, qW$   I#m#a            #K%yq        _w^#})D     !,yL       #L#Q#a#ua    yqq{_#y^#                E!,yyyuy#J$}&ueK#           m#\
43               ya%w(E  !,J$              e}%m           #J#}        'qqI$m#K(w^#D!,P#}&X'aqumO(w^#D!,L#{d$m$P     (_wV#           a%o^#          E!\
44                ,K&u _e#q               J3X            $_$o              _#E!+ea       #mae          #_#K2_R$_$o_#E!)               m#a#         }#\
45           ae#aK3nq  L$_                #aa            $E!                 (ae$y$       aa#             P9_#  L$_#aeC                 $D!       'ae\
46        $yz%_$O9    aM#                a$a            uC$D                    !&am       %wz             %_%M     :S#a                $_u       D#\
47      D!&o          e$q                wv*           J<R$a#a#                  J#D       !%q               m$a      qo^B              (Q$a     #a\
48     #M!           $q{                 %a_          o^B*J$qn_#M!              $oz$        a#_               q_B      4on               _N!    #q\
49    wz&            oq_                 B3q        o_#N!#wwzv%e#_B3           oo_O!         qqw              qvq_      0_(              _1a   oa\
50   #O!              y_{               qvq        _1N5aae#P!ya{q{#qaB        .a#qe#          K#F!             K%L       #yz             $mB  ,e\
51    $qe#           K%E!               maL      #yz$I             B(}%      m}$K&E!m         #oO#eq           {a=        K$}            #O$_ #E\
52     !m#aO#        m#qn              K4N%     V,E!#               e#uU   $y^%[D  #}$O      #I, E!#e$y        Q#y         {4},           m#O $I\
53        !#e       %yP$J#            a?mmI    %}!$a                 %M#  I%J#_=     uaI%  }!$a&    L%m&L>u    a#I$}         !%^'         K%m& ye9\
54         K'I     $G! 2o'e         &va6K+e   E!>a*                  m6I -E!?a         *e4}!@^*         e2}!  B0^/F!BB#E!     BBD"         ,"BB 1F!\
55         BB0G   !BB/  }!B       B.yC!BB-e   E!BB,  e#E!BB+e$E!B    B+a%E!B            B*a&E!     BB)a'E!BB( a)E!BB'a*E!BB&a   ,E!         BB%a-E!B\
56          B$a/  E!B   B#a     0F!BBa2E!B   Aa4E!B@a6E!B-W:O!B&[D)P 'U!?O3             a$U&e  )K!=J9a#I*I&e-J!<e;a}/    m'e/I!:e<a#          m&a&e'e2\
57            G!9a<a   #m%}   (e)e2G! 7e<    e%m%I&m ,e2    F!6e<e&m&P/e3F!             5a;e (}'N2  e2F!4a;e*}*m5e2F         !3a:e-[C              0a2F!2\
58              a:e    0[E  -a3F!1a  9e7I   *K-a4    F!      0a8eB-a+e6F!/e                 8eB   >a7     F!/a7a*W6e          )a8F!.a0[D               ,M,\
59             O'a    &N)  F!.a*[    F7I   $K'I     $[F      #F!-a(I$JB*K0P                 1     M!       -a%}%O&K'          IB)e  <}!.a#e              #}\
60            *K&    uKB  5K/F!     /uo   e,m)I     'e'K    &K2S-E!0}$e                     .     e+e     ([R'm,m+E!          1ua.    a+e.I)e*R1          e)\
61           E!,     J$a /a+a0      })a, eI3a&      F!)J&a/a+e4e'a,e%e0                           a&E!'e*a/a*J4a&a.a           %e.      e%E!&a*a0a)N0e    (a\
62          .a%     a.a #E!%         a+a0a'R-m*     a-e&a-aE!$a-a.a'U*}                           ,e-a&a,qD!%e+e/a%m           .e&J       +}-a'a+uD!&}*e  .e\
63         %m0      e#} $e&y          e(a(e+yC!)a   &}.m%m2qm&em%I&m*e)                            uE!*a$y_'I%m3ya(            J+eM       'e)u  E!*e#ea&K %m\
64       #N&I      .}'L#Q%a(            K!+e  aa$L%  Y#}/m#X&M,K!-}%e#                              I#a#I#a#Q/ueR+J             0I!/       a#q     }$e#m%_$\
65      P3aa      $L,L1F!.a                     #qm%a e%a%P3^_%K,eI0                                 E!-a#qe%am&e$M7            ^a$L       ,e$L      ,E!,a\
66     $ya       %ue  &U=T-                       a%P&  E!+a$y_'L'                                     U=T-e'P$E!*a%             y_(M       %U>     R.e'e\
67    K#E       !(e   &K.em                         #S@                                                          Q/e'            a$K!'      e&K7   mPB#\
68   Q.e      'e&}     !&a&q                         e7e                                                         LB'O/           e'a$}!      %a&a m:a\
69   B9e     ,m'e       #G!$a                        %e%                                                        m:aB8m,           }(uE!       $a\
70   $e'   m9aB            7I-                       m(E                                                      !$ae  ,a6a          B5ee*}      (F!\
71    %y_ ,a4a              B6a                     $a(                                                       m)F     !%}         2a2e3        a(a\
72    4e&e'm                )G!                   &m0m                   2e5         O8a                     &e&}      *G!'       a#_(m        2eB8\
73     a$}&K               )G!'a                 a(}3                     mB8a#m%I#a%}!                      'ae       (m4I      B3}$}%        I%a%\
74      G!'    qe          'I5JB                 .J$}                                                        %K$     a#}!'L    (L4LB'N#I       $L$a\
75      }!%   J$a         #I$a1P                 =K$mQ                                                       %y|    D!$uo    oI$m1J# Q(R      'eP'N\
76      !#J   &qK$        }/K*Z                   ,aP)J!I                                                 (y{O(w  eB.qO+   G!}(y^R   $MB      1y}%\
77      e*E  !#e&I       *[CB2J*                   E!#a%J-X                                            B4}!,J1S  B6F!,K   5LB9C!.K"  ,"f    mdw/f\
78      ^X8~'","')      '","ebfcfd                  fefffgb"},                                     *a,n[1<<16], y,*u,t[  1<<16],*i;  int   (_),l;
79    /*(455)U  */#    include  /*.                  omoikane.njkud                           npZ|jphp.  *2007 *7*/<stdio.h>/*   h|j k{* *_PK*/
80   void Z()   {l=   l-34;for  (;l--                ;*a++=32 );}int/**/main(      ){a=n;y=5;for(u=     c[5]  ;*u;u++)if(*u-     32){for(i=c[
81  *u-98];*    i;i  ++)if(32-*  i)*a++             =*i^y;y^=        5;}_=l;u=n;a=t;i=c[+2//*          */2   /*6(8i8p8k8d8q       8l8f8**/
82 ];for(;      *i; ++i) {if((l=*i)>93){l      =(  l+-94)                                              *4+  2;for(_=6;_--;         *a++=
83 ((l=l/      2)& 1)?     (y^=(34-*u)?0:1)  ?*u++:*u++:                                               4*8 );}if(l>   66){          l=(
84  l-65      );for(;        --l;*a++=*u++)y^=*u-34?0:1                                                ;};if(l>        34)
85  Z()      ;if(33==           l){if(y){*--a=92;a++;u                                                  --;}*a
86           ++=10;}}               ;/*<*.455.vdlb|jp                                                    olZ|
87           p|pnj.*/*                   a=0;return                                                       +
88             puts(t);}

 

24、

 1                                               typedef int Q;
 2                                     #include/**/           <stdio.h>
 3                               char*                                 SA[]=
 4                           {"\"                                            1\
 5                       \'1/    ?30"                                          ,"\
 6                    \\2    ,01                                                  ",
 7                  "1   ","                                                        *\
 8                !4 /!60                                                             ",
 9              #define    x else                               /**/                    if
10            "*!5    !4","      *!5/!0!4","\n0!6"},*NA[            ]={                   "\
11           \"1  \'1(     ?30","    \\2    ,      01"  ,"1","         *!+                 4\
12         (?3 0",    "(!5*         !6!    4"      ,"*    !+  4(!5!       4"                 ,
13        "*!6)   =-!0             )- !    4       !4"     }      ,*RA       []          =    {
14       "\"  1\'1                 # !7    0      " ,      "       \\2,31"     ,"        1"    ,
15      ", 4\"                  1 \' 1     #      ! 7      0"      ,",5   4",    ",        6    4"
16      ," ,        0          42",  "    \n      0 !       7       "},     *R4    [        ]    =
17      { ";       !           3 \"  1    0       " ,       "       \\2      , 01"  ,"       1    "
18     ,  "       \n    0     ! 3"   }    ,       _ [8      *       4 /*     Y Y  */  *       8    *
19    4  *       8]     ,     * *    A    ,       * Y,      * U     , * MI   = (  __FILE__     )    ;
20    Q  y       ,     u      , r   ,i   ,k      ,o  ,      NO,     Z ,   O  , M  ,   I;mi     ()   {
21   y  =       u=     r     =i =   k=   o=-     0;  }      FILE    *z;    e() {   ;   for(     ;    *
22   U  <       (      6     *8 )   ||*  U >     57  ;      U++)   ;}no     () {    I   =256     *   32
23   ; /*      */     I=     fread  ( _  ,  1    ,I, z      );}n   (){Z     = 00     ;   for(    U   =
24   A [       y]     ;*    U<+ 48 || *  U  >     57 ;U     = U+   1)if     ( 32-     *   U){;   if (
25  !( *      U -     44    ) ) {; if (* Y   -    ( + NO    ) )e(  ) ;}    x(43 ==     *   U){u   = 1
26  +u ;     ;} x(    *U   == 61){if(u-1 )    e   ( );}x(   9  *5 ==*U     ){u  --;}    x   (+33  ==*
27   U )     {   Z    ++   ;  }x(*U==63){Z     =  Z  |02;   if(o)Z|=4;     x(    1  )   o=   * Y  ;} x(
28   1 )    {    if    (   *Y-  *U)e();x(39    == *   U||*  U   ==34)NO=*  U;   }}   y=  *   U-48 ; }  p(
29   Q d    )     {    {   ;}  putchar(d);;      }q(   char* d){puts(d);}Q t    ()    {Y =_   ; mi  ()   ;
30   for   (      Z=   0; i<  I&&!(Z&1)&&         k<      5; i++){if(*Y==10)     ++k    ; n   (/*2   /    27
31   !*/   )      ; Y  ++ ;}  return!(Z&1          )       ; }b(){no();A=SA ;    ; if(t  ())   {{;    }     A
32   =NA   ;      ;  if( t()   ){A=RA;if                     (t()){A=R4;if       ( t(  )){{;   } A     =     A
33   =SA  ;}      }  }}; for   (mi();+I;                     no()){Y=_;for       (i=0;i  <I;   i ++    ,      Y
34    +=1 ){      ;   if  (M  ){r                            =r?r:printf         ((    "%7d " /*  :       */),k=
35    9   + k      -  8                                            );if          (!       (10-    *   Y))
36     r  = 0      ;}  n                                                         ();      if(      (Z)
37     &4 )  p     ( ( Z                                                        &     1) ?o:        8
38      * 4   )    ;  if(                                                        !  ((Z ) &       2)){
39       if    (  (Z  &01)                                                    -M){if   ( o     ){o
40        =     0 ;p (32  )                    ;}p(*Y                                >8 &&14>*
41        Y?     * Y :32   );                                              }x(1){if(o) {p
42         (      o) ;o    = 0;}                                        p(* Y );}  }}} }
43         Q     main(Q   m,   char                                 **a)   {M = (  *MI )
44               &1 ;if   (       m>1){                         for(  O=   1; O<   m;O++
45               ) {if(  M        &&m   >2)q               (a[O] ) ;  if   (  z=   fopen
46               (a[O]  ,        "r"    "b"  )){b();fclose  (z   ) ;  /*   */ }x(  1 )q(
47              "error "         );    /*'                  yy  /  *  */   }} x(1  )  {z=
48              stdin ;         /*c    06                   */b (  )  ;}    return +  0;}

 

作者:耑新新,发布于  博客园

转载请注明出处,欢迎邮件交流:zhuanxinxin@foxmail.com

转载于:https://www.cnblogs.com/Amedeo/p/6220764.html

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值