Всем тепла. И папуасам тоже.

Уральский камин!

Дух огня, начни игру, нам не начать без тебя,
В алых языках ритуального танца закружи гостей
Взойди над прахом ветхих знамен, взойди мечом похорон
Мы здесь, мы ждем сигнал, сигнал к началу дня.

Распиши горизонт кострами новых зарниц,
Вскрой душное небо скальпелем утренних птиц.
И хотя этот восход еще слишком молод, а закат уже слишком стар
Я начинаю петь, я вижу пожар.

"Алиса" - "Театр теней".

В субботу вечером мужик приходит в бар и встречает своего друга:
– Привет! Слышал, вчера у нас в городе театр сгорел дотла.
– Ничего себе! И что? Все живы или кто-то погиб?
– Погиб! Мойшу помнишь? Тот странный еврей, который в этом баре каждую субботу напивался в хлам и ко всем приставал. Весь театр сразу эвакуировали, а он в туалете был, замешкался и не успел выбежать.
– Вот это случай. И что? Сгорел?
– Нет… Выход огнем перекрыло, но он успел на крышу забраться и с неё спрыгнуть…
– Ёпрст! Разбился значит?
– С чего ты взял?! Пожарный-то не дураки. Они подушку надули специально, он на неё и прыгнул. Вот только отпружинил и обратно в окно театра.
– Значит, сгорел Мойша?
– Ты дай мне историю рассказать! Надоел ты уже! Он опять на крышу забрался и снова спрыгнул…
– Разбился?
– Нет! Отпружинил опять! Только в этот раз на тент КАМАЗа, который стоял недалеко. Потом от него опять на крышу театра.
– Твою мать! Как он погиб-то?!
– Да его из толпы застрелил кто-то нахрен. Надоел он всем….

Спасибо друХг.)) Скоро погреемся))

И вам с белкой тепла)

Во! Кстати печка самое то что надо. Спасибо, Миша. Тепло. Его так не хватает.

Точно!! Всем тепла! И особенно папуасам. Хотя вряд ли папуасам от языка Perl тепло, но вашему покорному слуге просто горячо!
#!/usr/bin/perl -W
use warnings;
use Scalar::Util qw(looks_like_number);

sub test {
@arr = ();
$i = 1;
while ($i <= 10) {
$elem = <STDIN>;
$isnum = looks_like_number($elem);
if (!$isnum){
print 'no number';
print "\n";
@arr = ();
last;
}
push @arr, $elem;
$i++;
}
@b = ();
print @arr;
for ($i = 0; $i < @arr; $i++){
for ($j = 0; $j < @arr; $j++){
next if $i == $j;
if ($arr[$i] == $arr[$j]) {
push @b, $arr[$i];
$n = $arr[$i];
for ($k = 0; $k < @arr; $k++) {
if ($arr[$k] == $n) {
splice @arr, $k, 1;
}
}
}
}
}
print "\n";
if($isnum){
print "Not repeat";
}
print "\n";
print @arr;
print "\n";
if($isnum){
print "Repeat";
}
print "\n";
print @b;
}
test();

А нам и не холодно...




- А где хозяин спит?
- На коврике, у двери.

(с) близкоктексту "Шарик в гостях у Бобика"
Или Бобик у Шарика, не помню: скИлироС)

А не пошел как ты в свой сраиль...

Тепла и запаха тайги... ну хоть свежераспиленной сосны))

Давайти)) Спасибо))
Нам оно нада..)