История изменений

Исправление Deleted, 23.12.14 18:18 (текущая версия) :


sub twomaxum {
    my $sum += $_ * $_ for ( sort {$b <=> $a} @_ )[0, 1];
    return $sum;
}

работает не только с тремя переменными, а вообще с списком чисел. Ограничить количество можно procname($$$).

Исходная версия Deleted, 23.12.14 18:16:


sub twomaxum {
    my $sum += $_ * $_ for ( sort {$b <=> $a} @_ )[0, 1];
    return $sum;
}