Front page | perl.golf |
Postings from January 2007
Re: New Golf
Thread Previous
|
Thread Next
From:
Yanick Champoux
Date:
January 15, 2007 19:36
Subject:
Re: New Golf
Message ID:
200701152255.52475.yanick@babyl.dyndns.org
On Sunday 14 January 2007 11:31, Ton Hospel wrote:
> > 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)
Do'h! I clean forgot about the validity of =~$foo, and not having realized
that I could acheive big numberness by moonwalking through the backdoor is
just silly, silly, silly. I stand humbled, รด Great Ton.
Listening, learning,
`/anick
Thread Previous
|
Thread Next