The OpenNET Project / Index page

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



Вариант для распечатки  
Пред. тема | След. тема 
Форум Разговоры, обсуждение новостей
Режим отображения отдельной подветви беседы [ Отслеживать ]

Оглавление

Анонсирован Perl 7, opennews (??), 24-Июн-20, (0) [смотреть все]

Сообщения [Сортировка по времени | RSS]


100. "Анонсирован Perl 7"  –1 +/
Сообщение от Анонимemail (100), 25-Июн-20, 15:46 
Короткие скрипты на перле писать очень удобно. Но вот в таком я так и не разобрался
<code>map {  print "\t $_" if (1 x $_) !~ /^1?$|^(11+?)\1+$/ } 1..10001</code>
Ответить | Правка | Наверх | Cообщить модератору

106. "Анонсирован Perl 7"  +/
Сообщение от ioshuaemail (?), 25-Июн-20, 18:04 
> Короткие скрипты на перле писать очень удобно. Но вот в таком я
> так и не разобрался
> <code>map {  print "\t $_" if (1 x $_) !~ /^1?$|^(11+?)\1+$/
> } 1..10001</code>

Подозреваю, что самостоятельно в подобном вообще мало кто разобрался.

Ответить | Правка | Наверх | Cообщить модератору

109. "Анонсирован Perl 7"  +3 +/
Сообщение от Cradle (?), 25-Июн-20, 18:21 
вот ведь колдунство! конвертирует число в строку из числа единиц, потом выводит только те в которых
- единица не одна
- и строку нельзя разбить на равоное число груп по две и больше единиц в каждой.
Простые числа выводит короче, доказывая попутно полноту pcre по тюрингу.

Разобраться то можно, а вот кто такое придумал?

Ответить | Правка | К родителю #100 | Наверх | Cообщить модератору

158. "Анонсирован Perl 7"  +/
Сообщение от Anonymoustus (ok), 27-Июн-20, 10:51 
Действительно.

А если не задавать жёстко диапазон, а оформить в виде скрипта, который будет запрашивать ввод у пользователя — получится полезная программа.

Ответить | Правка | Наверх | Cообщить модератору

155. "Анонсирован Perl 7"  +/
Сообщение от анонимно (?), 27-Июн-20, 10:01 
"Тому, кто это придумал, надо гвоздь в голову забить" (с) ДМБ
А вообще конечно такие конструкции нужно снабжать комментариями.
А ещё лучше если есть вероятность что это будет видеть хотя бы ещё один человек то не писать так вообще
Ответить | Правка | К родителю #100 | Наверх | Cообщить модератору

174. "Анонсирован Perl 7"  +/
Сообщение от Cradle (?), 27-Июн-20, 18:16 
у этого перла ценность скорее академическая
Ответить | Правка | Наверх | Cообщить модератору

Архив | Удалить

Рекомендовать для помещения в FAQ | Индекс форумов | Темы | Пред. тема | След. тема




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

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