Добрый вечер. Подскажите, пожалуйста, есть ли какая функция, с помощью которой, можно получить из массива заданное количество уникальных (не повторяющихся) элементов.

Если последовательность не важна, то



если последовательность важна, то



Это сообщение отредактировал(а) ginnie - 27.9.2009, 21:24

@mas = (1,2,3,12,3,3,4,4);
$count = 2;
map {$hash{$_}++} @mas;
foreach (keys %hash) { if ($hash{$_} == 1) { print "$_ => $hash{$_}\n" if $count > $i; $i++; }}

Добавлено @ 21:24
ginnie, а если такие условие?
@array = (1,2,3,4,5,1);
$count = 6;

После отработки 
41325 - хотя 1 - не уникальный элемент




Это сообщение отредактировал(а) DaemonSuw - 27.9.2009, 21:36

А по ресурсам не накладно на каждой итерации вычислять такое выражение, не подскажете? Возможно лучше инкрементную переменную ввести?

DaemonSuw, наверное я неверно понял задачу. Я прочитал "надо получить N уникальных в рамках нового массива элементов".

Это сообщение отредактировал(а) ginnie - 27.9.2009, 22:10

Pfailed, по идее, scalar keys %temp - должно браться из поля KEYS структуры HV (которая представляет хэш), поэтому не должно негативно влиять на производительность. Как дела обстоят на самом деле - не знаю, надо измерять.

Спасибо, ginnie. Спасибо, DaemonSuw. Очень помогли.

use strict;
use warnings;

# takes: $count, $arr_ref
sub uniq {
    my @singles;
    for(@{$_[1]}) {
        do { push(@singles, $_); last if @singles==$_[0] } unless($_ ~~ @singles);
    }
    return @singles;
}

my @source = qw(1 0 1 6 3 3 1 2 4 2 2 1 1 3 4 2 1 3 4 5 6);

$, = ",";
print uniq( 4, \@source); #1,0,6,3
print "\n";
print uniq(-1, \@source); #1,0,6,3,2,4,5
print "\n";
print uniq(50, \@source); #1,0,6,3,2,4,5

Не экономично, зато писать просто)

Почти классика:

если $num больше числа уникальных, вернет undefы чтобы заполнить @uniq до $num-1

Да, это серъезный недостаток кода.