I was thinking about that this week, because I wanted (for no good reason), things like:
$n+++; # increment, then do that again (add 2)
$n++++; # increment, then again, and once more (add 3)
$n++++++++++; # increment N-1 times, just because I can
--$n++; # use the value that's one less, then restore it
++$n--; # same thing, other way
$n++-; # increment, but not really cause this is a JAPH
$n++-+; # I changed my mind, really do it this time
$n++-+-; # boss says change it back
$n+- # can I decide later, or, pick one at random
$n** # no exponent, so square $n
$n*** # cube it, and so on
$n***/ # square it, but cube it first and go back one
$n// # 1
$n/// # 1/$n
$n///** # $n
Surely Perl can be even more write-only if we just applied ourselves.
--
brian d foy <bdfoy@cpan.org>
|