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