Re: New Golf
Yanick Champoux <[email protected]> Mon, 15 Jan 2007 22:55:51 -0500
| Newsgroups | gmane.comp.lang.perl.golf |
|---|---|
| Message-ID | <[email protected]> |
On Sunday 14 January 2007 11:31, Ton Hospel wrote:
> > Super trivial Magoo on yanicks solution, good for one T-shirt:
> >
> > =3D~/$&/ can be written as =3D~$&
>
> Less Magoo:
>
> #!perl -lp040
> $s=3D/m/
> if/u/;($y=3DI1V5X10L50C100D500M1000IV4IX9XL40XC90CD400CM900)=3D~chop,$t+=
=3D$s^"$;
>">($;=3D$')?-$;:$;while$_}{1while$y=3D~/(\D+)$?/&&$t>=3D$??($_.=3D$1,$t-=
=3D$?):--$?
>
> (162.52)
Do'h! I clean forgot about the validity of =3D~$foo, and not having realiz=
ed=20
that I could acheive big numberness by moonwalking through the backdoor is=
=20
just silly, silly, silly. I stand humbled, =F4 Great Ton.
Listening, learning,
`/anick