討論串[問題] 質因數分解
共 4 篇文章
首頁
上一頁
1
下一頁
尾頁
內容預覽:
利用recursive function求解. fn=function(k){. if(k%%1!=0|k<=1) return(k). i=2. repeat{. if(k%%i==0) {. return(c(i,fn(k%/%i))). }. if(i==k) return(k). i=i+1
(還有20個字)
內容預覽:
供你參考:. factorizePrime <- function(num){. isPrime <-function(num){. return(sum(num %% 1:floor(sqrt(num)) == 0) <= 1). }. FindMidTwo <- function(num){.
(還有317個字)
內容預覽:
PS: 希望你這個不是作業,作業要自己做XD. primefactor <- function(num){. p <- which(num %% 1:num == 0). isPrime <- function(num){. return(sum(num %% 1:num == 0) == 2).
(還有2017個字)
內容預覽:
[問題類型]:. 效能諮詢(我想讓R 跑更快). [軟體熟悉度]:. 入門(寫過其他程式,只是對語法不熟悉). [問題敘述]:. 質因數分解. [程式範例]:. 想寫一個程式對正整數n作質因數分解. 目標是n<10^8 可以1min跑完. 我的程式大概要6~7min 改進空間應該很大. 而太慢的主因
(還有528個字)
首頁
上一頁
1
下一頁
尾頁