在方案中进行迭代循环

Question

刚接触这里的计划，我在学习 do 循环时遇到了一些麻烦。我正在尝试创建一个函数，该函数将接受一个对象和一个向量，然后迭代该向量直到找到该对象。当找到该对象时，它将返回一个列表，其中包含向量中该对象之前的所有项目。我的代码如下。它会返回的是 do 循环经历了多少次迭代，而不是我想要的列表。如果有人可以帮助我解决语法问题，我将不胜感激。谢谢！ （理想情况下会返回 (1 2)）

    (define(vector-test-iterative X Vector)    
      (do ((i 0 (+ i 1))) (< i (vector-length Vector))
          (if (eqv? X (vector-ref Vector i))
              (= i (vector-length Vector))
              (cons (vector-ref Vector i) (ls '())))
          ls))


(vector-test-iterative '4 #(1 2 4 3 5))

Answer 1

如果您使用 Racket，则无需使用 do，反正这在阴谋者中从来不流行。有各种各样的迭代器——在文档中查找 for 以及以 for 开头的东西。例如，您的代码归结为

#lang racket
(define (values-before x vector)
  (for/list ([y (stop-before (in-vector vector)
                             (lambda (y) (eqv? x y)))])
    y))

（如果您确实想使用 do，那么您在测试周围缺少一对括号，并且您应该为累加器添加绑定。）

Answer 2

使用命名循环的解决方案。比 do 版本更干净（在我看来！），并且应该适用于任何 R5RS 方案：

;; Extracts the sublist of `lst` up to `val`. 
;; If `val` is not found, evaluates to an empty list.
(define (upto val lst)
  (let loop ((res null) (lst lst))
    (cond ((null? lst) null)
          ((eq? val (car lst)) (reverse res))
          (else (loop (cons (car lst) res) (cdr lst))))))

;; Adapts the above procedure to work with vectors.
(define (vector-upto val vec)
  (list->vector (upto val (vector->list vec))))

;; test
(vector-upto 6 #(1 2 3 4 5))
=> #0()
(vector-upto 5 #(1 2 3 4 5))
=> #4(1 2 3 4)
(vector-upto 3 #(1 2 3 4 5))
=> #2(1 2)
(vector-upto 1 #(1 2 3 4 5))
=> #0()