Re: putting practice

Hello Greg!

[email protected] (Greg Allen) wrote:
> Hurrah: a decoder.. much borrowed, too much added (scores 105).
> 
> #!perl -p
> s#\pL+(`\pL*)?#$_=$&;$1||s/(..)(..)/$1`$2/;/`/?
> ($l=()=/../g)&&join'',/([^`])(?=.{$l}(.)?)/g:reverse#eg

this is more challenging task (albeit not so well-defined since
transformation is not reversable), and here is another solution (92):

-p s#\pL+`?\pL*#join'',@_[(split//,$&)>4?map{$_-
1,$_+@_/2}1..@_/2:@_>3?(0,2,1,3):(2,1,0)]#eg

>> > #    (2)  Words with less than 3 letters will be reversed.

that must be readed as "less or equal" for clarity

---
Mtv Europe