看板 [ Perl ]
討論串[問題] get the same elements
共 4 篇文章
內容預覽： 開啟 | 關閉 | 只限未讀
首頁
上一頁
1
下一頁
尾頁
#1
[問題] get the same elements
推噓0(0推 0噓 0→)留言0則，0人參與, 最新作者easy1 ( ~_~ !)時間22年前 (2003/02/24 13:12), 編輯資訊
3
0
0
內容預覽:
@a = qw/a b c d e f/;. @b = qw/a c g h f d b/;. how can I get the same elements in @a and @b ?. --. ※ 發信站: 批踢踢實業坊(ptt.csie.ntu.edu.tw). ◆ From: 140.11
#2
Re: [問題] get the same elements
推噓0(0推 0噓 0→)留言0則，0人參與, 最新作者cobain (笑哈哈)時間22年前 (2003/03/06 23:12), 編輯資訊
0
0
0
內容預覽:
好像沒有直接的function能做到這樣的事. 不過你可以這樣做. @a = qw(a b c d e f);. @b = qw(a c g h f d b);. @aa = sort @a;. @bb = sort @b;. $i = $j = 0;. while ($i < $#aa && $j
(還有58個字)
#3
Re: [問題] get the same elements
推噓0(0推 0噓 0→)留言0則，0人參與, 最新作者littleshan (布丁珍奶加椰果)時間22年前 (2003/03/25 09:17), 編輯資訊
0
0
0
內容預覽:
foreach $i (@a){ push @c, grep($i eq $_, @b);}. --. ※ 發信站: 批踢踢實業坊(ptt.csie.ntu.edu.tw). ◆ From: 140.112.30.172.
#4
Re: [問題] get the same elements
推噓0(0推 0噓 0→)留言0則，0人參與, 最新作者parywu (一個會寫程式的人)時間22年前 (2003/04/19 03:22), 編輯資訊
0
0
0
內容預覽:
@c = grep { +{map { ($_,1)} @a}->{$_} } @b; # O(2n*log(n)). --. Pary All Rough Yet.. --. ※ 發信站: 批踢踢實業坊(ptt.csie.ntu.edu.tw). ◆ From: 61.64.145.132.
首頁
上一頁
1
下一頁
尾頁