Front page | perl.golf |
Postings from August 2002
Re: putting practice
Thread Previous
|
Thread Next
From:
Greg Allen
Date:
August 30, 2002 11:10
Subject:
Re: putting practice
Message ID:
20020830180954.95297.qmail@web12903.mail.yahoo.com
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
Greg
--- Mtv Europe <mtve@frox25.i989.net> wrote:
> Hello Greg!
>
> gregallen_golfer@yahoo.com (Greg Allen) wrote:
> > # (1) Only letters will be encrypted.
> > # (2) Words with less than 3 letters will be reversed.
> > # (3) Words with more than 3 letters will be scrambled this way:
> > # * All letters on even locations move to the left-hand side.
> > # * All letters on odd locations move to the right-hand side.
>
> your sample output (those -> toe'hs) clearly shows opposite direction,
> i.e. odds (counting from one) to the left and evens to the right.
>
> > # * A "`" gets between the both sides if the word has more
> > # than 4 characters.
>
> and naive approach is 68, i believe:
>
> -p s#\pL+#$_=$&;/..../?join'',/(.).?/g,'`'x/.{5}/,/.(.)/g:reverse#eg
>
> ---
> Mtv Europe
__________________________________________________
Do You Yahoo!?
Yahoo! Finance - Get real-time stock quotes
http://finance.yahoo.com
Thread Previous
|
Thread Next