我写了一个相对简单的银行账户功能,但是当我尝试运行它时,我得到一个TypeError,我不知道为什么?它直接来自SICP,因此解决方案随时可用,我只是想了解为什么我的答案会产生错误。有什么想法吗?这是我的代码:
(define (make-password-account balance password)
(define (withdraw amount)
(if (>= balance amount)
(begin (set! balance (- balance amount))
balance)
"Insufficient Funds"))
(define (deposit amount)
(set! balance (+ balance amount))
balance)
(define (dispatch users-guess-at-password m)
(if (eq? users-guess-at-password password)
(cond ((eq? m 'withdraw) withdraw)
((eq? m 'deposit) deposit)
(else (error "Unknown Request --make-account" m)))
"INVALID PASSWORD"))
dispatch)
以下是口译员的相关口译员输入和输出:
..loaded function...
>(define acc (make-password-account 100 'secret))
acc
>((acc 's 'withdraw) 2)
;Stack Trace:
0 TypeError: The object "Invalid Password" is not applicable.
1 ((acc (quote s) (quote withdraw) 2)
答案 0 :(得分:3)
目前您的代码正在执行此操作:
((acc 's 'withdraw) 2)
((dispatch 's 'withdraw) 2)
("INVALID PASSWORD" 2)
=> TypeError: The object "INVALID PASSWORD" is not applicable.
您必须处理输入的密码错误的情况。因为如果密码不正确,您无法对帐户执行任何有用的操作,您应该发出错误信号并停止执行,例如替换此行:
"INVALID PASSWORD"
有了这个:
(error "INVALID PASSWORD")
现在,该过程将返回有意义的错误消息并停止执行。或者,如果发出错误信号太强烈,您可以返回一个字符串,如@molbdnilo所示。再次为建议的过程替换"INVALID PASSWORD"
,无论它接收什么作为参数都将返回错误字符串:
(lambda (x) "INVALID PASSWORD")
现在执行将如下所示:
((acc 's 'withdraw) 2)
((dispatch 's 'withdraw) 2)
((lambda (x) "INVALID PASSWORD") 2)
=> "INVALID PASSWORD"
答案 1 :(得分:1)
由于您传递了错误的密码,
(acc 's 'withdraw)
即
(dispatch 's 'withdraw)
评估为
"INVALID PASSWORD"
并且你试图将其应用于数字2,但你不能,因为它不是一个函数。
您可以使用函数而不是字符串,类似于其他情况:
(lambda (x) "Invalid password")