1

我写了一个相对简单的银行账户函数,但是当我尝试运行它时,我得到一个 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)
4

2 回答 2

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"
于 2014-03-04T14:02:02.470 回答
1

由于您输入了错误的密码,

(acc 's 'withdraw)

那是,

(dispatch 's 'withdraw)

评估为

"INVALID PASSWORD"

并且您正在尝试将其应用于数字 2,但您不能,因为它不是一个函数。

您可以使用函数而不是字符串,类似于其他情况:

(lambda (x) "Invalid password")
于 2014-03-04T10:15:59.143 回答