LINUXSOFT.cz
Nazwa użytkownika: Hasło:     
    CZ UK PL

> Komentarze :: článek Perl (46) - Užití odkazů a anonymní data

Vrat duplicity 12.11.2006 21:40
Hynek (Pichi) Vychodil
Tahle implementace vrat_duplicity je ponekud ehm ... no při trošku větších počtech prvků to bude bolet. Trochu elegantnější a hlavně rychlejší verze:
sub vrat_duplicity {
    my($r_p1, $r_p2) = @_;
    my %v_prvnim;
    @v_prvnim{@$r_p1} = ();
    return grep exists $v_prvnim{$_}, @$r_p2;
}
Složitost nám rázem poklesne z n^2 na cca n*(1+log2(n)) a to se vyplatí :-)
Re: Vrat duplicity 14.11.2006 14:32
Hynek (Pichi) Vychodil
Pro libovolný počet argumentů:
sub spolecne {
	my @seznamy = grep ref eq 'ARRAY', @_;
	return () unless @seznamy;
	my ($nalezene, %spolecne) = shift @seznamy;
	foreach (@seznamy) {
		@spolecne{@$nalezene} = ();
		$nalezene = [grep exists $spolecne{$_}, @$_];
		%spolecne = ();
	}
	return @$nalezene;
}

KOMENTARZE
Vrat duplicity 12.11.2006 21:40 Hynek (Pichi) Vychodil
  L Re: Vrat duplicity 14.11.2006 14:32 Hynek (Pichi) Vychodil
Tylko zarejestrowani użytkownicy mogą dopisywać komentarze.
> Szukanie oprogramowania
1. Pacman linux
Download: 4875x
2. FreeBSD
Download: 9063x
3. PCLinuxOS-2010
Download: 8561x
4. alcolix
Download: 10943x
5. Onebase Linux
Download: 9659x
6. Novell Linux Desktop
Download: 0x
7. KateOS
Download: 6240x

1. xinetd
Download: 2411x
2. RDGS
Download: 937x
3. spkg
Download: 4755x
4. LinPacker
Download: 9961x
5. VFU File Manager
Download: 3196x
6. LeftHand Mała Księgowość
Download: 7201x
7. MISU pyFotoResize
Download: 2806x
8. Lefthand CRM
Download: 3561x
9. MetadataExtractor
Download: 0x
10. RCP100
Download: 3117x
11. Predaj softveru
Download: 0x
12. MSH Free Autoresponder
Download: 0x
©Pavel Kysilka - 2003-2024 | mailatlinuxsoft.cz | Design: www.megadesign.cz