wave line by notogawa

main=interact(\x->do(_,a:b)<-[span('!'>)$r$z(%)x$scanl(+)n$z(#)x$tail x|n<-[-99..9]];r$'\n':a:b)
a#b|a<b=1|b<a=0-1|0<1=0
a%0=a;a%_=' '
z=zipWith
r=reverse

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

download

return to the top page