Об'єднання масиву

24

Вступ

Розглянемо два масиви однакової довжини, скажімо, A = [0,1,0,2]і B = [-1,1,2,2]. Припустимо, ми знаємо, що їхній вміст у деякому сенсі рівнозначний: пункт за пунктом:

  • 0еквівалентно -1,
  • 1еквівалентно 1,
  • 0еквівалентно 2та
  • 2еквівалентно 2.

Еквівалентність є перехідним: -1і 0еквівалентні, і 0та 2еквівалентні, так -1і 2також еквівалентні. Об'єднання з Aі Bє масив , в якому кожен елемент A(або B) був замінений найбільшим числом , що це еквівалентно. У цьому випадку об’єднання було б [2,1,2,2].

Завдання

Напишіть програму або функцію, яка займає два не порожні цілі масиви однакової довжини і виводить їх об'єднання. Ви також можете змінити один із входів на місці замість повернення. Виграє найменший байт.

Тестові справи

[0] [0] -> [0]
[1] [2] -> [2]
[0,-1] [-1,-1] -> [0,0]
[0,1,0] [2,1,0] -> [2,1,2]
[1,2,3] [0,0,1] -> [3,3,3]
[0,1,0,2] [-1,1,2,2] -> [2,1,2,2]
[1,0,1,-4] [-3,-1,-2,2] -> [1,0,1,2]
[1,2,3,-2] [1,0,-3,-2] -> [1,2,3,-2]
[-3,-2,-1,0,1] [-1,-1,-1,-1,-1] -> [1,1,1,1,1]
[-3,-2,-1,0,1] [2,-1,0,1,-3] -> [2,2,2,2,2]
[-3,5,5,3,1] [4,2,3,1,2] -> [4,5,5,5,5]
[4,0,2,-5,0] [0,4,-5,3,5] -> [5,5,3,3,5]
[-2,4,-2,3,2,4,1,1] [-2,4,1,2,2,3,1,-2] -> [1,4,1,4,4,4,1,1]
[-10,-20,-11,12,-18,14,-8,-1,-14,15,-17,18,18,-6,3,1,15,-15,-19,-19] [-13,6,-4,3,19,1,-10,-15,-15,11,6,9,-11,18,6,6,-5,-15,7,-11] -> [-8,14,18,14,19,14,-8,-1,-1,15,14,18,18,18,14,14,15,-1,18,18]
[20,15,2,4,-10,-4,-19,15,-5,2,13,-3,-18,-5,-6,0,3,-6,3,-17] [-18,7,6,19,-8,-4,-16,-1,13,-18,8,8,-16,17,-9,14,-2,-12,7,6] -> [20,15,20,19,-8,-4,20,15,17,20,17,17,20,17,-6,14,15,-6,15,20]
code-golf  array-manipulation 
— Згарб
джерело
3
Я не зовсім впевнений, чому ви назвали цю операцію об'єднанням.
— Фаталізувати
4
@Fatalize Мене надихнуло об'єднання типів .
— Згарб

Відповіді:

6

JavaScript (ES6), 100 90 110 102 96 байт

a=>b=>a.map(v=>t[v],a.map((_,k)=>a.map((x,i)=>t[x]=t[y=b[i]]=Math.max(k?t[x]:x,k?t[y]:y)),t={}))

Моє початкове рішення склало 90 байт:

a=>b=>a.map(v=>t[v],a.map(_=>a.map((x,i)=>t[x]=t[y=b[i]]=Math.max(t[x]||x,t[y]||y)),t={}))

Хоча він проходить усі надані тестові випадки, він не вдається для чогось такого, як:

A = [0, -1], B = [-1, -1]

Тестові справи

Показати фрагмент коду

— Арнольд
джерело
Це багато a.map...
— ETHproductions
@ETHproductions Yup. Можливо, буде кращий спосіб. Помітно цікавий факт: перші два a.mapможна замінити b.mapтак само добре.
— Арнольд
Я додав новий тестовий випадок для вашої ситуації.
— Згарб
5

CJam , 27 байт

l~_])\z_,*f{{_2$&,*|}/:e>}p

Спробуйте в Інтернеті! Тестовий набір.

Пояснення

