Hello Riley! [EMAIL PROTECTED] (Riley) wrote:
> -lp /.+()(?{$n|=(${"@-"}.=$&)x=-index$&,0})^/}{$_=length$n
>
> I get 56 instead of 16 on the first test in the testsuite for the above
> solution.
What's your perl version?
> Also, can anyone tell me why the following doesn't work?
>
> -lp0 /
> /,$_&=$'./1+(?{$;|=$&x$^C})^/while++$^C;$_=length$
$; is not empty by default.
--
Mtv Europe
