如何用r求一个数的最大质因数

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

想了好久没有想出来，有大神可以帮忙解答下嘛

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：如何用 质因数

先要会算法，写r code 不难

1. prime <- function(x){
   
2.   if(x==1) return ("NULL")
   
3.   y <- c()
   
4.   a <- c(2:x)
   
5.   b <- min(a[which(x%%a==0)])
   
6.   x<-x/b
   
7.   if(x==1) return ("NULL")
   
8.   y <-c(y,b)
   
9.   while(!x==1){      
   
10.       a <- c(2:x)
    
11.       b <- min(a[which(x%%a==0)])
    
12.       x<-x/b
    
13.       y <- c(y,b)
    
14.       }
    
15.   return(max(y))
    
16. }

复制代码

参考之前的帖子，把union改成max
https://bbs.pinggu.org/forum.php?mod=viewthread&tid=5986371&page=1#pid46704368