l~       e# Read and evaluate input, dumping arrays A and B on the stack.
_        e# Copy B.
])\      e# Wrap in array, pull off B, swap. Gives B [A B] on the stack.
z        e# Transpose the [A B] matrix to get a list of all equivalent pairs.
_,*      e# Repeat this list by the number of pairs. This is to ensure that the
         e# following procedure is applied often enough to allow transitive
         e# equivalences to propagate.
f{       e# Map this block over B, passing in the list of pairs each time...
  {      e#   For each pair...
    _2$  e#     Copy both the pair and the current value/list.
    &,   e#     Get the length of their intersection. If this is non-zero,
         e#     the current pair belongs to the current equivalence class.
    *    e#     Repeat the pair that many times.
    |    e#     Set union between the current value/list and the repeated pair.
         e#     This adds the pair to the current list iff that list already
         e#     contains one value from the pair.
  }/
  :e>    e#   Get the maximum value of this equivalence class.
}
p        e# Pretty print.
— Мартін Ендер
джерело
4

Пітон, 86 байт

f=lambda a,b:a*(a==b)or f(*[map({x:y for x,y in zip(a,b)if x<y}.get,x,x)for x in b,a])

Одночасно оновлює обидва списки, замінюючи кожне значення у першому списку відповідним елементом у другому списку, якщо воно більше. Заміна виконується методом mapсловникаget . Потім поміняйте списки та повторюйте, поки вони не будуть рівними.

— xnor
джерело
2

Pyth, 13 байт

