原文已被版友以编辑原文的方式技术性自删，似乎得到协助立马自删，明显违背板规。
为维持看板整齐又不违背禁止自删的规则，手动救回。
希望这类“技术性自删”不要再发生。
作者 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
}