- 阅读权限
- 255
- 威望
- 0 级
- 论坛币
- 5146 个
- 通用积分
- 270.3759
- 学术水平
- 8 点
- 热心指数
- 27 点
- 信用等级
- 8 点
- 经验
- 3658 点
- 帖子
- 110
- 精华
- 0
- 在线时间
- 195 小时
- 注册时间
- 2017-7-5
- 最后登录
- 2019-12-2
|
- prime <- function(x){
- if(x==1) return ("NULL")
- y <- c()
- a <- c(2:x)
- b <- min(a[which(x%%a==0)])
- x<-x/b
- if(x==1) return ("NULL")
- y <-c(y,b)
- while(!x==1){
- a <- c(2:x)
- b <- min(a[which(x%%a==0)])
- x<-x/b
- y <- c(y,b)
- }
- return(union(y,y))
- }
复制代码
根据百度百科改的一个
|
-
总评分: 经验 + 30
论坛币 + 20
查看全部评分
|