1. Perl / Говнокод #16565

    −159

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    7. 7
    8. 8
    9. 9
    my @args = (
	one => 1,
	two => 2,
	three => 3,
);

croak(q/'hashes' only/) if (@args & 1);

my $args = join ';', map { join '=', @args[$_, $_ + 1] } grep { !($_ & 1) } 0 .. $#args;

    Осилил, блин...

    Запостил: Elvenfighter, 19 Августа 2014

    Комментарии (4) RSS

    Добавить комментарий