WSSL Karel TTTBook Demo Blog Start
/**/main(e,c,h,o,_){e?(main(0,1,0,0,/**/
/**/3),puts("")):_--&&(main(e,c<<_,h/**/
/**/+3,o,_),putchar(223&2+"nimfs_a"[/**/
/**/(c&2)+h+o]),main(e,c,h,o+1,_));}/**/
main(){for(srand(-67303081);putchar(10+"9>AEFK"[7&rand()])>11;);}
int _[16],x,w,o[15];m(){for(w=0;w<16;w++)if(!_[w]||w%4<3&&_[w]==_[w+1]||w/4<3&&_
[w]==_[w+4])return;exit(puts("GAME OVER"));}r(char*s){for(w=0;w<29;)putchar(s[!(
w++%7)]);puts("");}p(e){for(r("-+"),e=0;e<16;e++%4-3?:(puts("|"),r(" |"),r("-+")
))e%4?:r(" |"),w=_[e],printf(w?"|%s%*d%*s":"|%6s",e==x?"\033[31m":"",4+(w>99),w,
5+(w<100),"\033[0m");}a(){for(;;)if(!_[x=rand()%(16)]){_[x]=2+(rand()%100<10)*2;
break;}}d(x,y){w<2&&(x^=y,y^=x,x^=y);w?:(x=3-x);w-2?:(y=3-y);return(3-x)*4+y;}g(
y){return!_[d(x,y)]&&_[d(x,y+1)]?(_[d(x,y)]=_[d(x,y+1)],_[d(x,y+1)]=0,1):0;}s(y)
{return _[d(x,y)]&&_[d(x,y)]==_[d(x,y+1)]?(_[d(x,y)]+=_[d(x,y+1)],_[d(x,y+1)]=0,
1):0;}main(e){char b[5];tcgetattr(0,o);o[3]&=-11;a(a(srand(time(0)+tcsetattr(0,0
,o))));for(p(x=-1);;m())if(read(0,b,5)==3){w=b[2]-'A';for(e=x=0;x<4;x++)e+=g(2)+
g(1)+g(0)+g(2)+g(1)+g(2)+s(0)+s(1)+s(2)+g(1)+g(2);e&&p(a(printf("\033[17A")));}}
c(h,p){p=100*(h&7);h>7&&printf("\033[11;%d]\a\n",p);usleep(1000*p);}main
(_){for(;(_=getchar())>0;c(2))if(_&=223,_-=65,_>=0&&_<26)for(_=_["CNR"
"F?QHMA[JODBLSXGE@IUKVZP"]-61;_>1;c(1),_/=2)c((_&1)*2+9);else c(2);}
/* echo CHUPCKO morse | ./a.out > /dev/console # p=100 is speed */
m/*aster*/(m,i,n,d){int x[6]={},y[6]={};for(;++n<4;m/=6,i/=6)m%6-i%6?x[m%6]++,
y[i%6]++:(d+=10);for(n=~0;++n<6;n[x]*n[y]&&(d+=n[x]<n[y]?n[x]:n[y]));return d;
}n=1296,_[1296];p(_){printf("%d %d %d %d ",_%6,_/6%6,_/6/6%6,_/6/6/6%6);}main(
s,t,e,r){if(srand(time(0)),t=n,s-1)for(s=rand()%n;s-t;printf("- %02d\n",m(s,t,
~0,0,p(t))))for(e=-scanf("%d",&r,printf("? ")),t=0;++e<4;r/=10)t=r%10+t*6;else
for(;t;){for(;_[s=rand()%n];);scanf("%d",&r,printf("(%4d) ? ",t,p(s)));if(40==
r)break;for(e=~0;++e<n;!e[_]&&m(s,e,~0,0)!=r&&(e[_]=t--));}}/** by CHUPCKO **/
#define _(...) do{{__VA_ARGS__}{__VA_ARGS__}{__VA_ARGS__}{__VA_ARGS__}}while(0)
main(___){_(_(_(___=!___;_(_(_(printf("%.2s",___+"/\\/"););););puts(""););););}
c(h){putchar(h["* \n"]);}main(_){for(_=0;_<329;_++%47-46||c(2))c(!(">AA"
"A\"\0\0\377\10\10\10\377\0\0?@@@?\0\0\377\t\t\t\6\0\0>AAA\"\0\0\377\10"
"\24\"A\0\0>AAA>"[_%47]&1<<_/47));}/* * * http://www.chupcko.org/ * * */
char*_="w$]m.k{%\x7fo\3\1\5\2\0\4\2\0\4\32\10,\20\0 \20\0 P@`";h(p){c(!p);c(!p)
;}c(h){putchar(h["* \n"]);}main(t,i,m,e){for(;t=time(0);usleep(printf("\033[7A"
)*25000)){int*a=localtime(&t),b[]={a[2]/10,a[2]%10,a[1]/10,a[1]%10,*a/10,*a%10}
;for(i=-1;++i<7;c(2))for(m=-1;++m<6;m<4&&m%2&&c(i!=2&&i!=4),h(0))c(!((t=m[b][_]
)&_[e=i*3+10])),h(t&_[++e]),c(!(t&_[++e])),h(0);}}/* CHUPCKO => gcc -m32 ... */
int g[9],x,y,v,w;r(a,b){return a<3?a*3+b:a<6?3*b+a-3:a<7?b*4:++b*2;}s(a,
b){for(v=w=0;v<3;g[r(a,v++)]==b&&w++);return w;}f(a,b){if(s(a,b)==3)exit
(puts("WIN\0LOSE"+4*--b));}e(){for(x=0;x<8;f(x++,2))f(x,1);}d(a){for(y=0
;y<3;y++)if(!g[r(a,y)])return r(a,y);}c(){for(x=0;x<8;x++)if(s(x,2)==2&&
s(x,0))return d(x);for(x=0;x<8;x++)if(s(x,1)==2&&s(x,0))return d(x);for(
x=rand(y=0);x=++x%5,y++<5;)if(!g[x*2])return x*2;for(x=rand(y=0);x=++x%4
,y++<4;)if(!g[x*2+1])return x*2+1;exit(puts("DRAW"));}p(){puts("");for(y
=3;y--;printf("%s\n",y?"\n-+-+-":""))for(x=0;x<3;x++)printf("%c%s",g[y*3
+x]*56+32-(g[y*3+x]>1)*65,&"|"[x>1]);}main(){for(p(srand(time(0)));;)if(
scanf("%d",&x)&&x>0&&x<10&&!g[--x])g[x]=1,e(p()),g[c()]=2,e(p());}/*XO*/
int main(int i){char _[]="\033[2q";for(;write(1,_,4);2
[_]+=i++%3>1?-2:1)sleep(1);}/* a.out > /dev/console */
main(c,h,p){for(c/*__*/=21;c--;puts
(""))for(h=c%2?3/*/ \*/:0,p=73;p-=
printf("%.*s",p,"\\__/ "+h);h=0);}
main(_){for(puts("\n");;usleep(9+puts("")))for(_=9*printf("\033[A")+4;_
+1;printf(" %c",95-(time(0)>>_--&1)*50));}/* Binary Watch by CHUPCKO */
main(){for(;printf("\033[10;%d]\033[11;999]\a",L"\xf8\xa5rA\034"
[5-(getchar()+5)%6]+82);getchar());}/* ./a.out > /dev/console */
char*z="\220TE0\t\30\3!\22\201\26\32*\16&2\34,4";int c,h,p;x(x){for(c
^=1;1+x--;putchar(p<6?1:c));}y(y){for(p+=9;2+y--;x(0));p-=9;}main(int
i,char*_[]){for(p=4*puts("P5 95 44 1");p--;y(1))for(y(c=i=1);i<13;i++
)for(i==7&&y(3),h=0;h<8;h+=2)x(z[i[1[_]]-48]>>((i<7&&z[67-*1[_]]&1<<i
-1)?h:(6-h))&3);}/* ./a.out 8600037000312 | xv - ; : EAN-13 by CHP */
int _[16];m(x,i,f,z){for(f=z=-9,i=0;i<16;i++)f=_[i]==x?i:f,z=_[i]?z:i;i=abs(f-z)
;if((i==1&&f/4==z/4)||i==4)i=_[f],_[f]=_[z],_[z]=i;}main(i,j){srand(time(0));for
(i=0;i<9999;i++<15?_[i-1]=i:m(rand()%15+1));for(;;){for(j=i=0;i<16;j+=_[i]==++i)
printf(_[i]?"%c%2d":"%c ",i%4?' ':'\n',_[i]);if(j>14&&puts("\n\nYou WIN"))break
;printf("\n\nMove ? ");scanf("%d",&i)||scanf("%*[^0-9]");m(i);}}/* 15-CHUPCKO */
/*>> Goran "CHUPCKO" Lazic <<*/int _[25];c(h,p){h>0&&h<6&&p>0&&p<6&&(_
[5*p+h-6]^=1);}main(h,p){for(;;){printf(" 1 2 3 4 5");for(h=p=0;h<25;
p+=_[h++]){h%5||printf("\n%d",h/5+1);printf(_[h]?" *":" .");}if(p>24&&
puts("\n\nYou WIN"))break;printf("\n\nMove ? ");scanf("%d",&p)||scanf(
"%*[^0-9]");h=p/10;p%=10;c(h-1,p);c(h,p);c(h+1,p);c(h,p-1);c(h,p+1);}}
main(c,h,p){p=15e4;while((c=getchar())>0){for(h=0;h<29&&h["ETINAMSDRG"
"UKWOHBLZFCP\0VX\0Q\0YJ"]!=(c&223);h++);if(h<29)for(h+=2;h>1;h/=2){c=h
&1;puts(c++?"\033[11;225]\a":"\033[11;75]\a");usleep(p*c);}else usleep
(p*2);usleep(p*2);}} /* echo CHUPCKO morse | ./a.out > /dev/console */
int _[32];main(c,h,p){*_=1;for(c=32;c--;){for(h=c;h /***********/
--;)printf(" ");for(h=0;h<32-c;)printf(_[h++]?"/\\" /* CHUPCKO */
:" ");puts("");for(p=h=1;h<32;p^=_[h++])_[h]^=p;}} /***********/
int _[33]={1};main(c,h,p){for(c=32;h=c--;puts("")){for(;--h;)printf(" ")
;for(p=h=1;h<33-c;p^=h++[_])printf(p?"/\\":" ",h[_]^=p);}}/* CHUPCKO */
int _[32]={1};main(c,h,p){for(c=32;c--;puts(""))for(printf("%*s",c,""),p=
h=0;32-c-h;printf(h++[_]?c%2?"/\\":h%2?"/_":"_\\":" "))h[_]^=p,p^=h[_];}
#define m(x,y,z) main(){x puts(y);z}
#define p m(char c[80];if(gets(c)){main();,c,})
p
#define p m(,"Hello world!",)
#define m(x,y,z) main(){x puts(y);z}
main(c,v){return c?c*main(c-1,v):1;}
/d{def}def/i{index}d/a{add i}d/b{0 1 2 i 1 sub}d/f{for}d/e{exch}d/w{
dup}d/m{2 mul}d 49 b{360 mul 1 i div w cos 3 1 roll sin e}f 0.0001
setlinewidth 306 396 translate 250 w scale b{b{w m 4 a e m 3 a 2 i
w m 6 a e m 5 a newpath moveto lineto stroke}f pop}f showpage quit
/d{def}def/i{index}d/a{add i}d/b{0 1 2 i 1 sub}d/f{for}d/e{exch}d/w{dup}d/m{
2 mul}d/r{2 roll}d 19 b{1 i div w 1 e sub w 1 5 r 0 e 6 r w 0 8 r 1 e 9 r} f
m m 0.0001 setlinewidth 56 146 translate 500 w scale b{b{w m 4 a e m 3 a 2 i
w m 6 a e m 5 a newpath moveto lineto stroke}f pop}f showpage quit % CHUPCKO
/d{def}def/r{roll}d/x{4 3 r}d/y{4 1 r}d/a{t n p}d/b{n f n}d/c{p n t}d/t{
2 index{neg exch}{exch neg}ifelse}d/n{3 2 r not 3 1 r}d/f{2 copy rlineto
}d/p{x dup 0 ne{1 sub y a b a f c b c x 1 add}if y}d 0.0001 setlinewidth
newpath 50 140 moveto 8 true 2 0 p stroke showpage quit% CHUPCKO's Peano
/t { 2 mul 3 add index add 2 div } def 106 223 506 223 306
569 2 copy 99999 { rand 3 mod exch 1 index t 3 -2 roll t
exch 2 copy 0.02 0 360 arc fill } repeat showpage quit
>>++++++++[-<++++<++++>>]+>>>>+<<<<<[-[-<.>>>+<<]>>[-<<+>>]<[->+>+>+<<<]> [-<+>]>[>>[->+>+<<]>[+++++++[-<++++++>]<-.-[->++<]>.[-]]>[-<+<+>>]+<[->-< ]>[+++++++[-<++++>]<..[-]>]<<<<-[->>>+<<<]>[->>>+<<<]>>]>[<<[-<+<+>>]<[-> >>>>+<[->-<]>[-<+>]<<<<<]<[->>+<<]>>>>-[-<<<+>>>]<<<]<++++++++++.[-]<<+<]
>++++++++[-<++++>>++++>+<<]>>++>++<<<<[-[->+<]>[->.<<+>]>>>[-[->+<]+ >[<+>+++++++[->++++++<]>-.-[-<++>]<.[-]]++<[->-<]++>[<->+++++++[->++ ++<]>..[-]<]>>]+<<<[-[->+<]+>[-<+>>>-[->+<]++>[-<->]<<<]<<<<]>>.<<<]
#!/bin/sh
echo $0|sed -e"\s^/s!{h;ss.*spwdse;G;ss\ns/s};:x;ss/[^/]*/\.\./s/s;ss/\./s/s;ss//s/s;ss^/\.\.ss;tx;ss/[^/]*\$ss"