Help for this page
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,,,
www.com | www.net | www.org
No recent polls found