Re: The Mr Magoo Awards (tpr05a)

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