![[personal profile]](https://www.dreamwidth.org/img/silk/identity/user.png){kind=small}
imfromjasenevoВикопедия - великая вещь, а perl великий язык:))))
...Интересен текст на Perl, печатающий простые числа:
perl -wle '(1 x $_) !~ /^(11+)\1+$/ && print while ++ $_'
Еще один также впечатляющий своей краткостью пример, имеющий к тому же практическую пользу. Печатаются только уникальные строки файла file.
perl -ne '$s{$_}++ || print' file
http://ru.wikipedia.org/wiki/%D0%9F%D0%B5%D1%80%D0%BB_%28%D1%8F%D0%B7%D1%8B%D0%BA_%D0%BF%D1%80%D0%BE%D0%B3%D1%80%D0%B0%D0%BC%D0%BC%D0%B8%D1%80%D0%BE%D0%B2%D0%B0%D0%BD%D0%B8%D1%8F%29
...Интересен текст на Perl, печатающий простые числа:
perl -wle '(1 x $_) !~ /^(11+)\1+$/ && print while ++ $_'
Еще один также впечатляющий своей краткостью пример, имеющий к тому же практическую пользу. Печатаются только уникальные строки файла file.
perl -ne '$s{$_}++ || print' file
http://ru.wikipedia.org/wiki/%D0%9F%D0%B5%D1%80%D0%BB_%28%D1%8F%D0%B7%D1%8B%D0%BA_%D0%BF%D1%80%D0%BE%D0%B3%D1%80%D0%B0%D0%BC%D0%BC%D0%B8%D1%80%D0%BE%D0%B2%D0%B0%D0%BD%D0%B8%D1%8F%29