f=file("stdin","r") for(i in 0:99)write(diffinv(rep(diff(a<-scan(f,nlines=1)),,,10))/10+a[1],1,99)
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page