eMumS{s@#dGGC

Спробуйте в Інтернеті: Демонстрація

Пояснення:

Почніть з кожної пари. Ітеративно розширюйте кожну пару (список) перекриваючими списками, дедублюйте елементи та сортуйте. Зупиніть, як тільки цей процес сходиться. Роздрукуйте максимум кожного списку.

— Якубе
джерело
2

Php, 266 241 213 200 байт

Рішення:

function u($x,$y){foreach($x as$i=>$j){$k[$y[$i]][]=$j;$k[$j][]=$y[$i];}$h=function($c,&$w)use($k,&$h){$w[]=$c;foreach($k[$c]as$u)!in_array($u,$w)&&$h($u,$w);return max($w);};return array_map($h,$x);}

Використання: u([1,2,3], [0,0,1]);повертає потрібний масив.

Не дуже гольф:

function unify($x, $y)
{
    foreach($x as $i=>$j) {
        $k[$y[$i]][] = $j;
        $k[$j][] = $y[$i];
    }

    $h = function ($c, &$w=[]) use ($k, &$h) {
        $w[] = $c;
        foreach($k[$c] as $u)
            !in_array($u, $w) && $h($u, $w);
        return max($w);
    };

    return array_map($h, $x);
}
— Прогрок
джерело
0

Java, 273 263 байти

interface Z{int z(int x);default Z g(int m,int n){return x->{for(int t;x!=(t=x==m?z(n):z(x));)x=t;return x;};}static void f(int[]a,int[]b){Z y=x->x;int i=0,v;for(int u:a){u=y.z(u);v=y.z(b[i++]);if(u<v)y=y.g(u,v);if(v<u)y=y.g(v,u);}i=0;for(int u:a)a[i++]=y.z(u);}}

Метод f(int[]a,int[]b)вирішує завдання.

interface Z{

  //should return an "equivalent" integer
  int z(int x);

  //return a Z lambda where the 1st arg is "equivalent" to the 2nd arg
  default Z g(int m,int n){
    return x->{
      for(int t;x!=(t=x==m?z(n):z(x));) //always find the last equivalent number for x
        x=t;
      return x;
    };
  }

  //solve the challenge
  static void f(int[]a,int[]b){
    Z y=x->x; //start off with all numbers only equivalent only to themselves
    int i=0,v;
    for(int u:a){
      u=y.z(u); //get a's element's equivalent number
      v=y.z(b[i++]); //get b's element's equivalent number
      if(u<v)y=y.g(u,v); //if a's was smaller than b's, make a's equivalent to b's
      if(v<u)y=y.g(v,u); //if b's was smaller than a's, make b's equivalent to a's
    }
    i=0;
    for(int u:a) //overwrite a with each element's equivalent value
      a[i++]=y.z(u);
  }

}

Спочатку пройдіть обидва масиви і відслідковуйте еквівалентні числа. Потім змініть кожен елемент першого масиву, щоб зберегти еквівалентні числа.

— Джек боєприпаси
джерело
0

Пітон, 522 байти

a = [-2,4,-2,3,2,4,1,1]
b = [-2,4,1,2,2,3,1,-2]
m = {}
visited = {}
for i in range(len(a)):
    if a[i] in m:
        if b[i] not in m[a[i]]:
            m[a[i]].append(b[i])
    else:
        l = []
        l.append(b[i])
        m[a[i]] = l
    if b[i] in m:
        if a[i] not in m[b[i]]:
            m[b[i]].append(a[i])
    else:
        l = []
        l.append(a[i])
        m[b[i]] = l

def dfs(v, maximum):
    if v > maximum:
        maximum = v
    visited[v] = True
    for n in m[v]:
        if not visited[n]:
            d = dfs(n, maximum)
            if d > v:
                maximum = d
    return maximum

result = []
for k in range(len(a)):
    for q in m:
        visited[q] = False
    result.append(max(dfs(a[k], a[k]), dfs(b[k], b[k])))

print(result)

Пояснення

Складіть таблицю значень, що відповідає кожному унікальному елементу в обох масивах ( aі bв цьому випадку). Наприклад, якщо

a = [0,1,0] 
b = [2,1,0]

тоді таблиця буде:

0:[0,2]
1:[1]
2:[0]

потім застосуйте глибину спочатку пошуку, так, наприклад, припустимо, що я вибираю крайній лівий елемент у aзначенні, то це 0і 0має еквіваленти: 0і 2. Оскільки 0вже побував, перейдіть до 2. 2 мають еквівалентності: 0. Тож найкращий результат для вибору самого лівого елемента a- це 2. Ось дерево:

   0   
 /   \
0     2
       \
        0

і ви хочете взяти там найбільше значення, тому результат є 2.

— Bobas_Pett
джерело
Ласкаво просимо до PPCG! У коді-гольф ви прагнете отримати найкоротший можливий рахунок у вашій програмі. Це означає скорочення функцій та імен змінних та видалення непотрібних пробілів у вашій програмі.
— Kritixi Lithos
Ви також повинні взяти два масиви як введення користувача, а не жорстко кодувати їх.
— Згарб
0

PHP, 132 байти

function(&$a,$b){for(;$i<count($a);$i++){$r=$a[$i];$s=$b[$i];$r<$c[$s]?:$c[$s]=$r;$s<$c[$r]?:$c[$r]=$s;}foreach($a as&$v)$v=$c[$v];}

Анонімна функція, яка займає два масиви.

Це мій погляд на "змінити один з масивів на місці", як зазначено у висновку виклику. Цей цикл через кожен з двох масивів записує еквівалентність, якщо поточний є більшим за збережений, а потім проходить цикл через перший масив і замінює всі значення їх найбільшими еквівалентами. Перший масив береться за посиланням (звідси &$a), тому переданий масив модифікується "на місці".

— Ксандерхалл
джерело
0

Java, 170 байт

Гольф

(a,b)->{int[]d=a.clone();for(int i=0,y;i<d.length;i++){y=0;for(int j=0;j<a.length;j++)if(a[j]==d[i]||b[j]==d[i])y=Integer.max(y,Integer.max(a[j],b[j]));d[i]=y;}return d;}

Безумовно

(a, b) -> {                                        // Two argument lambda
    int[] d = a.clone();                           // We clone our first array for modification
    for (int i = 0,y; i < d.length; i++) {         // Going through the elements of d...
        y = 0;                                     // We initialize our 'highest' equivalent
        for (int j = 0; j < a.length; j++) {       // Going through each of our arrays (a and b)...
            if (a[j] == d[i] || b[j] == d[i]) {    // If either of them is the number we're trying to match for equivalence...
                y = Integer.max(y, Integer.max(a[j], b[j])); // We see if the new number is bigger than the largest we've found.
            }
        }
        d[i] = y;                                  // We then assign the largest equivalent number for the current position in our output array.
    }
    return d; // And return!
}

Анонімна функція, яка приймає два int[]аргументи як аргументи та повертає int[].

— Ксандерхалл
джерело
Використовуючи наш веб-сайт, ви визнаєте, що прочитали та зрозуміли наші Політику щодо файлів cookie та Політику конфіденційності.
Licensed under cc by-sa 3.0 with attribution required.