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

    −155.2

    1. 1
    %words = map { $_ => $hash{$_} } grep { !proper($_) } keys %words;

    Фильтрация хэша - удаление элементов, чьи ключи не удовлетворяют некому условию.
    Конечно же использование православного for для Perl-истов ниже собственного достоинства.... :X

    Запостил: Balza, 25 Февраля 2010

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

    • ava guest 25.02.2010 22:46 # +1

      not proper($_) and delete $hash{$_} for keys %hash
      Ответить

    • ava guest 26.02.2010 00:53 # +1

      delete $h{$_} for grep { !proper($_) } keys %h;
      Ответить

    • ava guest 26.02.2010 10:44 # 0

      > Конечно же использование *православного* for
      не тронь timtowtdi!
      Ответить

    • ava klem4 26.02.2010 13:58 # 0

      timtowtdi

      delete @h{ map { $_ if bad ($_) } keys %h };
      Ответить

    • ava Oleg_quadro 02.03.2010 13:04 # 0

      тут наоборот, оставление только тех ключей, которые не удовлетворяют этому условию.
      Ответить

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