Re: New Golf
[email protected] ((Ton Hospel)) Sun, 14 Jan 2007 16:31:22 +0000 (UTC)
| Newsgroups | 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)