terminal colours by rst76

main=interact$(>>=(' '&)).lines
a&(b:c)=[z|a/=b,(x,y)<-zip"xrgbcw ""0124679",x==b,z<-"\27[4"++y:"m"]++"  "++b&c
_&_="\27[49m\n"

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

download

return to the top page