Compound interest by ueno

while(<STDIN>){\x0d
($n,$b,$r)=split(/:/,$_);\x0d
while($n--){print $b,"\n";$b+=int($b*$r*0.01)}\x0d
}\x0d
\x0d

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

download

return to the top page