带一个参数

# \(power) is short for function(power)
pow_of_two <- \(power) 2^power
pow8 <- pow_of_two(8)
# pow8 = 256

pow_of_three <- function(power) 3^power
pow3 <- pow_of_three(3)
# pow3 = 27

cat("pow8 =", pow8, "\n")
cat("pow3 =", pow3, "\n")