矢量格式化以顯示球拍

Question

我做了使用向量的向量像這樣一個多維向量：我想知道，如果有任何球拍的功能，可以幫助我輸出

#(#(1 1 1 1 1) #(1 1 1 1 1) #(1 1 1 1 1) #(1 1 1 1 1) #(1 23 1 1 1)) 

它想：

(1 1 1 1 1) 
(1 1 1 1 1) 
(1 1 1 1 1) 
(1 1 1 1 1) 
(1 23 1 1 1) 

（注：由23的間距變化）

我一直在閱讀相關文件，並未能找到任何東西。如果我需要爲它編寫我自己的功能，那麼我有什麼想法來實現這樣的事情？

Answer 1

在流程，你可以簡單地用做一個for循環：

(for ([i vector]) 
    (display (vector->list i)) 
     (display "\n")) 

同時，如果你需要一些格式的位置：

(displayln (string-join (for/list ([j (vector->list i)]) 
      (~a j #:width (count-digits (* n n)) #:align 'right)))) 

(define (count-digits a) (if (< a 10) 1 (+ 1 (count-digits (/ a 10))))) 

其顯示與靈活的一個元素一個寬度爲。