Вычетание одного массива из другого

[Podedinov]

Вот вопрос как можно вычесть один массив и из другого, допустим:

Код: Выделить всё

@a=(1,2,3,4,5,6,7,8,9);
@b=(1,2,3,4,5);

@a-@b=@c=(6,7,8,9);

[Хостинг HostFood.ru]

Тарифы на хостинг в России, от 12 рублей: https://www.host-food.ru/tariffs/hosting/
Тарифы на виртуальные сервера (VPS/VDS/KVM) в РФ, от 189 руб.: https://www.host-food.ru/tariffs/virtualny-server-vps/
Выделенные сервера, Россия, Москва, от 2000 рублей (HP Proliant G5, Intel Xeon E5430 (2.66GHz, Quad-Core, 12Mb), 8Gb RAM, 2x300Gb SAS HDD, P400i, 512Mb, BBU):
https://www.host-food.ru/tariffs/vydelennyi-server-ds/
Недорогие домены в популярных зонах: https://www.host-food.ru/domains/

[Гость]

В инете нашлось вот:

Код: Выделить всё

my @small = ( 1, 2, 3, 4, 5 );
my @big = ( 1, 2, 3, 4, 5, 6, 7, 8, 9, 0 );
my @res;
my %h;

foreach (@small)
{
    $h{$_} = 1;
}
foreach (@big) {
    push @res, $_ unless (defined($h{$_}));
}

в @res - результат

[ProFTP]

Код: Выделить всё

use Quantum::Superpositions;

 @a = (a,a,1,1,2,3,4,5,6,7,8,9,10);      # integers
 @b = (1,2,4,6,8,10,12,14,16,18,20); # doubled
# @c = @a;
my @unionAB        = sort { $a <=> $b } eigenstates( any(@a, @b) );
my @intersectionAB = sort { $a <=> $b } eigenstates( any(@a) != any(@b) );
my @differenceAB   = sort { $a <=> $b } eigenstates( any(@a) != all(@b) );

# print "@intersectionAB\n";
# print " @unionAB  \n";
 print "  @differenceAB  \n";

Код: Выделить всё

$ ./perl.pl
  a 3 5 7 9