In article <[EMAIL PROTECTED]>,
[EMAIL PROTECTED] (Ton Hospel) writes:
> In article <[EMAIL PROTECTED]>,
> Andrew Savige <[EMAIL PROTECTED]> writes:
>> Can anyone else see anything Mr Magoo-like in m.wrenn's or
>> `/anick's solutions? Just to rub it in, you see. :-)
>>
> Super trivial Magoo on yanicks solution, good for one T-shirt:
>
> =~/$&/ can be written as =~$&
Less Magoo:
#!perl -lp040
$s=/m/
if/u/;($y=I1V5X10L50C100D500M1000IV4IX9XL40XC90CD400CM900)=~chop,$t+=$s^"$;">($;=$')?-$;:$;while$_}{1while$y=~/(\D+)$?/&&$t>=$??($_.=$1,$t-=$?):--$?
(162.52)
