用R语言实现

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

用R语言输出100~999中所有水仙花数

若三位数满足ABC＝A^3+B^3+C^3，则称为水仙花数。麻烦请帮我想想如何实现呢，谢谢。

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏2 回帖

关键词：R语言 如何实现 水仙花 ABC 如何 水仙花

将数字换为字符型，substr能按位置取字符 substr(text,start,end)，再转为数字计算

1. for(i in 100:999){
   
2.     temp <- as.character(i)
   
3.     A <- as.numeric(substr(temp,1,1)); B <- as.numeric(substr(temp,2,2)); C <- as.numeric(substr(temp,3,3))
   
4.     if(i==(A^3+B^3+C^3)){cat(i," ")}
   
5. }

复制代码

1. N1<-1:9
   
2. N2<-0:9
   
3. dig<-as.matrix(expand.grid(N1,N2,N2))
   
4. digsum<-rowSums(dig^3)
   
5. dignum<-dig%*%c(100,10,1)
   
6. dignum[dignum==digsum]

复制代码

万人往LVR 发表于 2015-8-6 17:07
将数字换为字符型，substr能按位置取字符 substr(text,start,end)，再转为数字计算

谢谢谢谢，还有一个请教，为什么会报错呢
a<-as.numberic(substr(char,1,1))
Error: could not find function "as.numberic"

十里春风 发表于 2015-8-6 18:50

谢谢你，哈哈。

小豆丁0101 发表于 2015-8-7 09:34
谢谢谢谢，还有一个请教，为什么会报错呢
a

as.numeric不是as.nuberic

万人往LVR 发表于 2015-8-7 09:45
as.numeric不是as.nuberic

哈犯了一个好低级的错误，谢谢。

小豆丁0101 发表于 2015-8-6 16:40
用R语言输出100~999中所有水仙花数若三位数满足ABC＝A^3+B^3+C^3，则称为水仙花数。麻烦请帮我想想如何实现 ...

正在学习R，路过～

十里春风 发表于 2015-8-6 18:50

这个更高级啊!

谢谢分享