Dave wrote:
> Ton wrote:
> > Please mail me your best solutions and any particularly interesting
ones.
>
> #!perl -pl
> ++$_[--$_]while$_}for(sort@_){

:j.krahn   42 -ln $_[$_]++while$_--}{map{print}reverse@_

Looks like John and I had the same exact idea.

Reply via email to