slope lines by murky-satyr

list setSize(58)map(list join)do(File standardInput readLines map(i,$,$foreach(j,b,\ :=at(i-j+50)
while(\size/2<i+j,\append(32))
\append(b))))map(do(>""and println))

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

download

return to the top page