ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Dmitry Miheev                        2:5030/478.4   22 Apr 2000  08:54:58
 To : gold@ems.ru
 Subject : Re: Пересечение массивов
 -------------------------------------------------------------------------------- 
 

 
 In <8do5up$qql$1@www.office.ems.chel.su> wrote:
 
 >> Кто-нить может мне подсказать как делать пересечение и исключение
 ger >массивов?
 ger >По-моему только руками:
 ger >%filter = map {$_,1} @array1; @result = grep {$filter{$_}} @array2;
 ger >что такое исключение я не знаю, формализуй :)
 
 (1,2,3)
 (2)
 пересечение (2)
 исключение  (1,3)
 -- 
 [TTT] [LinuxRU #72624] [2:5030 / 478.4] [caba @ mail.ru] [ICQ 7316133]
 GEEK BLOOK 3.0: GCM/CS d- s: a- C++ UL++ P+ L++ E- W+ N+ o? K? w--- O?
 !M V? PS+ PE++ Y? PGP+ t? !5 !X R- tv- b+>++ DI? D G e h---- r+++ z+++
 --- ifmail v.2.14.os-p5
  * Origin: Kalipso (2:5030/478.4@fidonet)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор