read calculator words by jg10

x=readLines("stdin")\x0d
for(i in 1:9)x=gsub(i-1,substr("oizehs lb",i,i),x)\x0d
for(s in x){n=nchar(s);cat(substring(s,n:1,n:1),"\n",sep="")}\x0d

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

download

return to the top page