Front page | perl.golf |
Postings from August 2002
Re: putting practice
Thread Previous
|
Thread Next
From:
Mtv Europe
Date:
August 30, 2002 12:11
Subject:
Re: putting practice
Message ID:
20020830191140.41070.qmail@onion.perl.org
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
Thread Previous
|
Thread Next