Минимальное число

[Serge_Bliznykov]

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

Сократил до 318 знаков

Здорово!
А про свой алгоритм решения расскажете?

[Plague]

283 символа я в шоке

[s-andriano]

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

чуток доработал своё первоначальное решение

Проверьте на

110
1

[Serge_Bliznykov]

Сообщение от s-andriano

Проверьте на

110
1

Спасибо. Это действительно косячок был.

а вот теперь?

program MN;

function Digit1Less(const s1, s2 : string; i1, i2 : integer):boolean;
var ld : char;
begin
  Digit1Less := s1[i1]<s2[i2];
  if s1[i1]<>s2[i2] then Exit
  else {сюда  мы попали, если очередные элементы равны}
     begin
       repeat
         ld := s1[i1];
         while (i1<=Length(s1)) and (s1[i1]=ld) do Inc(i1);
         if i1>Length(s1) then i1 := Length(s1);
         while (i2<=Length(s2)) and (s2[i2]=ld) do Inc(i2);
         if i2>Length(s2) then i2 := Length(s2);
       until (s1[i1]<>s2[i2]) or ((i1=Length(s1)) and (i2=Length(s2)));
       Digit1Less := s1[i1]<s2[i2];
    end;
end;


var
  s1, s2 : string[255];
  i, l, i1, i2 : Integer;

begin
    assign(input, 'input.txt'); reset(input);
    assign(output, 'output.txt'); rewrite(output); 

    ReadLn (s1);
    ReadLn (s2);

    i1 := 1;
    i2 := 1;
    l :=  Length(s1)+Length(s2);
    for i:=1 to l do
      if (i1<=Length(s1)) and (i2<=Length(s2)) then
        if Digit1Less(s1, s2, i1, i2)
            then begin Write(s1[i1]); Inc(i1) end
            else begin Write(s2[i2]); Inc(i2) end
      else
        if i1<=Length(s1)
            then begin Write(s1[i1]); Inc(i1) end
            else begin Write(s2[i2]); Inc(i2) end;

     WriteLn;
end.

и ещё.
Бинго! Поздравляю!
мой предыдущий код успешно прошёл все тесты на ACMP.ru
это означает, что ваш контр-пример находит ошибки, которые пропускают остальные тесты на acmp.ru!!!

[Plague]

Супер Поздравляю!!!
Пока ТС не отпишется, свое решение не буду выкладывать!
А то опять начнется "явные минусы" и никто спасибо даже не скажет)))

[s-andriano]

Я нигде не проверял, так что, если у кого есть желание, проверьте:

var
  i,j,k,l,m:integer;
  s,q:string;
begin
  j:=1;
  k:=1;
  readln(s);
  l:=length(s);
  readln(q);
  m:=length(q);
  for i:=1 to l+m do
    if k>m then begin write(s[j]); inc(j) end
    else if j>l then begin write(q[k]); inc(k) end
    else if copy(s,j,l-j+1)+copy(q,k,m-k+1)<copy(q,k,m-k+1)+copy(s,j,l-j+1)
      then begin write(s[j]); inc(j) end
      else begin write(q[k]); inc(k) end
end.

[Poma][a]

Господа Всем огромное спасибо!

2 TinMan по истине очень странно! Без добавления проверки на 0, программа не проходила...

2 Plague Вы кажется ошибаетесь, я спасибо всегда говорил. А про явные ошибки, прошу простить!

[s-andriano]

Сообщение от 'Poma

2 TinMan по истине очень странно! Без добавления проверки на 0, программа не проходила...

Это говорит о том, насколько качественно подобраны тесты: реальные ошибки не обнаруживает, зато о мнимых - сигнализирует.
По-хорошему, об обоих этих вариантах следовало бы написать разработчику тестов.

[Poma][a]

Сообщение от s-andriano

Это говорит о том, насколько качественно подобраны тесты: реальные ошибки не обнаруживает, зато о мнимых - сигнализирует.
По-хорошему, об обоих этих вариантах следовало бы написать разработчику тестов.

Вот пытаюсь достучаться до администратора.

Сообщение от s-andriano

Я нигде не проверял, так что, если у кого есть желание, проверьте

Прошло

Так проблема не с тестами, а у меня....

if r > r1 then
        rfin := r1
    else
        rfin := r;

    for i := 1  to Length(rfin) do
        Write (rfin[i])
end.

Вот так работает

if r > r1 then
        WriteLn (r1)
    else
        WriteLn (r);
    end.

Не работает
А почему, не знаю....
С 0 была моя ошибка, TinMan большущее Вам спасибо!
И Огромное Спасибо Всем! Очень интересные решения, вот будет чем заняться.

[TinMan]

Сообщение от Poma][a

Не работает
А почему, не знаю....

Ромаха, фрагменты твои выглядят по меньшей мере странно (например: цикл до длины fin, а распечатываешь rfin). И вообще - ошибка может быть наведенной.. Пока не приведешь полный код, ответа не жди )).

Мужики, а поделитесь сокровенным знанием: что вы называете "символом"? Скажем - необязательные пробелы (неразделительные) включаются? Или, скажем, концы строк? Или же - это просто размер файла? выразитесь яснее, плз..