Front page | perl.fwp |
Postings from January 2002
Re: even.pl solutions
Thread Previous
|
Thread Next
From:
Andrew.Savige
Date:
January 29, 2002 22:47
Subject:
Re: even.pl solutions
Message ID:
694BB7191495D51183A9005004C0B05452DBB3@ir-exchange-srv.ir.com.au
Stephen Turner wrote:
> I guess if nothing else, I win the prize for the greatest
> number of lines in a submitted solution :-)
>
> -p ($.+1)*y/a
> //*y/e
> //*y/i
> //*y/o
> //*y/u
> //*y/y
> //*y///c%2or$_='' 66 turn
I have Keith-ized Stephen's entry and called it "Journey Beyond
the Stars", in honour of the original title of Stanley Kubrick's
classic film: "2001: A Space Odyssey".
-p y*a
***y*e
***y*i
***y*o
***y*u
***y*y
***y***c*($.+1)&1or$_=$*
As an added bonus, notice that the $* variable is deprecated.
"Journey Beyond the Stars" may be a rival for "Tall Trees",
one version of which is:
-ln 1&($.|y|o|||y|e|||y|u|||y|a|||y|i|||y|y|||y|||c)||print
"Tall Trees" contains 30 | characters.
"Journey Beyond the Stars" contains 28 * characters.
Which is wackier?
/-\ndrew
Thread Previous
|
Thread Next