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 */