foreach {n m r} [split [gets stdin] :] {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