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

    −163

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    # There is a note that I completely do not
# understand how does it work and why.
# I've manager to guess it via  trial and
# error method. So be warned! :)
sub magic
{
        my ( $self, $others ) = @_;

        my $la = $self -> get_a();
        my $lb = $self -> get_b();

        my $x = ( ( reduce { ( ref( $a ) ? $a -> get_b() : $a ) + $b -> get_b() } @$others ) / scalar( @$others ) );
        my $y = ( $x ? ( $la / $x ) : ( $la ? log( $la ) : 0 ) );

        return ( $lb - ( $y ? log( $y ) : 0 ) );
}

    Магическое число. По этому числу в порядке возрастания сортируются менеджеры. Тот, у кого значение наименьшее, получает новое задание.

    Запостил: kainwinterheart, 18 Июля 2013

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

    • ava Dummy00001 20.07.2013 17:04 # +1

      строка 12 - самое извращенный способ реализации avg() которое я видел.

      наверное какой лиспщик писал - они любят с reduce()ом извращатся.
      Ответить

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