Re: [問題] get the same elements
※ 引述《easy1 ( ~_~ !)》之銘言：
: @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 ?
@c = grep { +{map { ($_,1)} @a}->{$_} } @b; # O(2n*log(n))
--
Pary All Rough Yet.
--
※ 發信站: 批踢踢實業坊(ptt.csie.ntu.edu.tw)
◆ From: 61.64.145.132
討論串 (同標題文章)
Perl 近期熱門文章
PTT數位生活區 即時熱門文章
