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

[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

[kouzdra.livejournal.com]

Я помню, как где-то (кажется в su.softw) зашел спор на тему компактности.
Вылезла классическая задачка - есть файл со словами, разделеннымми пробелом.
Найти самое часто встречающееся слово и вывести сколько раз оно там.

Возникли, есс-но, любители Перла с "очень коротким решением". Я попробовал написать на Haskell - к моему собственному удивлению - оказалось короче.
И без "птичьего синтаксиса" :)

[pechkin.livejournal.com]

Здесь проблема, разумется, только в том, что самый дорогостоящий ресурс в наше время -- это рабочее время программиста. Сколько его потратится на изучение Хаскелла и написание на нем действительно короткого решения? "День потратить, потом за пять минут долететь"?