|Just another Perl shrine|
Beautiful code I wrote ;-)by Skeeve (Vicar)
|on Jul 10, 2008 at 22:23 UTC||Need Help??|
Some people say, perl code looks ugly.
I always object!
And just an hour ago I wrote something that looked really beautiful to me ;-) and I like to share it with you.
My piece of code has a number from 0 to 9 in $_ and should set the corresponding bit (count starts from 1 here so 1 is bit zero). If the number is zero, the result should be Zero.
Being a mathematician by heart ;-) I first wrote 2**$_/2, but that gives me 0.5 for $_ being 0. I didn't want to use int().
Then I remembered >> and wrote: 2**$_>>1 and suddenly realised! 2** is the same as 1<< and So I came to:
Don't you agree that this is a perfect looking little piece of code? ;-)