Front page | perl.golf |
Postings from August 2002
Re: putting practice
Thread Previous
|
Thread Next
From:
Rick Klement
Date:
August 30, 2002 12:02
Subject:
Re: putting practice
Message ID:
3D6FC110.C3821ECD@pacbell.net
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
Thread Previous
|
Thread Next