Read Diagonally by henkma(kaki)

main=f 0
f i=do
s<-getLine
let n=sum[i|i<length s]
putChar$s!!n
f$n+1

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

download

return to the top page