You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
24 lines
1.8 KiB
C
24 lines
1.8 KiB
C
11 years ago
|
# include<stdio.h>// .IOCCC Fluid- #
|
||
|
# include <unistd.h> //2012 _Sim!_ #
|
||
|
# include<complex.h> //|||| ,____. IOCCC- #
|
||
|
# define h for( x=011; 2012/* #
|
||
|
# */-1>x ++;)b[ x]//-' winner #
|
||
|
# define f(p,e) for(/* #
|
||
|
# */p=a; e,p<r; p+=5)// #
|
||
|
# define z(e,i) f(p,p/* #
|
||
|
## */[i]=e)f(q,w=cabs (d=*p- *q)/2- 1)if(0 <(x=1- w))p[i]+=w*/// ##
|
||
|
double complex a [ 97687] ,*p,*q ,*r=a, w=0,d; int x,y;char b/* ##
|
||
|
## */[6856]="\x1b[2J" "\x1b" "[1;1H ", *o= b, *t; int main (){/** ##
|
||
|
## */for( ;0<(x= getc ( stdin) );)w=x >10?32< x?4[/* ##
|
||
|
## */*r++ =w,r]= w+1,*r =r[5]= x==35, r+=9:0 ,w-I/* ##
|
||
|
## */:(x= w+2);; for(;; puts(o ),o=b+ 4){z(p [1]*/* ##
|
||
|
## */9,2) w;z(G, 3)(d*( 3-p[2] -q[2]) *P+p[4 ]*V-/* ##
|
||
|
## */q[4] *V)/p[ 2];h=0 ;f(p,( t=b+10 +(x=*p *I)+/* ##
|
||
|
## */80*( y=*p/2 ),*p+=p [4]+=p [3]/10 *!p[1]) )x=0/* ##
|
||
|
## */ <=x &&x<79 &&0<=y&&y<23?1[1 [*t|=8 ,t]|=4,t+=80]=1/* ##
|
||
|
## */, *t |=2:0; h=" '`-.|//,\\" "|\\_" "\\/\x23\n"[x/** ##
|
||
|
## */%80- 9?x[b] :16];;usleep( 12321) ;}return 0;}/* ##
|
||
|
#### ####
|
||
|
###############################################################################
|
||
|
**###########################################################################*/
|