plot letter grid by henkma

main=interact$f.map words.lines
f l=unlines[do x<-0%l;max"-"[c|[a,b,c:_]<-l,x==a,y==b]|y<-1%l]
n%l|g<-foldr.(.read.(!!n))=map show[g min 9l..g max 0l]

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

download

return to the top page