初学者问题, 刚刚启动了这个小阴影书并在我的macbook上安装了DrRacket来尝试一些代码示例。
如果我选择Racket语言,请输入以下代码
#lang Racket
(define (atom? x)
(and (not (pair? x)) (not (null? x))))
(atom? '())
(define lat?
(lambda (l)
(cond
((null? l) #t)
((atom? (car l)) (lat? (cdr l)) )
(else #f))))
(lat? (a b))
将触发错误消息:
a: unbound identifier in module in: a
如果我选择R5RS语言,
#lang R5RS
(define (atom? x)
(and (not (pair? x)) (not (null? x))))
(atom? '())
(define lat?
(lambda (l)
(cond
((null? l) #t)
((atom? (car l)) (lat? (cdr l)) )
(else #f))))
(lat? (a b))
我收到错误消息:
#%plain-module-begin: illegal use (not a module body) in: (#%plain-module-begin (module configure-runtime racket/base (require r5rs/init)) (define (atom? x) (and (not (pair? x)) (not (null? x)))) (atom? (quote ())) (define lat? (lambda (l) (cond ((null? l) #t) ((atom? (car l)) (lat? (cdr l))) (else #f)))) (lat? (a b)))
任何人都知道我做错了什么?
由于
答案 0 :(得分:1)
看起来最后一次通话应该是
(lat? '(a b))
......不是吗?
(另外:我建议一般使用#lang球拍,但我强烈怀疑你的问题R5RS出现是因为你“设置了两次语言”;如果用#lang R5RS开始你的程序,你就不会需要更改语言级别。相反,如果设置语言级别,则不应该使用#lang R5RS启动程序。如果同时执行这两项操作,我猜你会收到你看到的错误信息。)