in reply to one-liner pi
TIMTOWTDI...
I think I preserved the "spirit" of the algorithm :-)
#!/usr/bin/perl -w use strict; {(redo)while(printf"%.16f\n",$,+=((-1/++$_/(($a||=1)*=($_-$_++)*-1)))* +4)}
|
---|
In Section
Obfuscated Code
in reply to one-liner pi
TIMTOWTDI...
I think I preserved the "spirit" of the algorithm :-)
#!/usr/bin/perl -w use strict; {(redo)while(printf"%.16f\n",$,+=((-1/++$_/(($a||=1)*=($_-$_++)*-1)))* +4)}
|
---|