Задачка для собеседования

[ilovb]

Вариант для случая, когда длина массивов неизвестна:

Код: [Выделить]

Процедура СравнитьМассивы2(Массив1, Массив2)
   
    Разница = 0;
    Индекс1 = 0;
    Индекс2 = 0;
   
    Пока Массив2[Индекс2] <> 0 Цикл
   
        Индекс2 = Индекс1 + Разница;
       
        Пока Массив1[Индекс1] <> Массив2[Индекс2] Цикл
            Сообщить(Массив2[Индекс2]);
            Индекс2 = Индекс2 + 1;
        КонецЦикла; 
       
        Разница = Индекс2 - Индекс1;
       
        Индекс1 = Индекс1 + 1;
       
    КонецЦикла;
   
КонецПроцедуры

[DIzer]

ilovb - та же байда.. хвоста нет... в терминах инвариантов задачи не выполняется  not ( (a=0) and  (b[j]=0) )

[ilovb]

Я прогнал на тестах. Все правильно вроде.

Log:

Код: [Выделить]

28
----------------
38
39
30
----------------
48
----------------
58
59
50
----------------
68
----------------
78
79
70
----------------
80
81
82
83
84
85
86
87
----------------


[DIzer]

Странный глюк не могу выправить , должно быть not ( (a =0) and  (b[j] = 0) )

[DIzer]

блин...  a - не печатается...

[DIzer]

Код: [Выделить]

a[i] не печатается..

[ilovb]

Код: [Выделить]

a[i] не печатается..

Нужно пробелы ставить [ i ] 

зы Это тэг италика срабатывает. Меня тоже уже задолбало

[ilovb]

...должно быть not ( (a[ i ] =0) and  (b[ j ] = 0) )

Не понял. Зачем?

[DIzer]

формальная констатация факта , что мы  не просмотрели все  элементы в массивах... -- но обратите внимание  - я его в тот момент, когда писал кусок НЕ ЗНАЛ  (ибо я  не въехал в задачу).

[ilovb]

Тык у меня же Массив2[Индекс2] <> 0

этого достаточно т.к.:
Длина(Массив2) >= Длина(Массив1)

[DIzer]

я говорил про свой алгоритм...  у вас он ДРУГОЙ (точнее , я решал задачу "в лоб",  вы заменяли координаты -соответственно и ВИД этого инварианта в ВАШЕЙ системе координат другой)

[ilovb]

Циклом дейкстры наверно так будет:

Код: [Выделить]

procedure compare(a, b)
   
    i = 0;
    j = 0;
   
    while true do
       
        if a[i] <> b[j] then
            message(b[j]);
            inc(j);
        elsif a[i] <> 0 then
            inc(i);
            inc(j);
        else
            break;
        endif;
       
    enddo
   
endprocedure
ps Самый простой код однако 

[ilovb]

Это практически вариант Valery Solovey. Только в более каноническом виде 

ps do loop в 1С нету, потому while true

[DIzer]

мне не нравится - напрягает (вариант Валерия также), правда это все цветочки , по сравнению с тем, что сделал Geniepro

[ilovb]

А на ruby эта задача решается так:

Код: [Выделить]

b - a