develooper Front page | perl.fwp | Postings from January 2002

Re: solutions

Thread Previous | Thread Next
January 29, 2002 22:47
Re: solutions
Message ID:
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

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?


Thread Previous | Thread Next Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at | Group listing | About