作者cobain (笑哈哈)
看板perl
标题Re: [问题] get the same elements
时间Thu Mar 6 23:45:50 2003
※ 引述《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 ?
好像没有直接的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 < $#bb)
{
$i++ if ($aa[$i] lt $bb[$j]);
$j++ if ($aa[$i] gt $bb[$j]);
if ($aa[$i] eq $bb[$j])
{
print $aa[$i] . "\n";
$i++;
$j++;
}
}
--
※ 发信站: 批踢踢实业坊(ptt.csie.ntu.edu.tw)
◆ From: 140.112.30.183