全部版块 我的主页
论坛 数据科学与人工智能 数据分析与数据科学 R语言论坛
2103 8
2012-12-13
2012年12月4日晚10点左右,一位出生于2008年9月28日、名为刘恒毅的患儿在新华医院儿内科急诊就诊 (门诊号是72914131)。因医院进修医师在就诊过程中用药有误,现急需查找该名患儿。但因就诊时留下的手机号 (1312078088)有误,少一位号。院方多方多次联系他的家人未果。希望这位患儿的家人或知情者,速与新华医院便民服务中心。。。。联系。

下午,家属已经寻找到。(有人打电话打到的,QQ微博,QQ小窗口都在寻人今天很多人都关系此事,社会风气还是可以好的

现在应用如下:
在 1312078088  中插入0:9, 会得到一连串的电话号码, 可以利用群发短信系统,进行群发,增加寻找成功的几率!

现在,欢迎大家用R 来编此程序,得到 11位的电话号码。
编程方法肯定很多。。。。
二维码

扫码加我 拉你入群

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

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

全部回复
2012-12-13 22:25:52
tel=data.frame()
b=0:9
for(i in 3:11){
  a=matrix(rep(c(1,3,1,2,0,7,8,0,8,8,0),10),nrow=10,byrow=T)
  a2=a
  if(i<=10){
    for(j in i:10){
      a[,j+1]=a2[,j]
    }
  }else{a[,i]=b}
  a[,i]=b  
  tel <- rbind(tel,a)   
}
tel
tel2 <- paste(tel$V1,tel$V2,tel$V3,tel$V4,tel$V5,tel$V6,tel$V7,tel$V8,tel$V9,tel$V10,tel$V11,sep="")
tel.num<-as.numeric(tel2)

抛砖引玉下吧, 痛恨 paste(...)那个语句,打的累啊。。。。

此外,寻求算法简洁方式!!!!我这个方法 我不喜欢
二维码

扫码加我 拉你入群

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

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

2012-12-13 23:54:36
old <- as.character(1312078088)
new <- rep(NA, 90)
k <- 1
for (i in 3:11)
    for (j in 0:9) {
        new[k] <- as.numeric(paste(substr(old, 1, i-1), j, substr(old, i, 10), sep = ""))
        k <- k + 1
}
二维码

扫码加我 拉你入群

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

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

2012-12-13 23:59:00
qoiqpwqr 发表于 2012-12-13 23:54
old
厉害 我想等的就是 as.character(1312078088)
变为字符处理。
二维码

扫码加我 拉你入群

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

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

2012-12-14 00:02:28
qoiqpwqr 发表于 2012-12-13 23:54
old
膜拜啊!
二维码

扫码加我 拉你入群

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

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

2012-12-14 00:07:33
jmpamao 发表于 2012-12-14 00:02
膜拜啊!
可能还有更简单的函数,但是这个应该很直观的了。
二维码

扫码加我 拉你入群

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

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

点击查看更多内容…
相关推荐
栏目导航
热门文章
推荐文章

说点什么

分享

扫码加好友,拉您进群
各岗位、行业、专业交流群