矢量格式化以显示球拍

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

其显示与灵活的一个元素一个宽度为。