Pull to refresh
18
0
Рудольф Ставрогин @FreeTibet

User

Send message

Был там лет 7 назад. Показалось, что все прям очень дико. Интересно, как все изменилось за это время. Но, имхо, странный выбор - жить рядом с океаном и не купаться ) А что про кайтинг не упомянули? Там прям хорошо с этим было.

У меня T430 б/у, всем доволен.
Хозяйке на заметку:
«Спать следует не более шести часов в сутки. Тот, кто спит больше шести часов, несомненно, находится под влиянием гуны невежества. Человек в гуне невежества ленив и любит долго спать.»

Бхагавад-Гита.

Таписец. Трейсер никогда не даст такого результата, что представил автор статьи.
В смысле если чуть-чуть подправить руками, только если не чуть-чуть. В большинстве случаях легче отрисовать.
Но никто не спорит, что трейсеры полезная штука, но в отрисовке эскизов.
Или так (без вложенного цикла):
use strict;
use warnings;

my @list = (2, 5, 1, 2, 3, 4, 7, 7, 6);

my @copy = @list;

my $vol = 0;
my $tmpvol = 0;

for (my $x = 1; $x < @copy; $x++) {
    if ($copy[$x] < $copy[$x - 1]) {
       $tmpvol += $copy[$x - 1] - $copy[$x];
       $copy[$x] = $copy[$x - 1];
       next;
    }
    $vol += $tmpvol;
    $tmpvol = 0;
}

my $level = 0;
if ($tmpvol) {
   for (my $x = @list - 1; $x > 0; $x--) {
       last if $list[$x] >= $copy[$x];
       $level = $list[$x] if $list[$x] > $level;
       $tmpvol -= $copy[$x] - $level;
   }
   $vol += $tmpvol;
}

print "Volume = $vol\n";


Еще вариант:

use strict;
use warnings;

my @list = (2, 5, 1, 2, 3, 4, 7, 7, 6);

my $vol = 0;
my $y = 1;
my $do = 1;

while($do) {
    $do = 0;
    my $linevol = 0;
    for (my $x = 1; $x < @list; $x++) {
        next if $list[$x - 1] < $y;
        if ($list[$x] < $y) {
            $list[$x] = $y;
            $linevol++;
            next;
        }
        $vol += $linevol;
        $linevol = 0;
	$do = 1;
    }
    $y++;
}

print "Volume = $vol\n";

йа тупой.
правильное решение:

use strict;
use warnings;

my @list = (2, 5, 1, 2, 3, 4, 7, 7, 6);
my $max = (sort { $a <=> $b } @list)[-1];

my $vol = 0;
my $y = 1;

while(1) {
    my ($left, $right);
    my $linevol = 0;
    for (@list) {
        if (!$left && $_ >= $y) {
            $left = 1;
            next;
        }
        if ($left && $_ >= $y) {
            $vol += $linevol;
	    $linevol = 0;
            $right = 1;
            next;
        }
        $linevol++ if $left && $_ < $y; 
    }
    last unless $right;
    $y++;
}

print "Volume = $vol\n";

Решение «в лоб»:
use strict;
use warnings;

my @list = (2, 5, 1, 2, 3, 4, 7, 7, 6);
my $max = (sort { $a <=> $b } @list)[-1];

my $vol = 0;

for (my $y = $max; $y >= 0; $y--) {
    my $left = 0;
    my $right = 0;

    for (my $x = 0; $x < @list; $x++) {
       next if $list[$x] < $y;
       $left = $x + 1;
       last;
    }

    for (my $x = $#list; $x > $left; $x--) {
       next if $list[$x] < $y;
       $right = $x - 1;
       last;
    }

    for (my $x = $left; $x < $right; $x++) {
       $vol++ if $list[$x] < $y;
    }
}

print "Volume = $vol\n";


Открыл топик для того, чтобы проверить, будет ли этот коммент первым.
Спасибо, заменил ссылку.
Оттуда же:
«Those cannot be reversed but could be cracked, in particular if the password chosen is weak»
По всей видимости какой-либо хэш, но без соли.
ну, они говорят: «Passwords are not stored in clear-text but as an obfuscated value. », что бы это не значило :)
Очень удивило, когда внезапно исчезла возможность просмотра истории сообщений за год и осталось только за три месяца.
Не хочу выделяться, но слышал, что многие корпорации, и как ни странно, наркоторговцы — стремительным домкратом переходят на Brosix. Сам сижу на скайпе и удивляюсь насколько он неудобен и продолжает ухудшаться.
chat.ru образца 1997 года:
web.archive.org/web/19970717163954/http://www.chat.ru/

i-connect.ru образца 1997 года
web.archive.org/web/19971210060234/http://www.i-connect.ru/

null.ru образца 1998 года
web.archive.org/web/19981206203909/http://www.null.ru/
Еще раньше чем Жюль Верн, этим приемом пользовался Чарльз Диккенс в «Записках Пиквикского Клуба»
Я же написал: пусть выкладывает пару первых глав.
Если то, что он пишет, действительно круто, думаю у него все получится.

Пример с Глуховским подтверждает, что метод, в принципе, рабочий.
Книжка, по литературным качествам, конечно, ниже всякого плинтуса, но тем не менее, многим нравится.
1
23 ...

Information

Rating
Does not participate
Location
Краснодарский край, Россия
Date of birth
Registered
Activity