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
