- Aiuto con la stampa di un tavolo

Question

Questa domanda probabilmente finirà con un facepalm, ma ci ho provato per un po 'e sono ancora bloccato nonostante la lettura attraverso l'iperspec.

Fondamentalmente quello che voglio fare è qualcosa di simile

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

ma invece di codificare il 5 dovrebbe essere calcolata dalla lista (lunghezza dell'elemento più lungo da qualsiasi lista annidata + 1) per dare qualcosa come

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

Forse sto pensando troppo complicato qua e là un modo più semplice per fare quello che voglio, ma penso che mi sono imbattuto in un angolo mentale che non riesco a uscire.

Answer 1

Supponendo che la larghezza richiesta è destinata a width, allora si può fare questo:

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

5 è stato sostituito da V e width è stato aggiunto come argomento per FORMAT/

modifica: la risposta originale non corrispondeva correttamente alle direttive nidificate

In una stringa di controllo del formato V può essere usato al posto di qualsiasi valore costante, indicando invece che il valore corrispondente deve essere preso dall'elenco degli argomenti.

Si può provare questo:

(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)) 

Questa stringa di formato richiede la larghezza desiderata far precedere ciascun valore. L'espressione (mapcar ...) completa ciò.

Answer 2

Penso che si hanno due opzioni: lasciare che la magia format andare e utilizzare altri costrutti di loop o generare la stringa di formato stesso:

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

La definizione di longest-member viene lasciato come esercizio per il lettore.