2009-01-26 03:21:28 -05:00
|
|
|
! Copyright (C) 2009 Slava Pestov.
|
|
|
|
|
! See http://factorcode.org/license.txt for BSD license.
|
2009-02-02 04:33:23 -05:00
|
|
|
USING: kernel sequences fry math.order ;
|
2009-01-26 03:21:28 -05:00
|
|
|
IN: strings.tables
|
|
|
|
|
|
|
|
|
|
<PRIVATE
|
|
|
|
|
|
|
|
|
|
: format-column ( seq ? -- seq )
|
|
|
|
|
[
|
2009-02-02 04:33:23 -05:00
|
|
|
dup [ length ] [ max ] map-reduce
|
2009-01-30 04:37:01 -05:00
|
|
|
'[ _ CHAR: \s pad-tail ] map
|
2009-01-26 03:21:28 -05:00
|
|
|
] unless ;
|
|
|
|
|
|
|
|
|
|
: map-last ( seq quot -- seq )
|
|
|
|
|
[ dup length <reversed> ] dip '[ 0 = @ ] 2map ; inline
|
|
|
|
|
|
|
|
|
|
PRIVATE>
|
|
|
|
|
|
|
|
|
|
: format-table ( table -- seq )
|
|
|
|
|
flip [ format-column ] map-last
|
|
|
|
|
flip [ " " join ] map ;
|
