R语言问题求助

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

考虑某银行的存取系统。设open.account()为开户函数，deposit()为存款函数，withdraw()为取款函数，balance()为存取款平衡函数,模拟客户的存取过程如下：
open.account=function(total){
     list(
     deposit=function(amount,total){
     if(amount==0)
     stop('Deposits must be positive!\n')
     total=total+amount
     cat(amount,"deposited. Your balance is",total,"\n\n")
     },
     withdraw=function(amount,total){
     if(amount>total)
     stop("You don't have that much money!\n")
     total=total-amount
     cat(amount,"withdraw. Your balance is",total,"\n\n")

     },
     balance=function(total){
     total=total
     cat("Your balance is",total,"\n\n")
     total}
       )
    }
跪求分析：当运行这段代码时，total参数是怎么传递的？假设如下调用
total=100
ross=open.account(total)
ross$withdraw(30)
ross$balance()##怎么使得这条命令成功运行？
总感觉total函数的调用有问题？

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：R语言问题 R语言 withdraw function positive function positive balance deposit amount

open.account=function(d.amount, w.amount){
     list(
     deposit=function(d.amount){
     if(d.amount<0)
     stop('Deposits must be positive!\n')
     total<<-total+d.amount
     cat(d.amount,"deposited. Your balance is",total,"\n\n")
     },
     withdraw=function(w.amount){
     if(w.amount>total)
     stop("You don't have that much money!\n")
     total<<-total-w.amount
     cat(w.amount,"withdraw. Your balance is",total,"\n\n")

     },
     balance=function(){
     cat("Your balance is",total,"\n\n")
     total}
       )
    }


total=100
ross=open.account(0,0)  
ross$balance()   
ross$deposit(20)   

ross$withdraw(30)