The OpenNET Project / Index page

[ новости /+++ | форум | теги | ]



Индекс форумов
Составление сообщения

Исходное сообщение
"Язык Perl еще далек от забвения, несмотря на заявления 'анал..."
Отправлено Аноним, 09-Ноя-09 15:53 
>> [i for i in xrange(0,20,2)]          
>> [0, 2, 4, 6, 8, 10, 12, 14, 16, 18]
>> [i for i in xrange(20,0,-3)]
>> [20, 17, 14, 11, 8, 5, 2]

А если шаг меняется в процессе цикла ? :P

>> Вы покажите пример, где жизненно необходим C-style for.

Да что ж вам везде мерещится жизненная необходимость ? Итерация или смерть ... Вы знакомы с понятием удобства ? Вот мне например удобней написать конструкцию вида
for ($i=0; ($i < 100) && (-e "$i.txt"); $i++) {}

чем делать лишний if в цикле

>простой пример: вам нужно последовательность в виде m положительных полупериодов синуса.
>про случайную последовательность случайной длины взято http://www.ibm.com/developerworks/ru/library/l-pycon/index.html

Мой день всегда начинается с чашки кофе и расчета последовательности в виде m положительных полупериодов синуса. И знаете, я очень страдаю, что мне приходится писать это на перле...

>У меня был более жизненный пример. Представьте, что у вас есть некий
>большой набор измерений за сутки (M) и есть некая величина(v), рассчитываемая
>на основе этих данных.
>Задача: рассчитать допустимый процент потерь исходных данных (M) при известном проценте отклонения
>для конечного результата(v) и получить данные для диаграммы погрешность v от
>процента потерь.

... к вечеру у меня часто накапливается некий большой набор изменений за сутки(M), и сразу же, как назло, появляется некая величина(v) которую нужно рассчитать на основе этих данных. И что бы вы думали - я опять мучаюсь с перлом.

>>Предположим, мы хотим получить поток случайных чисел меньших единицы, которые подчиняются обратному ограничению. А именно: мы хотим, чтобы каждое следующее число было по крайней мере на 0.4 больше или меньше предыдущего. Более того, сам поток не бесконечен, а заканчивается после случайного числа шагов. Например, мы прервем его, как только появится число меньшее 0.1. Описанные ограничения несколько схожи с теми, что можно найти в алгоритме "случайного блуждания", причем условие окончания напоминает "локальный минимум", но, определенно, эти требования мягче, чем при решении реальных задач.

Предположим это вы хотите получить список случайных величин с подобными ограничениями. За 8 лет программирвоания мне ни разу не понадобилось ничего подобного
$a[0] = rand;
for ($i=rand, $len = 1; $i > 0.1; $i=rand) {
    if (abs($a[$len-1] - $i) > 0.4) {
    push(@a, $i);
    $len++;
    }
}


>И вообще... перл, такой чудный перл:

use strict;

>Ахренеть... я хотел проверить существование переменной, зачем вызывать функцию?
>Расскажите, как узнать, что функция уже определена, но без её вызова?

Только после того как расскажете зачем писать такой код.

>И как узнать, что нам вернула некая функция: строку, число, список, хеш
>или функцию?

perldoc -f ref

 

Ваше сообщение
Имя*:
EMail:
Для отправки ответов на email укажите знак ! перед адресом, например, !user@host.ru (!! - не показывать email).
Более тонкая настройка отправки ответов производится в профиле зарегистрированного участника форума.
Заголовок*:
Сообщение*:
 
При общении не допускается: неуважительное отношение к собеседнику, хамство, унизительное обращение, ненормативная лексика, переход на личности, агрессивное поведение, обесценивание собеседника, провоцирование флейма голословными и заведомо ложными заявлениями. Не отвечайте на сообщения, явно нарушающие правила - удаляются не только сами нарушения, но и все ответы на них. Лог модерирования.



Партнёры:
PostgresPro
Inferno Solutions
Hosting by Hoster.ru
Хостинг:

Закладки на сайте
Проследить за страницей
Created 1996-2024 by Maxim Chirkov
Добавить, Поддержать, Вебмастеру