[Pascal] Нужна помощь в решении задачи "Слова-перевертыши"

[artems67]

Сообщение от Aleksandr H.

Может быть. А на каких входных?

ttot sto aaatrr

Должно no вывести. На своем варианте проверил - работает.

[Aleksandr H.]

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

Должно no вывести. На своем варианте проверил - работает.

Может версии паскаля разные
https://youtu.be/rPSfQspDBcQ

[artems67]

Пробовал и в ABCPascal и Freepascal та же самая ошибка

Извиняюсь, не работает только в ABCPascal

[Plague]

PascalABC

var s:string;
    b:set of string;
begin
  read(s);
  var a:=s.ToWords(' ');
  b:=[];  
  for var i:=0 to a.Length-1 do b+=[a[i]];
  var l:=True; 
  foreach s in b do 
    if s=s.Inverse then 
      begin
        write(s,' ');
        l:=False
      end;
  if l then write('NO')
end.

[artems67]

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

PascalABC

var s:string;
    b:set of string;
begin
  read(s);
  var a:=s.ToWords(' ');
  b:=[];  
  for var i:=0 to a.Length-1 do b+=[a[i]];
  var l:=True; 
  foreach s in b do 
    if s=s.Inverse then 
      begin
        write(s,' ');
        l:=False
      end;
  if l then write('NO')
end.

У меня что-то не совсем согласно условию ТЗ работает



должно только toot soos вывести, а у вас больше переменных в строке. Но поначалу я был поражен краткостью программы в 16 СТРОК !!!!

P.S. мой вариант работает корректно с данной строкой.

[Plague]

var s:string;
    b:set of string;
begin
  read(s);
  var a:=s.ToWords(' ');
  b:=[];  
  for var i:=0 to a.Length-1 do b+=[a[i]];
  var l:=True;
  var max:=0;
  foreach s in b do 
    if (s<>s.Inverse)then b-=[s] else
      if s.Length>max then max:=s.Length;
  foreach s in b do 
    if s.Length=max then write(s,' ');
  if max=0 then write('NO')
end.

[artems67]

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

добавляем проверку на четность длины строки:

if (s=s.Inverse) and (s.Length mod 2=0) then

Теперь все работает. За исключением, что у вас пробел после последнего слова перевертыша в строке. Из-за этого специальные тесты ваша прога не сможет пройти.

[artems67]

Сообщение от Aleksandr H.

Может версии паскаля разные
https://youtu.be/rPSfQspDBcQ

Что-то я в тесты пробросить прогу попробовал. Не прошло. Хотя в free pascal корректно работает. Видимо сам сайт заточен под ABCpascal.

Сама задача здесь, но чтобы отправить свое решение надо зарегаться.

[Plague]

Да все испортил лишний пробел)) Чекер значит неправильно написан для задачи.
Моё решение было шутка-юмора.