Re: OT: How to do a reverse word list in Perl

Well, you could do it that way in perl, too:

map { reverse }
sort
map { reverse }
<>;

But I suspect keeping the original and reverting to it is more
efficient than re-reversing it.

On 10/27/06, Henrik Theiling <theiling@...> wrote:
> Hi!
>
> Mark Reed writes:
> >...
> > In place of the
> >
> > sort { reverse($a) cmp reverse($b) } <STDIN>
> >...
>
> In a Unix shell, this is simply:
>
>    rev | sort | rev
>
> **Henrik
>
> PS: I've marked this OT.  Please also do so.
>

--
Mark J. Reed <markjreed@...>

Reply