steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

strings.tables: use [ max ] map-reduce

db4
Slava Pestov 2009-02-02 03:33:23 -06:00
parent abb6c01a62
commit dd4aea9ca8
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
basis/strings/tables/tables.factor
View File

@ -1,13 +1,13 @@
! Copyright (C) 2009 Slava Pestov. ! Copyright (C) 2009 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: kernel sequences fry ; USING: kernel sequences fry math.order ;
IN: strings.tables IN: strings.tables
<PRIVATE <PRIVATE
: format-column ( seq ? -- seq ) : format-column ( seq ? -- seq )
[ [
dup [ length ] map supremum dup [ length ] [ max ] map-reduce
'[ _ CHAR: \s pad-tail ] map '[ _ CHAR: \s pad-tail ] map
] unless ; ] unless ;