
平臺(tái) 論壇博客文庫(kù)

› 論壇 › 程序設(shè)計(jì) › Perl › perl 數(shù)組內(nèi)數(shù)據(jù)相互計(jì)算的問(wèn)題

最近訪問(wèn)板塊

查看: 3455 | 回復(fù): 4

perl 數(shù)組內(nèi)數(shù)據(jù)相互計(jì)算的問(wèn)題 [復(fù)制鏈接]

scriptshooks

白手起家

論壇徽章:: 0

電梯直達(dá)

1樓 [收藏(0)] [報(bào)告]

發(fā)表于 2015-05-01 14:33 |只看該作者 |倒序?yàn)g覽

本帖最后由 scriptshooks 于 2015-05-01 17:39 編輯

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

里面含有四組數(shù)據(jù)，怎么計(jì)算才能得到
每個(gè)元素四組數(shù)據(jù)相同的刪除，剩下兩個(gè)相減得到正數(shù)數(shù)組；
如下數(shù)組？？？
@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');

上面數(shù)組兩兩相減，（例第一個(gè)元素    029728-030718 得到 a ；204244-203254 得到 b ；)

(此位置是用勾股定理得出c的平方）最后得出的數(shù)組@y實(shí)際是c的開(kāi)方；

文庫(kù)|博客

使用正則表達(dá)式與lex實(shí)現(xiàn)詞法分析器
C語(yǔ)言的MIPS匯編實(shí)現(xiàn)（四）SWITCH
Requested init /linuxrc failed (error -2).
比較 csv 文件中數(shù)據(jù)差異
LMD ElPack v2019.7新版亮點(diǎn)：Transparent mode全新升級(jí)|附下載

jason680

富可敵國(guó)

論壇徽章:: 145

2樓 [報(bào)告]

發(fā)表于 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