Another round of TIMTOWTDI/golf :)
Printing 1..10 was simple, but counting backwards from 10 to 1 is a bit harder, because the .. list operator can't do that. It's even harder when you can't use reverse *evil grin*
The rules:
- No \w characters
Just kidding :)
The rules:
- No numbers (no \d characters)
- No use of reverse
- No modules
- Pure Perl
As usual, extra points for the original and the golfed.
(And an extra bonus if you're able to do it without \w characters ;))
My try:
perl -le'$b=ord "\cJ"; $a++ == ord "\cJ" && die, print $b-- while 1'
perl -le'$b=ord "\cJ"; $a++ == ord "\cJ" && die, print $b-- while "foo"'
Update - chipmunk correctly pointed out that I didn't follow my own rules... Oops! :)
-
Are you posting in the right place? Check out Where do I post X? to know for sure.
-
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big>
<blockquote> <br /> <dd>
<dl> <dt> <em> <font>
<h1> <h2> <h3> <h4>
<h5> <h6> <hr /> <i>
<li> <nbsp> <ol> <p>
<small> <strike> <strong>
<sub> <sup> <table>
<td> <th> <tr> <tt>
<u> <ul>
-
Snippets of code should be wrapped in
<code> tags not
<pre> tags. In fact, <pre>
tags should generally be avoided. If they must
be used, extreme care should be
taken to ensure that their contents do not
have long lines (<70 chars), in order to prevent
horizontal scrolling (and possible janitor
intervention).
-
Want more info? How to link
or How to display code and escape characters
are good places to start.
|