[Moscow.pm] Конкурс
Ruslan Zakirov
ruz на bestpractical.com
Пт Окт 26 06:46:03 PDT 2012
2012/10/26 Михаил Монашёв <postmaster на softsearch.ru>:
> Возникла идея провести конкурс по творческому программированию.
> Участвовать может каждый. Достаточно прислать в лист свой вариант
> решения задачи.
Еще не смотрел другие решение, но вот мой вариант:
# этот блок кода надо ускорить
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
--
Best regards, Ruslan.
Подробная информация о списке рассылки Moscow-pm