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:
1<<$_>>1
Don't you agree that this is a perfect looking little piece of code? ;-)
s$$([},&%#}/&/]+}%&{})*;#$&&s&&$^X.($'^"%]=\&(|?*{%
+.+=%;.#_}\&"^"-+%*).}%:##%}={~=~:.")&e&&s""`$''`"e
Back to
Meditations