|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Albert N. MICHEEV 2:5049/80 18 Jun 2001 14:39:02
To : Slava Korchagin
Subject : Óäàëèòü èç ìàññèâà îäèíàêîâûå ýëåìåíòû
--------------------------------------------------------------------------------
Ïpèâåò Slava!
ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
Îòâå÷àÿ íà ïèñüìî Slava Korchagin ê Albert N. MICHEEV îò <18 Èþí 01>:
SB>>>>> Êàê áûñòpåå âñåãî yäàëèòü èç ìàññèâà îäèíàêîâûå ýëåìåíòû?
AM>>> [bred]
AM>>> my %temp;
AM>>> @array = grep{ !$temp{$_}++ }@array;
AM>>> perldoc -q duplicate elements
SK>> ×èòàë. Hå ëþáëþ grep %) Hà ñàìîì äåëå, ÿ íàãëþ÷èë ñ benchmark è
SK>> ñâîé ïpèìåp ñ÷åë áîëåå áûñòpûì.
SK> Êñòàòè, â çàâèñèìîñòè îò yñëîâèé, ìîæåò ïpèãîäèòüñÿ èëè òî, èëè äpyãîå
SK> - òâîé ïpèìåp ñîõpàíÿåò ïåpâûé èç äyáëèêàòîâ, ìîé - ïîñëåäíèé.
@array = reverse grep{ !$temp{$_}++ }reverse @array;
ÇÛ: òû òîëüêî íå ñ÷èòàé ÷òî òâîè êîíñòpyêöèè áyäyò áûñòpåå âñòpîåííûõ, ìîæåøü
äàæå íå áåí÷ìàpêàòü
--- ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
* Origin: Ìû èç Ñîâåòñêîãî Ñîþçà, ïpèáûëè ïî êyëüòypíîìy îáìåíy. (2:5049/80)
Âåðíóòüñÿ ê ñïèñêó òåì, ñîðòèðîâàííûõ ïî: âîçðàñòàíèå äàòû óìåíüøåíèå äàòû òåìà àâòîð
|
