Re:{2} (Golf) Giving Change


Clear questions and runnable code get the best and fastest answer
	PerlMonks

by jeroenes (Priest)

on Jun 12, 2001 at 14:54 UTC ( [id://87765]=note: print w/replies, xml )

Need Help??

Nice solution. There is room for improvement, though. No need for return, use that for filtering out empty items:

sub c {($a,$c)=@_;@c=@$c;grep$_,map{$a>$_?
  &{sub{$a-=$_*($b=int($a/$_));"$b x $_"}}:""} reverse @c}
[download]

Char-neutral, but leaving the grep out gains 7 chars.

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}
[download]

Jeroen
"We are not alone"(FZ)

Comment on Re:{2} (Golf) Giving Change Select or Download Code

Replies are listed 'Best First'.
Re: Re:{2} (Golf) Giving Change by Trimbach (Curate) on Jun 12, 2001 at 15:24 UTC
Ooooooooo... I like the grep idea. Duh. Can you tell I don't golf much? :-D Spiffy! Gary Blackburn Trained Killer	[reply]

In Section Meditations

Domain Nodelet^?

Node Status^?

node history
Node Type: note [id://87765]
help

Chatterbox^?

How do I use this? • Last hour • Other CB clients

Other Users^?

Others perusing the Monastery: (2)

As of 2024-04-25 20:09 GMT

Sections^?

Information^?

Find Nodes^?

Leftovers^?

Voting Booth^?

No recent polls found