※ 引述《mikemagic88 (Mikemagic88)》之铭言：
: 使用者输入1 印1-9
: 使用者输入2 印1-98 (11, 22, 33等重复的不印)
: 使用者输入3 印1-987 (121, 988, 667等有重复的不印)
#!/usr/bin/Rscript
cat("Enter a number: ")
n <- as.integer(readLines(file("stdin"), 1))
s <- formatC(seq(10**n - 1))
unique(vapply(lapply(strsplit(s, ""), unique), paste, character(1L), collapse = ""))
执行: Rscript file.R