1 ! Copyright (C) 2009, 2010 Slava Pestov.
2 ! See http://factorcode.org/license.txt for BSD license.
3 USING: kernel sequences splitting ;
8 : format-row ( seq -- seq )
9 dup longest length '[ _ "" pad-tail ] map! ;
11 : format-column ( seq -- seq )
12 dup longest length '[ _ CHAR: \s pad-tail ] map! ;
16 : format-table ( table -- seq )
17 [ [ string-lines ] map format-row flip ] map concat flip
19 [ but-last-slice [ format-column ] map! drop ] keep
20 flip [ " " join ] map!