VPF::Решаем интересные задачи - Форум программистов

ivashkanet

Дата 6.12.2006, 20:46 (ссылка)

(нет голосов)

Загрузка ...

Кодю потиху

Профиль
Группа: Участник Клуба
Сообщений: 3684
Регистрация: 23.2.2006
Где: Гомель, Беларусь

Репутация: нет
Всего: 149

Baltazar5000, это задача неинтересная smile

Тебе в Центр помощи

--------------------

design, simplicity, and experience with a technology focus

Baltazar5000

Дата 6.12.2006, 21:37 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 70
Регистрация: 6.12.2006

Репутация: нет
Всего: нет

Ну раз не интересная решите, please.

AligatorV

Дата 7.12.2006, 00:27 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 11
Регистрация: 20.11.2006

Репутация: нет
Всего: нет

2 korob2001
А если не изменять условия?

korob2001

Дата 7.12.2006, 14:15 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2871
Регистрация: 29.12.2002

Репутация: нет
Всего: 61

Цитата(AligatorV @ 6.12.2006, 21:27

)

А если не изменять условия?

Тогда код получится менее гибкий. ;(((((

Код


#!/usr/bin/perl
open $fh,"<","bomba.dat" or die $!;
chomp(@info=<$fh>);
close($fh);
$info[1]=join("",(split(/\s+/,$info[1]))[0..$info[0]-1]);
for $nx (3..$info[2]+2) {
    $temp=$info[1];
    substr($temp,${_}-1,1)^=(substr($temp,${_}-1,1)+0) for $info[$nx]=~/(\d+)/g;
    push(@ok,$nx-2) unless ($temp+0);
}
open $fh,">","bomba.sol" or die $!;
flock($fh,2);
print $fh (@ok?"YES\n".join(",",@ok)."\n":"NO\n");
close($fh);

Это сообщение отредактировал(а) korob2001 - 7.12.2006, 14:25

--------------------

"Время проходит", - привыкли говорить вы по неверному пониманию.
"Время стоит - проходите вы".

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Интересные и занимательные задачи по программированию \| Следующая тема »