Страница 1 из 1
Сравнение элементов массива между собой в perl
Добавлено: 2010-04-06 9:04:02
Darnet
Вот такая ситуация, есть массив с пятью переменными, не подскажите как можно сравнить их между собой и в случаи равенства возвращать результат.
Re: Сравнение элементов массива между собой в perl
Добавлено: 2010-04-06 10:20:42
ProFTP
т.е. вам нужно удалить или найти дубликаты...?
как правло достаточно в многих случаях найти конкретный элемент, а в чем смысл вашей заморочки? или может я не понял...
UPD: короче, можете найти дубликаты и сделать с ними то что хотите...
Re: Сравнение элементов массива между собой в perl
Добавлено: 2010-04-06 10:37:49
Darnet
Нет найти дубликаты, а сравнить все элементы массива и если они равны вернуть значение.
Вот например я набросал:
Код: Выделить всё
@array = [1,1,2]
if(array[0] = array[1] && array[1] = array[2] && array[2] = array[3] ....)
Так записать не могу потому что количество элементов в массиве может быть разное.
Re: Сравнение элементов массива между собой в perl
Добавлено: 2010-04-06 10:50:16
ProFTP
Код: Выделить всё
#!/usr/bin/perl
use Quantum::Superpositions;
@a = (a,a,a);
print 1 if ( any(@a) eq all(@a) ) ;
Re: Сравнение элементов массива между собой в perl
Добавлено: 2010-04-06 12:17:50
Darnet
Спасибо все получилось.