函数

R 语言函数写法，显式优于隐式。

# 显式写法

add <- function(x, y) {
    return(x + y)
}

add(1, 2)

[1] 3

# 隐式写法

add1 <- function(x, y) x + y

add1(1, 2)

[1] 3

# 隐式写法

add2 <- function(x, y) {
    x + y
}

add2(1, 2)

[1] 3

循环实现阶乘。

阶乘 <- function(n) {
    if (n < 2) {
        return(1)
    } else {
        result <- 1
        for (i in 1:n) {
            result <- result * i
        }
        return(result)
    }
}

for (i in 0:10) {
    cat(i, 阶乘(i), '\n')
}

0 1 
1 1 
2 2 
3 6 
4 24 
5 120 
6 720 
7 5040 
8 40320 
9 362880 
10 3628800

R 语言不支持大数，实现阶乘意义不大。