Anyone care to guess what the following Perl code does?
perl -wle '$_ = 1; (1 x $_) !~ /^(11+)\1+$/ && print while $_++'
Impressive, isn't it?
www.flickr.com
|
« A Face in the Crowd | Main | Diagnosis ad Hitlerum »
The comments to this entry are closed.
That's really cool. How did you come up with that, and why?
Posted by: Sniffy McNickles | June 22, 2007 at 05:23 PM
I wish I could say the discovery was mine, but the credit for this bit of weirdness must go to the mysterious individual known only as "Abigail".
http://ucan.foad.org/~abigail/
Posted by: Abiola | June 22, 2007 at 11:59 PM