형식 - 표 인쇄에 대한 도움말

Question

이 질문은 아마도 얼굴 표정으로 끝날 것이지만 나는 잠시 동안 시험을 보았고 hyperspec을 읽었음에도 불구하고 여전히 붙어 있습니다.

기본적으로 내가하고 싶은

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

같은 대신의 하드 코딩이 목록에서 계산해야 5 (중첩 된 목록 + 1에서 가장 긴 요소의 길이) 줄 뭔가 같은

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

어쩌면 내가 여기 너무 복잡하게 생각하고 내가 원하는 것을 할 수있는 쉬운 방법이 있습니다,하지만 난 내가 나갈 수없는 정신 구석으로 자신을 달렸다 생각합니다. format 마법은 형식 문자열 자체를 가서 다른 반복 구조를 사용하거나 생성 할 수 있습니다 : longest-member의 정의는 독자에게 연습 문제로 남겨

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

Answer 1

width에 바인딩되어, 당신은이 작업을 수행 할 수 있습니다

(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

나는 당신이 두 가지 옵션이 있다고 생각합니다. 필요한 폭을 가정

이