从Clojure中的DataBase打印表格

Question

我的目标是将每张表格之间的间距均匀地打印出来。

(defn PrintTable [tableName] 
    "prints table in clear format" 
    (let [tableRef (get (deref dataBase) tableName) ; get refrence for table 
     keyList (keys @tableRef)] ; get key list of table 
    (doseq [tableKeys (range (count keyList))] ; print the keys of the table 
     (let [key (nth (keys @tableRef) tableKeys)] 
     (print key "\t|")) 
    ) 
    (println) 
    (doseq [rows (range (count @(tableRef (nth (keys @tableRef) 0))))] ; print for each rows all the values 
     (doseq [cols (range (count keyList))] 
     (let [key (nth (keys @tableRef) cols)] 
      (print (@(tableRef key) rows) "\t|") 
     ) 
    ) 
     (println) 
    ) 
) 
    (println) 
) 

我一直在使用标签试图然而，这是出落得我得到：

P_Id |LastName |FirstName |Address |City | 
1 |Darmon  |Gilad |ishayahu |Haifa | 
2 |SM  |Shiran  |erez |RamatIshay  | 

D_Id |Name |OwnerLastName |OwnerFirstName  | 
a |Bono |Darmon  |Gilad | 
b |Bony |SM  |Shiran  | 

任何建议，为一个更好的和一致的打印？

Answer 1

使用format做出的cols排队：

user> (println (format "%20s %20s %20s\n%20s %20s %20s" 
       "short" "medium" "reallylong" 
       "reallylong" "medium" "short")) 

       short    medium   reallylong 
      reallylong    medium    short 
nil 
user> 

或留下%-20s

user> (println (format "%-20s %-20s %-20s\n%-20s %-20s %-20s" 
         "short" "medium" "reallylong" 
         "reallylong" "medium" "short")) 

short    medium    reallylong 
reallylong   medium    short 
nil 
user> 

Answer 2

(defn print-table [res] 
    (let [headers (map name (keys (first res))) 
     table (concat [headers] (map vals res)) 
     trans-table (apply map vector table) 
     cols-width (map #(apply max (map (comp count str) %)) 
         trans-table)] 
    (doseq [row table] 
     (println 
     (apply format 
       (str "|" (apply str (str/join "|" (map #(str "%-" % "s") 
                cols-width))) 
        "|") 
       row))))) 

(print-table res) 
=> |P_Id|LastName|FirstName|Address |City  | 
    |1 |Darmon |Gilad |ishayahu|Haifa  | 
    |2 |SM  |Shiran |erez |RamatIshay| 

Answer 3

证明这可能是有益的：

http://clojuredocs.org/clojure_core/clojure.pprint/print-table

Alpha - 可能会更改。 在文本表格中打印一组地图。打印表格标题 ks，然后输出每行的输出行，对应于密钥 ，单位为ks。如果未指定ks，请使用行中第一项的键。