Mercurial > hg > toys
view c/sier.c @ 14:4282cc25e35c
Add C code
author | Jordi Gutiérrez Hermoso <jordigh@octave.org> |
---|---|
date | Sun, 17 Aug 2014 11:21:46 -0400 |
parents | |
children |
line wrap: on
line source
int main(void) { char o[80*80]={0}; int r,i,p=6400,s=12800,d[4]={0,80,0,40}, c[4]={0,40,80,40}; for (i=0; i<s+p; i++) { if(i<s){ r=rand()%3; o[c[3]*80+d[3]]++, c[3]=((c[3]+c[r])/2),d[3]=((d[3]+d[r])/2); } else{ write(1," .,'\":;[]{}%$#\n"+((i%80)?(o[i-s]<14?o[i-s]:13):14), 1); } }return(0); } /* gcc -o sier sier.c; ./sier; jls 2004 heh */