1 ! Copyright (C) 2009 Slava Pestov.
2 ! See http://factorcode.org/license.txt for BSD license.
3 USING: kernel sequences fry math.order ;
8 : format-column ( seq ? -- seq )
10 dup [ length ] [ max ] map-reduce
11 '[ _ CHAR: \s pad-tail ] map
14 : map-last ( seq quot -- seq )
15 [ dup length <reversed> ] dip '[ 0 = @ ] 2map ; inline
19 : format-table ( table -- seq )
20 flip [ format-column ] map-last
21 flip [ " " join ] map ;