En op 10 september 2002 sprak [EMAIL PROTECTED]:
>
> $lose_some_weight =~ s/\A(.{$i})(.)/$1/s;
That \A is not needed. And your program doesn't find it... Some clever
routine to recognize these atoms and to remove them in one piece is
needed.
> Just by running mrmagoo.pl, I was able to shorten Adam's
> solution from 120 to 117 without understanding it at all:
> #!perl -lp
> use overload'""',sub{${$_[0]}},nomethod,a;sub a{$_=pop;
> bless/g/?\"-$_[0]":\"@_$_"}s/-/- /g+s/\d+/a("$&")/g;_=eval
Urpl? _=eval? It seems to work... But why? It doesn't work in 5.8.0 any
longer. And it doesn't work in my solution: f(_=$1) .
> I wonder if any of the aliens have more sophisticated
> versions of mrmagoo.pl?
Yup. The MrMagoo Wetware version. And I've used it twice in this course
to great effect.
(-ugene
--
But the shortest works are always the best. -- _|ean de la |=ontaine
