euro denominations by BioFALSE(rxs)

for$t(<>){
$_=5e4;
$s='';
while(1){
$t>=$_?($t-=$_,$s.="$_+"):(s/10/5/||y/2/1/||y/5/2/||last);

}
print $s=~s/\+$/\n/r
}

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return to the top page