7 lines
177 B
Text
7 lines
177 B
Text
nonoblock=:4 :0
|
|
s=. 1+(1+x)-+/1+y
|
|
pad=.1+(#~ s >+/"1)((1+#y)#s) #: i.s^1+#y
|
|
~.pad (_1}.1 }. ,. #&, 0 ,. 1 + i.@#@])"1]y,0
|
|
)
|
|
|
|
neat=: [: (#~ # $ 0 1"_)@": {&(' ',65}.a.)&.>
|