Добрый день уважаемые формучане
Есть задание: написать программу которая будет выполнять:
Найти  среднее  арифметическое  всех  положительных  чисел   массива. Вывести на экран все числа массива, которые  больше, чем это среднее арифметическое.

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


Подскажите пожалуйста другие способы решения данной задачи...

# perl -MList::Util=sum -le '$a = sum (@ARGV)/($#ARGV+1); print "Num: $a"; print join ", ", grep { $_ > $a } @ARGV' 1 2 3 4 5 6 7 8 9 10
Num: 5.5
6, 7, 8, 9, 10
# 

arto, надо "Найти  среднее  арифметическое  всех  положительных  чисел   массива."

неужели мне надо сделать все домашнее задание для человека?

C:\Users\dixon>perl 2.pl
678910
а что вы хотели сказать 31-ой строкой кода? может быть если добавить return, то будет выглядеть адекватно.

Это сообщение отредактировал(а) dixoNICH - 7.10.2011, 12:32

dixoNICH, а зачем надо несколько раз рассчитывать $summ/$i?

почему несколько? 1 раз во 2-ом цикле ведь)

dixoNICH, а это выражение не на каждой итерации второго цикла вычисляется (в Вашем примере 18 раз)?

а да)

Всем спасибо за участие.
Но мои познания в перле скудны, так что додумался пока только до такого:

Что вполне меня устраивает

qw1mb0, у меня два предложения по Вашему коду:
зачем в отдельном цикле считать сумму, если ее можно рассчитать сразу в первом цикле, где push?
зачем в последнем цикле считать $sum/(scalar @a) на каждой итерации?

ginnie, Это да... Сначала у меня  $sum/(scalar @a) высчитывалось отдельно, потом просто что бы уменьшить обьем кода загнал туда.
Так как студент и программа пишется для выполнения работы. А преподаватель совсем не знает Perl, то сильно можно не гнаться за производительностью программы..

Но а так, спасибо, учту ваши комментарии и внесу эти поправки, во время оптимизации кода.

Прикольно)
А почему у меня не работает такая фигня:

Вроде из цикла выходит, а в тэг не заключает.
Можно как ниже, но всё равно интересно...


Это сообщение отредактировал(а) MakTpaxep - 13.10.2011, 09:57

возможно потому что next ничего не возвращает

Пора...
Пора видимо мне начинать с дебагером разбираться

Очередная задача по обработке одномерного массива
Задание: Преобразовать массив, умножив все положительные числа на   максимальное  число этого массива.

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

Как можно упростить код:


Заранее спасибо.

qw1mb0, три вопроса по коду: зачем массив @a, зачем для каждого элемента массива @b вызывать max() и зачем для вызова max() использовать синтаксис &max?

Но так конечно круче:


Это сообщение отредактировал(а) MakTpaxep - 19.10.2011, 17:20

1 вопрос: в массив @a заносятся положительные элементы > 0. 
2 вопрос:


3 вопрос: не знаю даже что ответить 

Для нахождения максимального элемента массива не требуется заносить все положительные значения в другой массив. Кто вам это подсказал?)

qw1mb0, в perldoc perlsub написано, что вызов &max аналогичен max(@_), поэтому если нет необходимости, используйте max().

Это сообщение отредактировал(а) dixoNICH - 19.10.2011, 18:23

dixoNICH, за такой код нас училка линейкой по рукам била в школе  

зато коротко и ясно 

По поводу краткости не спорю, а вот с ясностью беда: объясните, зачем Вы использовали grep?

Можно map вместо grep и будет короче ещё на 2 символа)

а что ещё надо было использовать? for? 

dixoNICH, мне кажется логичным использовать for. Когда программист вместо этого использует grep, сразу возникает затруднение с ясностью: зачем он это сделал, особенно, учитывая, что в первой части он используется в пустом контексте (void).

В ходе не долгих размышлений и конечно же благодаря вашим коментариям, особенно ginnie и MakTpaxep
Дошел  до такого кода:


Спасибо за помощь