What does it do?

[Witness]

Found this small program in a book:

Code: Select all

int a=10000,b,c=8400,d,e,f[8401],g;main(){for(;b-c;)f[b++]=a/5;for(;d=0,g=c*2;c-=14,printf("%.4d",e+d/a),e=d%a)for(b=c;d+=f[b]*a,f[b]=d%--g,d/=g--,--b;d*=b);}

[Doctor X]

Simple:

https://i.chzbgr.com/maxW500/8557000704/hDC7973A8/

Your stereo is mine, of course. . . .

--J.D.

[Rob Lister]

Found this small program in a book:

Code: Select all

int a=10000,b,c=8400,d,e,f[8401],g;main(){for(;b-c;)f[b++]=a/5;for(;d=0,g=c*2;c-=14,printf("%.4d",e+d/a),e=d%a)for(b=c;d+=f[b]*a,f[b]=d%--g,d/=g--,--b;d*=b);}

Spoiler:

Pi, sloppily.

Code: Select all

main(){
        int a=10000,b,c=8400,d,e,f[8401],g;
        for(;b-c;)f[b++]=a/5;
        for(;d=0,g=c*2;c-=14,printf("%.4d",e+d/a),e=d%a)
            for(b=c;d+=f[b]*a,f[b]=d%--g,d/=g--,--b;d*=b);
      }

Never test cheaters.

[DrMatt]

Obscure code is no longer impressive.
We've all heard the story of Mel.

[Witness]

Well done Rob, you nailed it.

@ Matt: read the Mel story with pleasure, reminded me of a time when bits were set with switches. But I think the programmer diden't want to obfuscate (which I used, of course), just to show that lots of π's decimals could be generated with a handful of bytes.