(apply(rec(_ n m r)(dotimes'n(print m)(inc! m(floor(* m r 1/100)))))(map x->number(string-split(read-line)#\:)))
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page