PERL-GOLF: Первая игра (Ну что, поехали?)

[sergius]

Поиграем-поиграем!!! Всех надеру :P

[WarlorD]

ага давайте попробуем еще разок, а то в тот раз я как-то не успел поучаствовать.

[t.t]

ага давайте попробуем еще разок, а то в тот раз я как-то не успел поучаствовать.

↑

Дык, предлагай задание - поиграем

↑

[pcodr]

Вписал в гугле "perl golf" и набрел на эту тему.
Понимаю что опоздал с ответом , но всеже... Относительно задачи топикстартера получилась программа в 88 символ:

Код: Выделить всё

sub find
{
    map{find($_="$_[0]/$_")||say if!/^\.\.?$/}((new DirHandle$_[0])||return)->read
}

Директивы:

use DirHandle;
use feature 'say';

Думаю стоит возродить тему. Только не знаю создать отдельный топик или здесь продолжать?
Как придумаю задачу напишу. Если кто раньше придумает пишите.

[pcodr]

Это снова я Вспомнил про старый добрый globbing, поэтому вариант программы сократился до 60-ти символов:

Код: Выделить всё

sub find
{
    map{-d$_?find($_):say if!m@/\.\.?$@}<$_[0]/{.*,*}>
}

Директивы:

Код: Выделить всё

use feature 'say';

Над новой задачей еще думаю...