in reply to Re: (Golf) Giving Change
in thread (Golf) Giving Change
Nice solution. There is room for improvement, though.
No need for return, use that for filtering out empty items:
Char-neutral, but leaving the grep out gains 7 chars.sub c {($a,$c)=@_;@c=@$c;grep$_,map{$a>$_? &{sub{$a-=$_*($b=int($a/$_));"$b x $_"}}:""} reverse @c}
You don't need the parens after the int, and leave out the spaces around the reverse. Gains you 4 char:
sub c{($a,$c)=@_;@c=@$c;grep$_,map{$a>$_? &{sub{$a-=$_*($b=int$a/$_);"$b x $_"}}:""}reverse@c}
Jeroen
"We are not alone"(FZ)
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: Re:{2} (Golf) Giving Change
by Trimbach (Curate) on Jun 12, 2001 at 15:24 UTC |
In Section
Meditations