[問題] (救回) 找出佩服數

[andrew43 (討厭有好心推文後刪文者)]

原文已被版友以編輯原文的方式技術性自刪，似乎得到協助立馬自刪，明顯違背板規。
為維持看板整齊又不違背禁止自刪的規則，手動救回。
希望這類「技術性自刪」不要再發生。


 作者  TwIsAcountry (台灣國)                                 看板  R_Language
 標題  [問題] 找出佩服數
 時間  Mon Dec 18 14:45:48 2017
───────────────────────────────────────


[問題類型]:

程式諮詢(我想用R 找出1~n的佩服數 但卡在不知道怎麼從向量一個一個抽出因數檢驗)


[軟體熟悉度]:
新手(沒寫過程式，R 是我的第一次)

[問題敘述]:
找出1~n的佩服數

佩服數的定義是自已所有的因數加上自己本身後扣掉2倍的某個因數後會等於自己本身

EX:20是佩服數 因為20的因數為:1 2 4 5 10 20
(1+2+4+5+20)-2*1=20*2
我卡在不知道怎麼讓他一個一個減減看
[程式範例]:


div <- function(a){
  divNumberlist <- c()
  for (b in 1:ceiling(a/2)){
    if (a%%b == 0){
      divNumberlist <- c(divNumberlist,b)
    }
  }
  divNumberlist

  }





AdmirableNumber <- function(a){
  AdmirableNumberlist<-c()
  for(b in 2:a){
    for(i in 1:length(div(a)))

    if((sum(div(b))))+b-2*div[i]==2b){

      AdmirableNumberlist<-c(AdmirableNumberlist,b)
    }
  }

}
{
  AdmirableNumberlist
}

--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 59.125.45.28
※ 文章網址: https://www.ptt.cc/bbs/R_Language/M.1513582249.A.224.html
→ andrew43: 若原文中有留下推文的板友，歡迎再次留言。
推 sacidoO: 感謝版主熱心推