Ах ты блин. Максимального размера :) Это де факто надо усложнить сжатие до предела )))<div><br><div class="gmail_quote">26 октября 2012 г., 16:10 пользователь Akzhan Abdulin <span dir="ltr"><<a href="mailto:akzhan.abdulin@gmail.com" target="_blank">akzhan.abdulin@gmail.com</a>></span> написал:<br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div><font color="#222222" face="arial, sans-serif">Если я правильно понял ТЗ, то вот решение (надеюсь, там по умолчанию черный цвет заливки). :)</font></div>
<div><font color="#222222" face="arial, sans-serif"><br></font></div>
<div><font color="#222222" face="arial, sans-serif">Подсказка: нижней границы числа нечерных пискелов нет.</font></div><div class="im"><span style="color:rgb(34,34,34);font-size:13px;font-family:arial,sans-serif"><div>
<span style="color:rgb(34,34,34);font-size:13px;font-family:arial,sans-serif"><br></span></div>#!/usr/bin/perl</span><br style="color:rgb(34,34,34);font-size:13px;font-family:arial,sans-serif">
<span style="color:rgb(34,34,34);font-size:13px;font-family:arial,sans-serif">use strict;</span><br style="color:rgb(34,34,34);font-size:13px;font-family:arial,sans-serif">
<span style="color:rgb(34,34,34);font-size:13px;font-family:arial,sans-serif">use warnings;</span><br style="color:rgb(34,34,34);font-size:13px;font-family:arial,sans-serif">
<br style="color:rgb(34,34,34);font-size:13px;font-family:arial,sans-serif"><span style="color:rgb(34,34,34);font-size:13px;font-family:arial,sans-serif">use Imager;</span><br style="color:rgb(34,34,34);font-size:13px;font-family:arial,sans-serif">

<span style="color:rgb(34,34,34);font-size:13px;font-family:arial,sans-serif">use Time::HiRes qw(time);</span><br style="color:rgb(34,34,34);font-size:13px;font-family:arial,sans-serif">
<br style="color:rgb(34,34,34);font-size:13px;font-family:arial,sans-serif"><span style="color:rgb(34,34,34);font-size:13px;font-family:arial,sans-serif">my $filename = 'competition.jpg';</span><br style="color:rgb(34,34,34);font-size:13px;font-family:arial,sans-serif">

<span style="color:rgb(34,34,34);font-size:13px;font-family:arial,sans-serif">my $image = Imager->new(xsize=>1024, ysize=>1024);</span><br style="color:rgb(34,34,34);font-size:13px;font-family:arial,sans-serif">

<span style="color:rgb(34,34,34);font-size:13px;font-family:arial,sans-serif">my $before = time();</span><br style="color:rgb(34,34,34);font-size:13px;font-family:arial,sans-serif">
<br></div><div class="im"><span style="color:rgb(34,34,34);font-size:13px;font-family:arial,sans-serif">my $after = time();</span><br style="color:rgb(34,34,34);font-size:13px;font-family:arial,sans-serif">
<span style="color:rgb(34,34,34);font-size:13px;font-family:arial,sans-serif">$image->write(file=>$filename) or die $image->errstr;</span><br style="color:rgb(34,34,34);font-size:13px;font-family:arial,sans-serif">

<span style="color:rgb(34,34,34);font-size:13px;font-family:arial,sans-serif">my $filesize = -s $filename;</span><br style="color:rgb(34,34,34);font-size:13px;font-family:arial,sans-serif">
<span style="color:rgb(34,34,34);font-size:13px;font-family:arial,sans-serif">my $elapsed = ($after-$before) or die 'You are winner!';</span><br style="color:rgb(34,34,34);font-size:13px;font-family:arial,sans-serif">

<br style="color:rgb(34,34,34);font-size:13px;font-family:arial,sans-serif"><span style="color:rgb(34,34,34);font-size:13px;font-family:arial,sans-serif">print "Time: ",$elapsed,"\nFile size: ", $filesize, "\nResult: ",$filesize/$elapsed,"\n";</span><br style="color:rgb(34,34,34);font-size:13px;font-family:arial,sans-serif">

<br><br><br></div><div class="gmail_quote">26 октября 2012 г., 16:01 пользователь Михаил Монашёв <span dir="ltr"><<a href="mailto:postmaster@softsearch.ru" target="_blank">postmaster@softsearch.ru</a>></span> написал:<div class="im">
<br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div>#!/usr/bin/perl<br>
use strict;<br>
use warnings;<br>
<br>
use Imager;<br>
use Time::HiRes qw(time);<br>
<br>
my $filename = 'competition.jpg';<br>
my $image = Imager->new(xsize=>1024, ysize=>1024);<br>
my $before = time();<br>
<br>
# этот блок кода надо ускорить<br>
srand(123);<br>
for (my $i=0; $i<39293; $i++) {<br>
        my $color = Imager::Color->new(rand(255), rand(255), rand(255) );<br>
        $image->setpixel(x=>rand(1024), y=>rand(1024), color=>$color);<br>
}<br>
<br>
my $after = time();<br>
$image->write(file=>$filename) or die $image->errstr;<br>
my $filesize = -s $filename;<br>
my $elapsed = ($after-$before) or die 'You are winner!';<br>
<br>
print "Time: ",$elapsed,"\nFile size: ", $filesize, "\nResult: ",$filesize/$elapsed,"\n";<br></div></blockquote></div></div><br>
</blockquote></div><br></div>