18/08/09 18:11:15.09 JutZ+/A9.net
ボケ予防に再帰関数の勉強中
# 総和を再帰関数で書く
sumR <- function(v){
if (length(v)==0) 0
else v[1] + Recall(v[-1])
}
> sumR(1:10)
[1] 55
# 掛け算を再帰関数で定義する。
VAT <- function(n,m=1.08){
if(n==0) 0
else Recall(n-1) + m
}
> VAT(250)
[1] 270
18/08/09 18:11:15.09 JutZ+/A9.net
ボケ予防に再帰関数の勉強中
# 総和を再帰関数で書く
sumR <- function(v){
if (length(v)==0) 0
else v[1] + Recall(v[-1])
}
> sumR(1:10)
[1] 55
# 掛け算を再帰関数で定義する。
VAT <- function(n,m=1.08){
if(n==0) 0
else Recall(n-1) + m
}
> VAT(250)
[1] 270