1. 首頁
  2. 問答
  3. 如何減去數組/陣列減去數組的數組 - PERL

如何減去數組/陣列減去數組的數組 - PERL

2014-02-24 159 views
0

我有一個像下面陣列，我不能找到很好的解決方案，使它的工作原理：如何減去數組/陣列減去數組的數組 - PERL

我@a = QW（A A B C C d d）;

my @b = qw（A B C C D）;

，因此我想獲得：@a - @b =（A d）

感謝您的幫助！

來源

2014-02-24 Lucas

+0

你要找的僞代碼，提示如何做到這一點，或者代碼做呢？因爲我們沒有看到你已經投入了任何工作來獲得解決方案。 – AntonH

+0

代碼或只是一個適當的命令。 我試過了： my @ new = grep {not $ _ ~~ @B} @A; 以及從該命令： http://search.cpan.org/~zmij/Array-Utils-0.5/Utils.pm 但它不工作，我想看看 – Lucas

+2

[這裏]（http://stackoverflow.com/questions/4891898/how-to-subtract-an-array-from-an-array） – AntonH

回答

2 
my %b; 
++$b{$_} for @b; 
grep { --$b{$_} < 0 } @a

來源

2014-02-24 13:49:17 ikegami

+0

我試過這個，現在看起來很好！ 非常感謝您的幫助！ – Lucas

相關問題

 相關問題