VPF::Найти минимальный ненулевой элемент массива

steyraug

Дата 6.11.2010, 00:59 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 16
Регистрация: 22.8.2010

Репутация: нет
Всего: нет

Господи Иисусе.

Код


@a = sort {$a <=> $b} @a;
print shift(@a);

fleyta

Дата 6.11.2010, 01:27 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 10
Регистрация: 6.8.2008

Репутация: нет
Всего: нет

steyraug, и получаем 0, а также, что особо интересно:

Код


...
151,85
151,1
...

но решение классное и его можно допилить, спасибо! ;)

xido

Дата 6.11.2010, 01:52 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 32
Регистрация: 19.10.2010

Репутация: нет
Всего: нет

Цитата(steyraug @ 6.11.2010, 00:59)

Господи Иисусе.

Код


@a = sort {$a <=> $b} @a;
print shift(@a);

и вместо O(n) имеем O(n *log(n)) ы? ;)

Добавлено через 2 минуты и 4 секунды

Цитата(fleyta @ 6.11.2010, 00:48)

оу, сколько дебатов пропустила...
развею сомнения - если бы xido скачал бы мой файлик csv, то он увидел бы, что в данном конкретном случае разделителем является точка с запятой (уж какие данные дают), так что топикстартер в этом случае не ошибается ;)
насчет замены запятых на точки - с данными впоследствии проводятся некоторые арифметические операции, а perl -w имеет привычку сыпать в консоль все предупреждения, в результате чего хоть все и считается правильно (если не производить замену), но тем не менее куча ворнингов напрягает. поэтому и была произведена данная замена, чтобы переменная сразу воспринималась как число.

Добавлено @ 00:59
упс, xido, пардон. запамятовала, что я тут все повырезала и оставила только 1 столбец в csv, но поверьте - разделителями в исходном файле были именно ;

Гы, спасибо что развеяли сомнения ;)

А елси не секрет, зачем вам это?

steyraug

Дата 6.11.2010, 02:46 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 16
Регистрация: 22.8.2010

Репутация: нет
Всего: нет

Цитата

и вместо O(n) имеем O(n *log(n))

А есть вариант с O(n)?

xido

Дата 6.11.2010, 10:14 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 32
Регистрация: 19.10.2010

Репутация: нет
Всего: нет

Цитата(steyraug @ 6.11.2010, 02:46)

Цитата

и вместо O(n) имеем O(n *log(n))

А есть вариант с O(n)?

Ну да, просто перебор foreach(@data){$min= $_ if $_ < $min && $_ != 0}

Это сообщение отредактировал(а) xido - 6.11.2010, 10:15

fleyta

Дата 6.11.2010, 11:24 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 10
Регистрация: 6.8.2008

Репутация: нет
Всего: нет

Цитата(xido @ 6.11.2010, 01:52

)

А елси не секрет, зачем вам это?

для обработки результатов эксперимента. это всего лишь маленький кусочек скрипта, в котором и был затык))

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: Общие вопросы \| Следующая тема »