From bdefd578197e641963962d7c44755a216de3af6c Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Fri, 13 Jul 2012 18:42:34 -0700
Subject: [PATCH] strings.tables: faster format-table.

---
 basis/strings/tables/tables.factor | 20 +++++++-------------
 1 file changed, 7 insertions(+), 13 deletions(-)

diff --git a/basis/strings/tables/tables.factor b/basis/strings/tables/tables.factor
index 32bdcbfad1..f45a693576 100644
--- a/basis/strings/tables/tables.factor
+++ b/basis/strings/tables/tables.factor
@@ -1,28 +1,22 @@
 ! Copyright (C) 2009, 2010 Slava Pestov.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: kernel sequences fry math.order splitting ;
+USING: kernel sequences fry math.order math.ranges splitting ;
 IN: strings.tables
 
 <PRIVATE
 
-: map-last ( seq quot -- seq )
-    [ dup length iota <reversed> ] dip '[ 0 = @ ] 2map ; inline
-
 : max-length ( seq -- n )
-    [ length ] [ max ] map-reduce ;
+    [ length ] [ max ] map-reduce ; inline
 
 : format-row ( seq -- seq )
-    dup max-length
-    '[ _ "" pad-tail ] map ;
+    dup max-length '[ _ "" pad-tail ] map! ;
 
-: format-column ( seq ? -- seq )
-    [
-        dup max-length
-        '[ _ CHAR: \s pad-tail ] map
-    ] unless ;
+: format-column ( seq -- seq )
+    dup max-length '[ _ CHAR: \s pad-tail ] map! ;
 
 PRIVATE>
 
 : format-table ( table -- seq )
     [ [ string-lines ] map format-row flip ] map concat
-    flip [ format-column ] map-last flip [ " " join ] map ;
\ No newline at end of file
+    flip [ but-last-slice [ format-column ] map! drop ] keep
+    flip [ " " join ] map! ;