wave line by nn

a=[k=p=i=0]
j=20
for(("$System.in"-'\n').each{v->a[j]=(a[j+=v<p?1:v>p?-1:0]?:'').padRight(i++)+(p=v)};k++<i;)a[k]&&println(a[k])

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

download

return to the top page