LED information board by tanakh

main=interact$(unlines%).lines
u%d=u[u[[[c++e++c|e<-d]!!y!!(x+i)!(x*4+y)|x<-r]|y<-[0..6]]|i<-[81..]]
c=r>>"  "
r=[0..79]
'#'!203='*';c!_=c

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

download

return to the top page