从方法中调用方法

Question

我对于Racket很新颖。我正在尝试编写一个程序来返回列表中的其他索引元素，并返回整个列表。我有两个单独的方法：一个递归方法给列表的索引元素，如果存在，否则给整个列表。但是，从另一个方法调用一个方法会给我错误。有人可以请指导我如何改变这个程序给我的整个列表，如果没有索引元素存在？例如，这个电话应该给我整个列表

（get-nth 2'（a b））; ==> A B

#lang racket 
(define get-nth 
    (lambda (index lst) 
    (if (= index 0)   ; when index is zero 
     (car lst)    ; return the first element 
     (get-nth (- index 1) ; else recurse with the decrement of index 
       (cdr lst))))) ; and all but the first element (the rest) of lst 
;; test 

由于提前，

Answer 1

对于这个工作，你就必须存储原始名单的地方。为了避免不必要的帮助函数，我们可以使用一个名为let来实现迭代，并保留原来的lst，以便我们必须返回它时。当然，我们必须为测试的情况下，当我们用完元素，因为给定的索引超出列表。这就是我的意思是：

(define get-nth 
    (lambda (index lst) 
    (let loop ((index index) (my-list lst)) 
     (cond ((null? my-list) lst) 
      ((= index 0) (car my-list)) 
      (else (loop (- index 1) (cdr my-list))))))) 

例如：

(get-nth 0 '(a b)) 
=> 'a 

(get-nth 2 '(a b)) 
=> '(a b)