問1
> (nisizawa-acc 'hagya 'deposit 10000)
"incorrect password"
> (define acc (make-account 10000 'password))
> (acc 'password 'withdraw 3000)
7000
> (acc 'password 'withdraw 10000)
"Insufficient funds"
> (acc 'password 'deposit 1000)
8000
> (acc 'wrong 'withdraw 5000)
"incorrect password"
> (acc 'password 'withdraw 5000)
3000
> (acc 'wrong 'withdraw 1000)
"incorrect password"
> (acc 'pass 'deposit 1000)
"incorrect password"
> (acc 'word 'withdraw 1000)
"You're under arrest."

一覧 前へ 次へ