在列表方案中的位置

Question

我不确定如何执行此操作，也无法在任何地方找到它的示例。如何在列表中找到值的位置。例如，我有一个(define findValue x lst)，它接受一个值和列表，我想从该列表中输入(findValue 3 '(1 2 0 8 5 6))，它应该返回 0，因为位置 3 的值是 0。根据我的理解，它通常是位置 3 会至少在数组中为 8 而不是 0。它在这里是如何工作的，我该如何解决这个问题？

谢谢！

Answer 1

试试：

(define (at n xs)
    (cond ((null? xs) xs)
          ((= n 1) (car xs))
          (else (at (- n 1) (cdr xs)))))

如下使用：

(at 3 '(1 2 0 8 5 6)) => 0

对于从零开始的索引，将第 3 行的 (= n 1) 检查更改为 (= n 0)。

编辑：所以你想部分应用at 函数？您只需要curry 和flip。它们的定义如下：

(define (curry func . args)
    (lambda x (apply func (append args x))))

(define (flip func)
    (lambda (a b) (func b a)))

使用curry 和flip，您现在可以部分应用at，如下所示：

(define position (curry (flip at) '(1 2 0 8 5 6)))

您现在可以按如下方式使用position：

(position 3) => 0
(position 4) => 8

希望有所帮助。

Answer 2

通常索引是从0开始计算的，你的理解是正确的。但是如果你需要实现一个从1 开始计算索引的findValue 过程，那么编写这个过程并不难：

(define (findValue idx lst)
  (cond ((or (null? lst) (negative? idx)) #f)
        ((= idx 1) (car lst))
        (else (findValue (sub1 idx) (cdr lst)))))

解释：

• 如果作为参数接收的列表为空或索引变为负数，我们将其视为特殊情况并返回#f 表示未找到该值
• 如果索引是1，那么我们就在我们想要的地方，所以是时候返回当前元素了
• 否则提前递归：从索引中减去 1 并在列表中前移一位

它按预期工作：

(findValue  3 '(1 2 0 8 5 6))
=> 0
(findValue -1 '(1 2 0 8 5 6))
=> #f
(findValue  7 '(1 2 0 8 5 6))
=> #f