Извиняюсь, я тут немного измеил условие, не в свою пользу. Только прозьба не обижаться, я не хочу никого обидеть, особенно автора этой задачи, очень интересная задача. Я лишь попытался усовершенствовать как условие, так и решение.
1. Отказался от данных первой и третьей строки, так как счёл их лишними. Насколько я понял, то первая строка содержит кол-во перключателей, что легко вычесляется программно таким образом:
| Код |
length(join("",split(/\s+/,$line)));
|
но и это не понадобилось, для решения данной задачи.
2. Если третий параметр - это общее кол-во вариантов разминирования, то это тоже не нужный параметр, так как код ниже пометит предложением - YES, все варианты которые подошли для разминирования, не в зависимости от того, насколько много варинтов в файле, пусть даже 50GB и никогда не убъёт оперативную память, лишь бы хватило дискового пространства.
3. Что бы не уничтожать данные в файле, я решил сохранять результаты в отдельный файл, с таким же именем + окончание ".temp", т.е. "bomba.dat.temp". Если кому-то понадобится всёже перезаписывать исходный файл "bomba.dat", достаточно раскоментировать последние 2 строки.
Мой файл "bomba.dat" выглядет так:
| Код |
0 1 1 0 1
3 2 3 4
3 1 4 5
2 4 5
2 2 4
2 3 5
1 5 1 3 2
|
где первая строка - это переключатели бомбы, а все остальные (их может быть сколько угодно) - предлагаемые варианты разминирования.
Вот код:
| Код |
#!/usr/bin/perl
my $file = "./bomba.dat";
my(@bomb,@temp,$i) = ();
open my $fh, "<", "$file" or die "Can't open file '$file': $!\n";
open my $wh, ">", "$file.temp" or die "Can't open file '$file.temp': $!\n";
flock($wh,2);
@bomb=split(/\s+/,$_=<$fh>);
while (<$fh>) {
chomp;
@temp = @bomb;
for my$p(split(/\s+/)){splice(@temp,$p-1,1,$temp[$p-1]?0:1)};
$_.=(join('',@temp)+0)?" - NO":" - YES";
print $wh "$_\n";
}
close($wh);
close($fh);
#unlink($file) or warn "Can't remove file '$file': $!\n";
#rename("$file.temp",$file) or warn "Can't rename file '$file.temp' to '$file': $!\n";
|
Здесь так же обрабатываются ошибки, потому код выглядит немного объёмным.
PS: На выходе у меня получился такой результат:
| Код |
3 2 3 4 - NO
3 1 4 5 - NO
2 4 5 - NO
2 2 4 - NO
2 3 5 - YES
1 5 1 3 2 - YES
|
|
