Front page | perl.golf |
Postings from August 2002
Re: putting practice
Thread Previous
|
Thread Next
From:
Rick Klement
Date:
August 30, 2002 13:05
Subject:
Re: putting practice
Message ID:
3D6FCFD1.8AD12C6F@pacbell.net
Mtv Europe wrote:
>
> Hello Rick!
>
> rklement@pacbell.net (Rick Klement) wrote:
>
> > Routine clean-up to 83:
> >
> > #!perl -p
> > s#[a-z`]+#$_=$&;s/^..(?=..$)/$&`/;/`/?join'',/(\w)(?=.{$-
> [0]}(.?))/g:reverse#egi
>
> aah, this's the challenge for my horse (82):
>
> -p s#[a-z`]+#join'',@_[(split//,$&)>3?map{$_-1,$_+@_/2-
> (@_<5)}1..@_/2:(2,1,0)]#ieg
>
> ---
> Mtv Europe
Routine clean-up for your horse too (80):
-p
$"='';s#[a-z`]+#@_[(split//,$&)>3?map{$_-1,$_+@_/2-(@_<5)}1..@_/2:(2,1,0)]#ig
:)
--
Rick Klement
Thread Previous
|
Thread Next