scheme

Question

我遇到的问题是，我已获得此代码进行测试并用于分析。除非我运行它，打印定义被抱怨。它一直在说 "print: undefined"

任何人都可以提供适合这个问题的打印定义吗？

(define (integral integrand initial-value dt)
  (define int
    (cons-stream initial-value
                 (add-streams (scale-stream integrand dt)
                              int)))
  int)

(define (RC R C dt)
  (define (vs is v0)
    (cons-stream v0
                 (add-streams (scale-stream is R)
                              (integral (scale-stream is (/ 1 C)) v0 dt))))
  vs)

(define RC1 (RC 5 1 0.5))
(define s (RC1 ones 10))
(do ((i 0 (+ i 1)))
  ((= i 30))
  (print (stream-ref s i)))

DrRacket 中必须使用的语言是 R5RS，我相信这就是打印定义未定义的原因

Answer 1

R5RS中没有定义print过程，用标准的display代替。如果需要插入换行符，使用(newline).

scheme - 打印在此代码中未定义

scheme - print is undefined in this code

stream

sicp

racket