winterknight
Pure in Heart
- Joined
- Sep 17, 2005
- Posts
- 7,493
- Reaction score
- 1
- Points
- 0
- Location
- Suffolk
- Website
- www.goldeneyes.org.uk
Those of you who have access to it (and if you don't know that you have, chances are that you haven't) type the following into a shell and watch what it does:
Major kudos to anyone who can explain how it works WITHOUT looking it up.
Code:
perl -wle '(1 x $_) !~ /^(11+)\1+$/ && print while ++$_'
Major kudos to anyone who can explain how it works WITHOUT looking it up.


















*