Ouch!

[frankus]

in reply to RE: shortest
in thread shortest

perl -ne's/$&&1?o:e/eg;print'

Okay this rocks and I've voted for your code... I think this is what's happening :

1. perl -ne ''executes the one liner forever.
1. the regexp substitutes each character using s/./ and /g.
2. $& is the previous matches.
3. &1 is evaluated in the trinary operator ? using /e.
4. if &1 then replace with odd else replace with even
2. print defaults to $_, the results of the regular expression.

but what I really wanna know is: what is &1?

Brother Frankus.

[Adam]

&1 is the logical and applying the bit mask (1). Even numbers always end with a zero bit, odd always end with a 1 bit. This is a simple test for even/odd.

[frankus]

Yup this I get, now ... how did I get a negative posting for asking a question? Is my appraisal wrong or does someone resent the ZX spectrum colours?

Brother Frankus.

[kudra]

Colour is evil. Remember that people are using different themes and certain colours won't be visible. See what's been said about font just earlier today, or what was said just a few days ago about colour.

[frankus]

Yup this I get, now ... how did I get a negative posting for asking a question? Is my appraisal wrong or does someone resent the spectrum colours?

Brother Frankus.