Re: New Golf

[email protected] (Ton Hospel) Sun, 14 Jan 2007 16:31:22 +0000 (UTC)
Newsgroups gmane.comp.lang.perl.golf
Organization lunix confusion services
Message-ID <[email protected]>
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)