Revision as of 10:50, 3 January 2021 (view source) 5jt (talk \| contribs) m (→‎{{header\|q}}) ← Older edit		Revision as of 11:42, 3 January 2021 (view source) 5jt (talk \| contribs) (→‎{{header\|q}}: remove tabulation) Newer edit →
Line 6,307: ta:{[aln;txt] / tabulate aligned sl:(count'')s:"$"vs/:txt; / strings and their lengths ~~tbl8~~cw:{~~0^y~~rl#\:max x@/:\:~~x}[~~til max rl:count each x}sl]; / cell ~~/ tabulate~~widths ~~align~~ps:`L$[aln=`R~~`C!(~~ ;-1-cw;1+cw]$''s; / ~~alignment~~padded ~~functions~~strings {ps:$[aln=`C;(~~1+max~~neg(cw-sl)div x2)$rotate'~~/:y}~~'ps;ps]; / ~~left~~center ~~{(-~~1~~-max x)$'/:y}~~,[;"\n\n"]"\n"sv raze each ps; } / print</ ~~right~~lang> ~~{mx:max x;(neg(mx-/:x)div 2)rotate''(1+mx)$'/:y} ); / center~~ ~~1,[;"\n\n"]"\n"sv raze each(align aln). tbl8 each(sl;s); }</lang>~~ {{out}} <pre>q)ta[`L]text

Align columns (view source)