Re: [問題] get the same elements

[parywu (一個會寫程式的人)]

※ 引述《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