#R#简单的抽签

午饭，公司点餐，现在都是一个人在点。为了增加点乐趣，大家觉得抽签。所以，搞了个简单的不能再简单的东西了，见R code:

 person.sample <- function(person,type)
{

# type=T,是有放回抽签；Type=F，是不放回抽签，可以自己选择是否有放回；

#person,待抽签的人名List

# perface
print("让我们开始抽签吧！")
print("===============================")
print("抽到的同学，依次为：")

set.seed(as.numeric(Sys.time()))

# sample
sample.data <- sample(1:length(person),length(person),replace=type)

#print

i <- 1:length(person)

print(paste(i,person[sample.data],sep=":",collapse=";"))

print("抽签完毕")
print("=================================")
print("如果不满意，请打10086咨询!!!!")

 }