一个数质因数的分解

最新推荐文章于 2021-02-24 22:15:10 发布

2018每天打卡

最新推荐文章于 2021-02-24 22:15:10 发布

阅读量433

点赞数

分类专栏： R

本文链接：https://blog.csdn.net/jqm299299/article/details/81107321

版权

R 专栏收录该内容

25 篇文章 0 订阅

订阅专栏

合数的质因数分解

90 = 233*5

source("D:/R/2018/7月18判断素数.R")
f <- function(n)
{
  if(n>=2)
  {
    if(is_prime(n))
    {
      cat("\n")
      print("n是素数")
    }
    else
    {
      re <- NULL
      i <- 2
      while(n>=2)
      {
        if(n%%i ==0&(is_prime(i)))
        {
          re <- c(re,i)
          n <- n/i
        }
        else
        {
          i <- i+1
        }
      }
      return(re)
    }
  }
}
plyr::alply(matrix(5:104,nrow  = 100), 1, f)