|
|
|
| No such thing as a small change | |
| PerlMonks |
Re: TIMTOWTDI/golf - counting backwardsby BrentDax (Hermit) |
| on Jan 29, 2002 at 03:47 UTC ( [id://142234]=note: print w/replies, xml ) | Need Help?? |
|
Don't laugh--it's my first golf. 55 chars, appears to follow the rules.
$,=$";print sort{$b<=>$a}(ord(b)-ord a)..(ord(k)-ord a) UPDATE: This occurred to me about five minutes after that one. 45 chars. $,=$";print sort{$b<=>$a}map{ord()-ord a}b..k =cut
In Section
Meditations
|
|
||||||||||||||||||||||||||