[Moscow.pm] Конкурс

[Михаил Монашёв]

Здравствуйте, Mons.

>>> А то как-бы есть такой вариант:
>>> $image->box( fill => { hatch => 'tile_L' } );
>> А как ты ограничение на количество точек соблюдёшь?
> там геометрическое распределение дает нам строго заданное кол-во черных
> и нечерных точек.
> Black: 442368; Nonblack: 606208

Пока  не смог въехать, как оно рисует. Там квадратик 8х8 заполняется и
этот  рисунок множится. Кстати сжатие его совсем не портит. На глаз во
всяком случае.

> И кстати хорошо-бы отвалидировать варианты решения с рандомом.
> Там возможно попадение в ту-же самую точку.

Согласен подсчёт количества нечёрных точек необходим. А то если те же линии
рисовать, то их уже не посчитать.

>>  Присылай код,
>> короче :-)
>>
>>

> Да какой тут код? ))

> my $filename = 'competition.jpg';
my $image = Imager->>new(xsize=>1024, ysize=>1024);
> my $before = time();

> # этот блок кода надо ускорить

$image->>box( fill => { hatch => 'tile_L' } );

> my $after = time();
$image->>write(file=>$filename) or die $image->errstr;

> my $filesize = -s $filename;
> my $elapsed = ($after-$before) or die 'You are winner!';

> print "Time: ",$elapsed,"\nFile size: ", $filesize, "\nResult:
> ",$filesize/$elapsed,"\n";

У меня он дал много белых точек. Явно больше, чем нужно. От того и
файл вырос почти вдвое.

-- 
С уважением,
 Михаил                          mailto:postmaster на softsearch.ru