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

[Mons Anderson]

On 10/26/2012 06:15 PM, Михаил Монашёв wrote:
> Здравствуйте, Mons.
>
>> А то как-бы есть такой вариант:
>> $image->box( fill => { hatch => 'tile_L' } );
> А как ты ограничение на количество точек соблюдёшь?
там геометрическое распределение дает нам строго заданное кол-во черных
и нечерных точек.
Black: 442368; Nonblack: 606208

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

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

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";