Da unesemo malo art-a u art of programming Malo sam smoren pracenjem ove teme, pa rekoh da malo potaknem razmisljanje.
Nekada davno sam na sed-ovoj strani video gomilu koda u signaturama (o cak je bilo i brainfuck-a).
Motivisan time sam seo i napisao nekoliko svojeg blesavog i cudnog koda, sto u c-u, sto u postscript-u.
Naravno ova tema ima ulogu i da se malo hvalim, ali isto tako i da potaknem malo na neku kretaivnost.
Eto za pocetak jednog malog koda koji realizuje poznatu igricu "15".
Code:
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++)i<15?_[i]=i+1: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);}} /* http://alas.matf.bg.ac.yu/~chupcko */
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++)i<15?_[i]=i+1: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);}} /* http://alas.matf.bg.ac.yu/~chupcko */
Dakle da cujem komentare, ko smatra da je necitko neka koristi indent :). A da ne bi izasli iz teme, zanima me da li neko moze da predlozi heuristiku za pisanje ovakvih programa :).
A ko zeli da uci rekurziju:
Code:
/**/main(e,c,h,o,_){e?(main(_,1,_,_,/**/
/**/3),puts("")):_--&&(main(e,c<<_,h/**/
/**/+3,o,_),putchar(223&2+"nimfs_a"[/**/
/**/(c&2)+h+o]),main(e,c,h,o+1,_));}/**/
/**/main(e,c,h,o,_){e?(main(_,1,_,_,/**/
/**/3),puts("")):_--&&(main(e,c<<_,h/**/
/**/+3,o,_),putchar(223&2+"nimfs_a"[/**/
/**/(c&2)+h+o]),main(e,c,h,o+1,_));}/**/
Radi samo uz gcc, a ko zeli moze da se prepise varijanta za bilo koji ansi c :).
I najzad, jedan primer iz jedne veoma citirane virtove knjige:
Code:
/d{def}def/t{2 index{neg exch}{exch neg}ifelse}d/n{3 2 r not 3 1 r}d/f{2
copy rlineto}d/p{4 3 r dup 0 ne {1 sub 4 1 r t n p n f n t n p f p n t n
f n p n t 4 3 r 1 add}if 4 1 roll}d/r{roll}d 0.0001 setlinewidth newpath
50 140 moveto 8 true 2 0 p stroke showpage quit% CHUPCKO's Peano Fractal
/d{def}def/t{2 index{neg exch}{exch neg}ifelse}d/n{3 2 r not 3 1 r}d/f{2
copy rlineto}d/p{4 3 r dup 0 ne {1 sub 4 1 r t n p n f n t n p f p n t n
f n p n t 4 3 r 1 add}if 4 1 roll}d/r{roll}d 0.0001 setlinewidth newpath
50 140 moveto 8 true 2 0 p stroke showpage quit% CHUPCKO's Peano Fractal
CHUPCKO
, ali ipak se nadam da jesam programer.
Re: Da unesemo malo art-a u art of programming 