А придумал шимми сумасшедший, го-во-рят

[pechkin]

Updated:

sna4ala tak:

my %missing_fields = map(map({$_ => 1} @$_), @{$data->{mandatory_fields}});

Potom tak:

	local *register = sub
	{
	    my ($rList, $idx) = @_;
	    my $sym = $rList->[$idx];
	    $rhState->{TmpData}->{ref($sym)} = {symbol => $sym, index => $idx};

	    map({map(delete($missing_fields{$_}), @$_) if grep($sym->isa($_), @$_)} @{$data->{mandatory_fields}});
	};

A potom pobeda:

return 1 unless keys(%missing_fields);

Kone4no, mozhno ew,e ubrat' koe-4to. Kto-to u4il nas, 4to net takoj programmy, kotoruju nel'zja bylo by sokratit' xotja by na 2 bajta.

Comments

[pechkin.livejournal.com]

Ну вот, а Ларри как раз учит не пользоваться слабыми. Что же делать?

[totev.livejournal.com]

Бог его знает. В моей жизни было два запоминающихся языка, perl и xslt. Первый - шизофренически красивый, второй - язык типсов и триксов, где для каждой малой нужды есть способ сделать её через жопу, а простых способов нет, язык-квест. Ни на том ни на другом сейчас не пишу ("мы перестали лазить в окна к любимым женщинам...")