形式 - テーブルを印刷するのに役立つ

Question

この質問はおそらくfacepalmで終わりますが、私はしばらく試してみましたが、ハイパースペックを読んでいてもまだ固執しています。

は基本的に私は何をしたい

(format t "~{|~{ ~5d~}|~%~}" '((1 23 2 312) (23 456 1 7890))) 

のようなものではなく、ハードコーディング、それはリストから計算しなければならない5（任意のネストされたリスト+ 1から最長要素の長さ）を得たものです以下のような

| 1 23  2 312| 
| 23 456  1 7890|  

たぶん私はここにあまりにも複雑で考えていますし、私が欲しいものを行うための簡単な方法がありますが、私は、私はから抜け出すことができない精神的なコーナーに自分自身を走ったと思います。

Answer 1

：

(format t "~{|~{ ~Vd~}|~%~}" width '((1 23 2 312) (23 456 1 7890))) 

5は Vと widthに置き換えられていますが FORMAT/

への引数として追加されました編集：元の答えは、ネストされた指示を正しく説明していませんでした

フォーマット制御文字列Vは、定数値の代わりに使用できます。これは、代わりに対応する値が引数リストから取得されることを示します。

あなたはこれを試すことができます。

(setf width 5) 
(setf data '((1 23 2 312) (23 456 1 7890))) 

(format t "~{|~{ ~{~Vd~}~}|~%~}" 
    (mapcar #'(lambda (r) (mapcar #'(lambda (v) (list width v)) r)) data)) 

このフォーマット文字列は、それぞれの値の前に所望の幅が必要です。 (mapcar ...)式がこれを達成します。

Answer 2

私は次の2つのオプションを持っていると思います：format魔法が行くと使用する他のループ構造をまたはフォーマット文字列自体を生成してみましょう：

(defun facepalm-printer (lol) 
    (format t (format nil "~~{|~~{ ~~~ad~~}|~~%~~}" 
        (longest-member lol)) 
      lol)) 

longest-memberの定義は読者への課題として残されています。そして、あなたがこれを行うことができ、必要な幅がwidthにバインドされていると仮定すると、