А где про этот Кворум почитать-то можно? Ато кроме исходников на сурсфорже ничего нету.

Да это по ходу чисто университетская разработка «для своих».

Оно на Java написано. Уверен, что тебе это интересно?

Да ужс-ужс...

class Main
    action Main
        integer toPrint = 1
        
        repeat from 1 to 3
            repeat 3 times
                integer un = 0
                repeat until un = 3
                    integer wh = 0
                    repeat while wh < 3
                        toPrint = toPrint + 1
                        wh = wh+ 1
                    end
                    un = un + 1
                end
            end
        end
        print toPrint
    end
end

ну так perl не для всякого быдла.

Хм. Я как человек, только-только (аж 2 дня) начавший изучать perl, считаю, что ничего ужасно дикого в Figure 1. (b) Perl нету.

Зато рандомо это просто 3,14... Кворум.. Мне почему-то как человеку находящемуся в несоседней с программированием галактики кворум напоминает то ли Си, то ли кубейсик. О_о

Еще одно предложение всем ездить на трехколесных велосипедах. Не нужно.

>значительно более читаемые программы

По ссылке не ходил, как и чем они там читаемость программ измеряли?

Там используется термин clean вообще-то. Никакой такой беспримерной чистоты я там так и не обнаружил.

Годно.

>ничего ужасно дикого в Figure 1. (b) Perl нету
Обрати внимание, как они результат возвращают. Но это претензия не столько к перлу, сколько к авторам примера

Тьфу, блин, не QPAN, конечно, а CQAN.

aborted due to compilation errors.

Каша - она не в Perl-е, она в голове!

Вот навскидку:

#!/usr/bin/perl

use warnings;
use strict;

sub z($$$) {
	my ($a,$b,$c) = @_;
	my $d = scalar 
			grep { $_ % $c == 0} 
			$a..$b;
	return $d > $b-$a-$d? $d : $b-$a-$d;
}

my $x = z 1,100,3;
print "x = $x\n";

Идиотам на Перле писать нельзя, да.

> Идиотам на Перле писать нельзя, да.

Некроманту запрети, кстати. Пипец, в сабже хоть понятно было, что прога делает, а тут жуть какая-то. Надо было map в grep засунуть и из него return делать, чтоб наверняка.

Давайте конкрус на самую непонятную реализацию этого алгоритма запилим.

Для разогрева

sub do_work {                                                        
    my @a = shift .. shift;                                          
    my @d = grep { $_ % $_[0] } @a;                                  
    return scalar (@d > @a/2 ? @d : @a - @d)                         
}

Для разогрева

И чем он не понятнее некромантовского?

def func(a, b, c):
    return max(reduce(lambda (a,b), r: (a + (r % c == 0), b + (r % c != 0)), xrange(a, b+1), (0, 0)))

твой не на перле

Щас прямо novices сходу вкурят, как работает ternary hook. Я сам его боюсь и не пользуюсь от греха подальше.