Select Code to Download

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

,,1 x 20,,,2 x 1,2 x 0.25,,,