免费注册 查看新帖 |

Chinaunix

  平台 论坛 博客 文库
最近访问板块 发新帖
查看: 3324 | 回复: 4

perl 数组内数据相互计算的问题 [复制链接]

论坛徽章:
0
发表于 2015-05-01 14:33 |显示全部楼层
本帖最后由 scriptshooks 于 2015-05-01 17:39 编辑

###Question1###
@f=('166362 404177 167061 404177', '166362 253296 167061 253296', '027176 353475 027176 354173',  '102416 353475 102416 354183');

里面含有四组数据,怎么计算才能得到
每个元素四组数据相同的删除,剩下两个相减得到正数数组;
如下数组???
@e=(0.699,0.699,0.698,0.708);
###################################################

##Question2####
@r=('029728 204244 030718 203254', '094587 198818 095726 203068',  '153319 318236 156006 320923','167871 320428 172797 319108');

上面数组两两相减,(例第一个元素      029728-030718 得到 a ;204244-203254 得到 b ;)

c1.jpg    (此位置是用勾股定理得出c的平方)最后得出的数组@y实际是c的开方;

论坛徽章:
145
技术图书徽章
日期:2013-10-01 15:32:13戌狗
日期:2013-10-25 13:31:35金牛座
日期:2013-11-04 16:22:07子鼠
日期:2013-11-18 18:48:57白羊座
日期:2013-11-29 10:09:11狮子座
日期:2013-12-12 09:57:42白羊座
日期:2013-12-24 16:24:46辰龙
日期:2014-01-08 15:26:12技术图书徽章
日期:2014-01-17 13:24:40巳蛇
日期:2014-02-18 14:32:59未羊
日期:2014-02-20 14:12:13白羊座
日期:2014-02-26 12:06:59
发表于 2015-05-04 20:38 |显示全部楼层
$ perl -e "@f=('166362 404177 167061 404177', '166362 253296 167061 253296', '027176 353475 027176 354173',  '102416 353475 102416 354183');"'@g=map{%h=();$s=0;$h{$_}++ for split;for(keys %h){$c++ if($h{$_}==1);$s+=$_*($h{$_}%2)*(-1)**($c%2)}$_=abs($s)}@f;print join(",",@g),"\n"'
699,699,698,708

论坛徽章:
46
15-16赛季CBA联赛之四川
日期:2018-03-27 11:59:132015年亚洲杯之沙特阿拉伯
日期:2015-04-11 17:31:45天蝎座
日期:2015-03-25 16:56:49双鱼座
日期:2015-03-25 16:56:30摩羯座
日期:2015-03-25 16:56:09巳蛇
日期:2015-03-25 16:55:30卯兔
日期:2015-03-25 16:54:29子鼠
日期:2015-03-25 16:53:59申猴
日期:2015-03-25 16:53:29寅虎
日期:2015-03-25 16:52:29羊年新春福章
日期:2015-03-25 16:51:212015亚冠之布里斯班狮吼
日期:2015-07-13 10:44:56
发表于 2015-05-04 21:04 |显示全部楼层
jason680 你键盘Enter键掉了吗,怎么不会换行啊

论坛徽章:
145
技术图书徽章
日期:2013-10-01 15:32:13戌狗
日期:2013-10-25 13:31:35金牛座
日期:2013-11-04 16:22:07子鼠
日期:2013-11-18 18:48:57白羊座
日期:2013-11-29 10:09:11狮子座
日期:2013-12-12 09:57:42白羊座
日期:2013-12-24 16:24:46辰龙
日期:2014-01-08 15:26:12技术图书徽章
日期:2014-01-17 13:24:40巳蛇
日期:2014-02-18 14:32:59未羊
日期:2014-02-20 14:12:13白羊座
日期:2014-02-26 12:06:59
发表于 2015-05-04 21:20 |显示全部楼层
回复 3# zhlong8

只用一次 打完就好 ...
   

论坛徽章:
0
发表于 2015-05-07 07:01 |显示全部楼层
多谢 jason680大神的回帖,有人帮忙感觉真好,再次感谢!!!!
您需要登录后才可以回帖 登录 | 注册

本版积分规则 发表回复

  

北京盛拓优讯信息技术有限公司. 版权所有 京ICP备16024965号-6 北京市公安局海淀分局网监中心备案编号:11010802020122 niuxiaotong@pcpop.com 17352615567
未成年举报专区
中国互联网协会会员  联系我们:huangweiwei@itpub.net
感谢所有关心和支持过ChinaUnix的朋友们 转载本站内容请注明原作者名及出处

清除 Cookies - ChinaUnix - Archiver - WAP - TOP