Перестановки

[BDA]

А никакого сообщения не выдает кроме ошибки?
ПС В какую систему проверки сдаете?

[Helen236]

Сообщение от BDA

А никакого сообщения не выдает кроме ошибки?
ПС В какую систему проверки сдаете?

Ничего больше н6е пишет кроме ошибки.
Сдаю на http://acmp.ru/asp/forum.asp

[Serge_Bliznykov]

Ничего больше н6е пишет кроме ошибки.

ошибку пишет? если да - то какую?
в какой строке пишет?

[Helen236]

Сообщение от Serge_Bliznykov

ошибку пишет? если да - то какую?
в какой строке пишет?

Compilation error - Ошибка компиляции. В результате компиляции не создан исполняемый файл. Возможная причина: Синтаксическая ошибка в программе или неверно указано расширение файла. А строку не указывает, т.к. это не говорит о том, что получается неверное решение.

[BDA]

Во-первых,

Леонтьев Петр Николаевич, 08 апреля 2012 г. 10:50:24 2
Все решения ловят ошибку компиляции!

(на главной странице сайта).
Во-вторых,

Дана строка, состоящая из N символов. Требуется вывести все перестановки символов данной строки в лексикографическом порядке без повторений.

Входные данные

Входной файл INPUT.TXT содержит строку из N символов (1 <= N <= 8).

Выходные данные

В выходной файл OUTPUT.TXT выведите все элементы искомой последовательности по одному в каждой строке.

Ввод-вывод - файловый.

[Helen236]

Сообщение от BDA

Во-первых, (на главной странице сайта).
Во-вторых,
Ввод-вывод - файловый.

так понятно, что файловый, но при ошибке компиляции задача не считается решенной

[BDA]

Но мы то не знали, что файловый (хотя это не должно влиять).

[Helen236]

Сообщение от BDA

Но мы то не знали, что файловый (хотя это не должно влиять).

это же не меняет решение, только дописывается пару строк

[Serge_Bliznykov]

короче.
пришлось зарегистрироваться в этой "Школе"...

во-первых, я не знаю, что Вы там вносите, но ОБА варианта (и исходный (с) TinMan и доработанный мной ) проходили компиляцию. УСПЕШНО!!!!
То, что они давали Wrong Answer на 4-м тесте, это уже другой вопрос.

второе. мои попытки улучших производительность согласно статистики сайта только УХУДШИЛИ её.
впрочем, и мой вариант и TinMan более чем укладываются во временные рамки.

мои результаты

вот программки, которые прошли успешно все тесты:

(c) TinMan

procedure Permute(t,s: string);
var
  i: integer;
begin
  if s='' then
    writeln(t)
  else
    for i:=1 to Length(s) do
      if Pos(s[i],s)=i then
        Permute(t+s[i],Copy(s,1,i-1)+Copy(s,i+1,Length(s)-i))
end;

var s : string;
  ch   : char;
  i, j : integer;

begin
  assign(input, 'input.txt'); reset(input);
  assign(output, 'output.txt'); rewrite(output);
  readln(s);
  { отсортируем символы в строке: }
  if length(s)>8 then s:= Copy(s,1,8);
  for i := 1 to length(s) - 1 do begin
      for j := i + 1 to length(s) do
        if s[j] < s[i] then begin
          ch := s[i];
          s[i] := s[j];
          s[j] := ch;
        end;
    end;
  Permute('',s);
end.

мой вариант (как ни странно - но он по тестам показал себя ХУЖЕ - с удовольствием выслушаю мнение компетентных людей - почему так):

type str8 = string[8];

procedure Permute(const t,s: str8);
var
  i,j: integer;
  lenS : byte;
  ch : char;
begin
  lenS := length(s);
  if lenS=0 then
    writeln(t)
  else
    for i:=1 to lenS do begin
      ch := s[i];
      j:=1;
      while s[j]<>ch do inc(j);
      if j=i then
        Permute(t+ch, Copy(s,1,i-1)+Copy(s,i+1,Length(s)-i))
    end;
end;


var
  s    : str8;
  ch   : char;
  i, j : integer;
 
begin
  assign(input, 'input.txt'); reset(input);
  assign(output, 'output.txt'); rewrite(output);
  readln(s);

  { отсортируем символы в строке: }
  for i := 1 to length(s) - 1 do begin
      for j := i + 1 to length(s) do
        if s[j] < s[i] then begin
          ch := s[i];
          s[i] := s[j];
          s[j] := ch;
        end;
    end;

  Permute('',s);
end.

ну и последнее.
если бы удосужились сразу ПРАВИЛЬНО написать условия задачи (или дать ссылку на Перестановки - 2
то было бы видно, что нужно:

Перестановки - 2
(Время: 1 сек. Память: 16 Мб Сложность: 46%)

Дана строка, состоящая из N символов. Требуется вывести все перестановки символов данной строки в лексикографическом порядке без повторений.
Входные данные

Входной файл INPUT.TXT содержит строку из N символов (1 <= N <= 8).
Выходные данные

В выходной файл OUTPUT.TXT выведите все элементы искомой последовательности по одному в каждой строке.

я выделил то, о чём Вы забыли упомянуть.


p.s. а зачем сдавать ЧУЖИЕ решения? Вам за это зачёт обещали поставить?

[Poma][a]

Serge, у меня всё с точностью да наоборот
Твой Вариант
0,025 56 Кб
TinMan
0,109 952 Кб

Тесты TinMan'a

Тест	Результат	Время	Память
1	Accepted	0,011	56 Кб
2	Accepted	0,007	56 Кб
3	Accepted	0,007	56 Кб
4	Accepted	0,008	56 Кб
5	Accepted	0,008	56 Кб
6	Accepted	0,007	56 Кб
7	Accepted	0,01	56 Кб
8	Accepted	0,008	56 Кб
9	Accepted	0,109	952 Кб
10	Accepted	0,014	56 Кб

Твои

1	Accepted	0,009	56 Кб
2	Accepted	0,009	56 Кб
3	Accepted	0,007	56 Кб
4	Accepted	0,007	56 Кб
5	Accepted	0,009	56 Кб
6	Accepted	0,007	56 Кб
7	Accepted	0,007	56 Кб
8	Accepted	0,008	56 Кб
9	Accepted	0,025	56 Кб
10	Accepted	0,008	56 Кб

И не скромный вопрос : эффективность программы (твоей) в избавлении от Pos ?