Да, это не подходящее решение, не правильно понял условие. 

Это сообщение отредактировал(а) Evergreen - 23.5.2007, 20:55

[злостный оффтоп]
Akina к сожалению такй подход не работает
Все таки QVB гораздо более убогий чем просто VB. Ксатати как в чистом VB делать callback функции и динамически импортировать модули? Еще перегрузки функций не хватает...
Извиняюсь перед участниками за этот оффтоп
[/злостный оффтоп]

Цитата(maxim1000 @ 6.11.2004, 11:30)

так что при добавлении к очереди смотрим, не встречается ли там уже такой массив

Цитата(Nobody @ 7.11.2004, 15:03)

Посмотрю, есть ли в моём втором массиве оно или нет.

Ребята в теории всё замечательно Но КАК смотреть в очереди или массиве без цикла?

Итак ответ на Си++:
Победитель - Sardar.

Код

template <class NUMBER> NUMBER find(NUMBER * massiv, unsigned length) { NUMBER res=massiv[0]; for(unsigned i=1;i<length;i++){res^=massiv[i];} return res; }

Пожалуйста, сообщайте ваши персональные ответы сюда, только если ваш ответ будет элегантнее представленного
[s]

Цитата(ALEXANDRO @ 9.11.2004, 17:26)

на PHP

Гы-Гы Считай, что тоже самое

Код

<? function find($massiv) { $res=$massiv[0]; for($i=1;$i<count($massiv);$i++){$res^=($massiv[$i]);} return $res; } print("Ответ: ".find(array(21,7,1,4,7,9,21,43,4,43,1))); ?>

А что значит ^=?

Цитата(Secandr @ 9.11.2004, 20:50)

А что значит ^=?

это присваивание с исключающим ИЛИ,
a^=b грубо говоря a=a XOR b
но у меня такое чувство, что в стандартном С++ такого оператора нет.

Это сообщение отредактировал(а) Perchilla - 9.11.2004, 21:05

Цитата(Perchilla @ 9.11.2004, 20:03)

в стандартном С++ такого оператора нет

Как нет? Ксор был есть и будет есть

Ксор одинаковые биты 0,0 или 1,1 скидывает на 0, остаются только разные например:

100101^
111101
011000

То есть, два одинаковых числа дадут 000000 Таким образом остаётся только число, которое не имеет пары
ПС:
А ещё Ксор это функция сложения векторов в Z2

А ещё её можно записать так

Код

$res=((~$res)&$massiv[$i])|($res&(~$massiv[$i]));

Поскольку ксор это (~А&B)|(~B&A)

Цитата

Создать второй массив. Когда число встречается первых раз, записывать его в этот массив. Когда число встречается второй раз, удалять

Интересно а как ты будешь узнавать есть ли в массиве это число?

Код

#!/usr/bin/perl @arr = qw( 21 7 1 4 7 9 21 43 4 43 1 ); map { $temp{ $_ }++ } @arr; %temp = reverse %temp; print $temp{ 1 };

Работать будет только в том случае, если в массиве только одно число не имеет пары, все остальные числа могут быть в любом количестве, больше одного.

Это сообщение отредактировал(а) korob2001 - 1.12.2004, 20:30

Цитата(korob2001 @ 1.12.2004, 19:28)

Работать будет только в том случае, если в массиве только одно число не имеет пары, все остальные числа могут быть в любом количестве, больше одного.

Ну korob2001, map юзать нечестно! Так я любую проблему в финкцию запихаю, а потом скажу, что она решается одним действием.

Экстремальный вариант:

quicksort(@array)

дальше проходим массив и смотрим - если это первый элемент - следующий, если элемент Н = элементу Н-1, тогда следующий, элсе - ответ...;)

cybear Если H <> H+1 и H <> H-1

Цитата(cybear @ 1.12.2004, 22:23)

quicksort(@array)

Цитата(sergej @ 1.12.2004, 22:20)

Так я любую проблему в финкцию запихаю, а потом скажу, что она решается одним действием.

Цитата

Ну korob2001, map юзать нечестно! Так я любую проблему в финкцию запихаю, а потом скажу, что она решается одним действием.

А чем map хуже цикла? Можно вместо map поставить for и при этом мы ещё избавимся от двух фигурных скобок. Вот пример:

Код

#!/usr/bin/perl @arr = qw( 21 7 1 4 7 9 21 43 4 43 1 ); $temp{ $_ }++ for @arr; %temp = reverse %temp; print $temp{ 1 };

Можно и while:

Код

#!/usr/bin/perl @arr = qw( 21 7 1 4 7 9 21 43 4 43 1 ); $temp{ $_ }++ while ( $_ = shift @arr ); %temp = reverse %temp; print $temp{ 1 };

А вот foreach:

Код

#!/usr/bin/perl @arr = qw( 21 7 1 4 7 9 21 43 4 43 1 ); $temp{ $_ }++ foreach @arr; %temp = reverse %temp; print $temp{ 1 };

Просто, Perl делает свою работу и вариантов, как всегда, несколько. ;))))

Это сообщение отредактировал(а) korob2001 - 2.12.2004, 05:06

Код

@a = qw( 21 7 1 4 7 9 21 43 4 43 1 ); $c{$_}++  for @a; for (keys %c) { push @d, $_  if $c{$_} == 1 } print "@d";

это я был

Кстати korob2001 а что будет если начальный массив будет иметь > одного одиночного елемента ? ;)

уверен что ваше решение несработает.


Удалось таки убрать скобки

Код

@a = qw(8 21 7 1 4 7 9 21 43 4 43 1 ); $c{$_}++  for @a; push @d, $c{$_} == 1 ? $_ : next for keys %c; print "@d";

А вот за один проход ... тока отсортировать надо

Код

@a = qw(8 21 7 1 4 7 9 21 43 4 43 1 ); @a = sort {$a <=> $b } @a; for (my $i = 0; $i < @a; $i += 2) {    push @d, $a[$i] != $a[$i+1] ? $a[$i--] : next } print "@d";

Это сообщение отредактировал(а) ElectricalStorm - 13.12.2004, 04:04