f=file("stdin","r") for(i in 0:99){m=matrix(c(a<-scan(f,nlines=1),scan(f,nlines=n<-length(a)/2)),,n) write(m[0:-n,]%*%m[1:n,],1,n) cat(" ")}
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page