Dr.racket初级功能

Question

我是 dr.racket 的初学者。我被要求编写一个执行以下操作的函数：编写一个不消耗任何内容的函数"readnum"，每次调用它时，它将产生定义列表的第 N 个数字。

示例：

(定义一个(列表0 2 -5 0))

readnum --> 0（第一次调用readnum）

readnum --> 2（第二次调用readnum）

readnum --> -5（第三次调用readnum）

您不必担心列表中确实有数字或没有数字可供阅读的情况。

Dr.racket 是一种函数式语言，改变变量并将它们用作计数器非常不方便，在这个问题中我不允许定义其他全局函数和变量（虽然允许局部）。这是我的尝试，但它似乎不起作用：

(define counter -1)
(define lstofnum (list 5 10 15 20 32 3 2))
(define (read-num)
((begin(set! counter (+ 1 counter)))
(list-ref lstofnum counter)))

不仅我定义了不允许的全局变量，输出也不完全正确。

任何帮助将不胜感激，谢谢！

Answer 1

这里的技巧是在实际定义函数之前声明一个局部变量，这样状态将在闭包内，我们可以根据需要更新它。

我们可以使用 list-ref 并保存当前索引来实现解决方案，但不推荐这样做。最好将列表和 cdr 存储在它上面直到到达末尾，这就是我的意思：

(define lstofnum (list 0 2 -5 0))

(define readnum
  (let ((lst lstofnum))              ; list defined outside will be hardcoded
    (lambda ()                       ; define no-args function
      (if (null? lst)                ; not required by problem, but still...
          #f                         ; return #f when the list is finished
          (let ((current (car lst))) ; save the current element
            (set! lst (cdr lst))     ; update list
            current)))))             ; return current element

它按预期工作：

(readnum)
=>  0
(readnum)
=>  2
(readnum)
=> -5
(readnum)
=> 0
(readnum)
=> #f

Dr.racket初级功能

Dr.racket Beginner Level function

racket