Re: putting practice
[email protected] (Rick Klement)
| Newsgroups | perl.golf |
|---|---|
| Message-ID | <[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
Routine clean-up to 83:
#!perl -p
s#[a-z`]+#$_=$&;s/^..(?=..$)/$&`/;/`/?join'',/(\w)(?=.{$-[0]}(.?))/g:reverse#egi
--
Rick Klement