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

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

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

> Еще не смотрел другие  решение, но вот мой вариант:

> # этот блок кода надо ускорить
> srand(123);
> my $dots = 39293;
> my (@color) = map Imager::Color->new(rand(255), rand(255), rand(255),
> 255 ), (1..30);
> my $dots_per_color = $dots/@color;
> foreach my $color (@color) {
>     $image->setpixel(
>         x => [map rand(1024), 1..$dots_per_color],
>         y => [map rand(1024), 1..$dots_per_color],
>         color => $color
>     );
> }

> Оригинальное:
> Time: 1.1980619430542
> File size: 344696
> Result: 287711.334124571

> Мое:
> Time: 0.078991174697876
> File size: 349384
> Result: 4423076.39222125


Твой вариант самый быстрый и дающий наилучший результат. Я
немного доработал твой вариант:

- srand(123);
+ srand(13);

и получил больший размер файла при том же времени:
File size: 366696
а значит мой вариант лучше ;-)


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