Front page | perl.golf |
Postings from January 2007
Re: New Golf
Thread Previous
|
Thread Next
From:
perl-golf
Date:
January 14, 2007 08:31
Subject:
Re: New Golf
Message ID:
eodlsq$8b1$1@post.home.lunix
In article <eodkp1$7mt$1@post.home.lunix>,
perl-golf@ton.iguana.be (Ton Hospel) writes:
> In article <26894.35500.qm@web56415.mail.re3.yahoo.com>,
> Andrew Savige <ajsavige@yahoo.com.au> 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)
Thread Previous
|
Thread Next