LED information board by rst76

main=interact$f.lines
f x=u[zipWith(&)[0..]$u[take 80$drop i$s++y++s|y<-x]|i<-[0..200]]
293&'#'='*'
_&a=a
s=[1..79]>>" "
u=unlines

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

download

return to the top page