develooper Front page | perl.golf | Postings from June 2002

Marvellous Maze solutions (was Re: mini golf)

Thread Previous | Thread Next
From:
Stefan `Sec` Zehl
Date:
June 30, 2002 14:53
Subject:
Marvellous Maze solutions (was Re: mini golf)
Message ID:
20020630214830.GA12580@matrix.42.org
On Sun, Jun 30, 2002 at 08:43:50PM +0100, Qingning Huo wrote:
> Here is my 39,
> 
> #!perl -p
> y/!b/
>  /;s!\d(?=\d*(\D))\D?!$1x$&!eg

Isn't that a 40? 

Here is mine. It is only one char longer than yours, I counted it as 41.

#!perl -p
y/!b/
 /;s/./$;+=$&;$;=$&x$;if$&<1/ge

CU,
    Sec
-- 
Do not meddle in the affairs of sysadmins,
they are quick to anger and have no need for subtlety.

Thread Previous | Thread Next


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About