Compound interest by pooq

scan [read stdin] %d:%d:%d n m r
while \$n {puts $m
set m [expr $m+$m*$r/100]
incr n -1}

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

download

return to the top page