[katarasha]

Дано два массива. Найти наименьшее среди тех элементов первого массива, не входящих во второй массив.
Помогите еще раз, пожалуйста

[lmikle]

Ну, принцип тот же. Бежим по одному массиву, проверяем, есть ли такой элемент во втором и, если нету, то смотрим, не является этот элемент меньше, чем уже найденный.

Как-то так:

Код:

function IsInArray(E : Integer; A : Array Of Integer) : Boolean;
var
  I : Integer;
begin
  Result := False;
  For I := Low(A) To High(A) Do
    Begin
      Result := A[i] = E;
      If Result Then Break;
    End;
end;

function FindMinElement(A, B : Array Of Integer) : Integer;
var
  I : Integer;
  F : Boolean;
begin
  F := True;
  For I := Low(A) To High(A) Do
    If Not IsInArray(A[i],B) Then
      If F Then
        Begin
          Result := A[i];
          F := False;
        End
      Else
        If A[i] < Result Then Result := A[i]; 
end;

[katarasha]

Спасибо большое, но не сложно ли вам скинуть целиком программу?

[M.A.D.M.A.N.]

Найти минимум в не исключенных элементах массивов?

[M.A.D.M.A.N.]

Правильно?

Код:

Prelude Data.List> let foo x y = minimum $ filter (\i -> null $ elemIndex i $ nub x) y
Prelude Data.List> foo [1,2,3,55,99] [1,2,3,4,5,55,99,55,6,7,8,9,10,11,12,55,27,74,163
4
Результат фильтра: [4,5,6,7,8,9,10,11,12,27,74,163]

Вариант, работающий чуд-чуть побыстрее:

Код:

Prelude Data.List> let foo x y = minimum $ filter (\i -> null $ elemIndex i $ x) y

[Alegun]

Оффтоп:

Сообщение от M.A.D.M.A.N.

...Правильно?...Вариант, работающий чуд-чуть побыстрее...

Это ж на каком языке-то? Похоже на аву слегка

Коднашарный формат таки намекает на полную сборку, вот вариант

[M.A.D.M.A.N.]

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

Похоже на аву слегка

Какую еще аву? Хаскель это. Джава чтоли?
Тут сама идея излагается, а не scat-code.

[katarasha]

Спасибо большущее!