如何在方案中将向量除以4

Question

我有一个矢量列表（3 6 8 2）并希望将矢量的每个元素除以4并返回矢量

ex:- (div4 #(3 6 8 2))
     '#(3/4 6/4 8/4 2/4)

Answer 1

您可以使用vector-map将过程应用于向量的每个元素，如：

(define (div4 vec)
  (vector-map (lambda (x) (/ x 4)) vec))

例如，

> (div4 #(4 8 12 16))
'#(1 2 3 4)