PLT方案内存

Question

所以我需要一些帮助来实现一个使用Scheme的Make-memory程序。我需要两条消息'write‘和'read’。所以它就像(mymem 'write 34 -116)和(mymem 'read 99)一样，对吗？和(定义mymem (make-memory 100)).....How我会在方案中实现这个吗？使用一个列表?我需要一些编码帮助。我有这段代码，它使make-memory成为一个过程，当你运行mymem时，你会得到((99.0))，我需要做的就是重复这一点，所以我得到了一个带点线对的列表(0.0)。那么对如何编码有什么建议吗？？有没有人知道我可以做些什么来重现和让消息写和读？？

(define make-memory
  (lambda (n)
    (letrec ((mem '())
             (dump (display mem)))
      (lambda ()
        (if (= n 0)
            (cons (cons n 0) mem) mem)
            (cons (cons (- n 1) 0) mem))
      (lambda (msg loc val)
        (cond
          ((equal? msg 'read) (display 
                               (cons n val))(set! n (- n 1)))
          ((equal? msg 'write) (set! mem 
                                     (cons val loc)) (set! n (- n 1)) (display mem)))))))


(define mymem (make-memory 100))

是的，这是一个任务，但是我写了这段代码。我只是需要一些帮助或方向。是的，我确实知道可变长度的参数列表。

Answer 1

您所在的类使用的设计食谱类似于How To Design Programs吗？

如果是这样的话，看起来你已经走到了第一步。

如果不是:你能用一组例子来指定你正在寻找的行为，然后把它们变成测试用例吗？

Answer 2

看起来你需要的是make-vector。

Answer 3

两个地方似乎是错误的(cons n 0)和(cons (- n 1) 0)，这就是为什么你得到(0。0)s，因为您将n或n-1计算到0上，而不是列表。