Codegolf — Винтовка С Обобщенным Массивом

Простой гольф для начала недели! Вам даны три массива: базовый массив

 
 
 
 
 
 
 
 
 <script src="https://ajax.googleapis.com/ajax/libs/jquery/2.1.1/jquery.min.js"></script><link rel="stylesheet" type="text/css" href="//cdn.sstatic.net/codegolf/all.css?v=83c949450c8b"><div id="answer-list"> <h2>Leaderboard</h2> <table class="answer-list"> <thead> <tr><td></td><td>Author</td><td>Language</td><td>Size</td></tr></thead> <tbody id="answers"> </tbody> </table></div><div id="language-list"> <h2>Winners by Language</h2> <table class="language-list"> <thead> <tr><td>Language</td><td>User</td><td>Score</td></tr></thead> <tbody id="languages"> </tbody> </table></div><table style="display: none"> <tbody id="answer-template"> <tr><td>{{PLACE}}</td><td>{{NAME}}</td><td>{{LANGUAGE}}</td><td>{{SIZE}}</td><td><a href="{{LINK}}">Link</a></td></tr></tbody></table><table style="display: none"> <tbody id="language-template"> <tr><td>{{LANGUAGE}}</td><td>{{NAME}}</td><td>{{SIZE}}</td><td><a href="{{LINK}}">Link</a></td></tr></tbody></table> 
 
 
 
 
 
 
 
 

Индексы указывают на следующие позиции в базовом массиве:

Таким образом, вставив соответствующие элементы из массива значений, результат должен быть таким:

Правила

Вы можете написать программу или функцию, принимая входные данные через STDIN (или ближайший альтернативный вариант), аргументы командной строки или аргументы функции и выводя результат через STDOUT (или ближайший альтернативный вариант), возвращаемое значение функции или модифицируя массив, заданный как V parameter.

Если ваше представление является функцией, I and B можно изменить любым способом, а также [0, 5, 1, 4, 7, 1, 3, 0] if it isn't used for output.

Вы можете сделать следующие предположения относительно входных данных:

• Все элементы базового массива и массива значений будут неотрицательными целыми числами.
• Массив значений будет содержать не более одного элемента больше, чем базовый массив.
• Массив значений и массив индексов будут иметь одинаковое количество элементов.
• Массив индексов не будет содержать повторяющихся индексов, и все индексы будут находиться в диапазоне.
• Базовые массивы и массивы значений может содержат повторяющиеся элементы.
• Любой или все массивы могут быть пустыми.
• Вы не должны предполагать, что индексы даны в каком-то определенном порядке.
• Вы можете получать входные данные и производить выходные данные в любом удобном, однозначном формате строки или списка. Вы также можете выбрать получение трех массивов в другом порядке.
• Вы можете выбрать индексацию с отсчетом от 0 или от 1.

Это кодовый гольф, поэтому побеждает самый короткий ответ (в байтах).

Тестовые случаи

Дано в формате [ 5, 1, 4, 1, 3 ] ^ ^ ^ 0 3 5 for 0-based indexing. If you're using 1-based indexing, increment the elements of the third array by 1.

Дайте мне знать, если вы встретите другие интересные крайние случаи, и я добавлю их.

Таблица лидеров

Вот фрагмент стека, позволяющий создать как обычную таблицу лидеров, так и обзор победителей по языкам.

Чтобы ваш ответ появился, начните его с заголовка, используя следующий шаблон Markdown:

где B is the size of your submission. If you improve your score, you может держите старые результаты в заголовке, вычеркивая их. Например:

#код-гольф #массив

Питон 2, 54

 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
     {(∊⌽2↑⍵)[⍋(2⊃⍵),⍳≢⊃⍵]}(5 1 4 1 3)(0 0 7)(5 0 3)
0 5 1 4 7 1 3 0
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

Принимает ввод как ⍋ . Modifies the input {(∊⌽2↑⍵)[⍋(2⊃⍵),⍳≢⊃⍵]} когда позвонят (спасибо Мартину Бюттнеру за напоминание, что это возможно).

Использование int[]f( int[] B, int[] V, int[] I ) { int v = V.length, //length of Values r = B.length + v, //length of the result x, y, i; //temps int[] R = java.utils.Arrays.copyOf( B, r ); for( x = 0; x < v; x++ ) { i = I[x]; for( y = 0; y < x; y++ ) if( I[x] > I[y] ) i++; for( y = r - 2; y >= i; y-- ) R[y+1] = R[y]; R[i] = V[x]; } return R; } to call int[]f(int[]B,int[]V,int[]I){int v=V.length,r=B.length+v,x,y,i;int[]R=java.utils.Arrays.copyOf(B,r);for(x=0;x<v;x++){i=I[x];for(y=0;y<x;y++)if(I[x]>I[y])i++;for(y=r-2;y>=i;y--)R[y+1]=R[y];R[i]=V[x];}return R;} для каждой пары индекс/элемент. Чтобы избежать проблемы смещения индексов списка при вставке элементов, пары сортируются в порядке убывания индекса с помощью уродливого zip/sort/unzip. Если бы не проблема с переключением, мы могли бы просто сделать > f=function(b,v,i){e=c(NA,rbind(b,NA));e[i*2+1]=v;e[!is.na(e)]} > f(c(), c(), c()) logical(0) > f(c(0, 0, 0), c(1, 1, 1, 1), c(0, 1, 2, 3)) [1] 1 0 1 0 1 0 1 > f(c(5, 1, 4, 1, 3), c(0, 0, 7), c(5, 0, 3)) [1] 0 5 1 4 7 1 3 0 .

Старый метод (65):

Пиф, 14 байт

Демонстрация.

Эта программа принимает входные данные в виде трехкортежей списков в порядке «База», «Индексы», «Значения».

Пояснение на примере x.split(/:+/).map(&:to_i) :

1. Возьмите входные данные: неявно, Q — это входные данные.

2. Создайте индекс, пары значений: ->b,v,i{l=-1;i.map{|j|b[j]=[v[l+=1],b[j]]};b*?:} = Qa+ e# Append [[]] to B. @@ e# Rotate V and I on top of B. .{ e# For each v in V and the corresponding i in I: a e# Push [v]. 2$2$= e# Retrieve b := B[i]. + e# Append to push [v b]. e# The stack now consists of: B i [v b] t e# Set B[i] := [v b]. } e# e_ e# Flatten B.

3. Отсортируйте пары в порядке возрастания индекса: {Qa+@@.{a2$2$=+t}e_} = l~ e# Evaluate the first line of input. _,) e# Compute the array length and add 1. N* e# Push a string of that many linefeeds. q~ e# Evaluate the remaining input. .{t}~ e# Vectorized array set: for each index in the array from line 2, replace the e# LF at that index by the corresponding element of the array from line 3. .\ e# Interleave the two arrays on the stack. N- e# Remove the linefeeds. p e# Print.

4. Возьмите значение из каждой пары: l~_,)N*q~.{t}~.\N-p = > f(c(), c(), c()) [1] NULL > f(c(0, 0, 0), c(1, 1, 1, 1), c(1, 2, 3, 4)) [1] 1 0 1 0 1 0 1 > f(c(5, 1, 4, 1, 3), c(0, 0, 7), c(6, 1, 4)) [1] 0 5 1 4 7 1 3 0

5. Разделите базовый список по местоположению индексов: f <- function(b, v, i) { # Initialize the output vector to b n <- b # Initialize an index over the indices j <- 0 # Loop over the values to insert for(g in v) { # Get the index of the next given insertion index j <- j + 1 # Insert g into n. # The position at which to insert the value is determined by # adding the number of indices less than the current one and # subtracting 1. The subtraction is because we're using the # `after` argument in the `append` function. n <- append(n, g, i[j] + sum(i < i[j]) - 1) } # Return n n } = f=function...

6. Чередование 3 и 4: function(b,v,i){n=b;j=0;for(g in v)n=append(n,g,i[j<-j+1]+sum(i<i[j])-1);n} = q~.\2/$z~0@+2ew@f{\~@<>}.\e_p

7. Объедините в один список: {0, 5, 1, 4, 7, 1, 3, 0} = {0.5 -> 0, 1 -> 5, 2 -> 1, 3 -> 4, 3.5 -> 7, 4 -> 1, 5 -> 3, 5.5 -> 0}

Хаскель, 62 байта

Пример использования: Thread[#3+.5->#2] -> {1 -> 5, 2 -> 1, 3 -> 4, 4 -> 1, 5 -> 3} .

Как это работает: дополнить базовый список полуторными индексами, начиная с Tr@#2->#&~MapIndexed~# (e.g. In[1]:= f = Last/@(Tr@#2->#&~MapIndexed~#⋃Thread[#3+.5->#2])&; In[2]:= f[{5, 1, 4, 1, 3}, {0, 0, 7}, {5, 0, 3}] Out[2]= {0, 5, 1, 4, 7, 1, 3, 0} ) и объединить его с парами индекс-значение. Отсортируйте и отбросьте индекс.

Примечание: не знаю, жульничаю ли я здесь. С математической точки зрения это нормально, но программист может возразить, что список индексов Last/@(Tr@#2->#&~MapIndexed~#⋃Thread[#3+.5->#2])& is not a list of <pre id=O></pre> как просили, но список f=(b,v,i,j=0)=>b.concat(v).map(p=>(p=i.indexOf(j))<0?b[j++]:(i[p]=-1,v[p])) // TEST out=x=>O.innerHTML+=x+'\n' test=[ { b:[], v:[], i:[], k:[] }, { b:[], v:[1], i:[0], k:[1] }, { b:[1,2], v:[], i:[], k:[1,2] }, { b:[1,2], v:[3], i:[0], k:[3,1,2] }, { b:[1,2], v:[3], i:[1], k:[1,3,2] }, { b:[1,2], v:[3], i:[2], k:[1,2,3] }, { b:[0,0,0], v:[1,1,1,1], i:[0,1,2,3], k:[1,0,1,0,1,0,1] }, { b:[5,1,4,1,3], v:[0,0,7], i:[5,0,3], k:[0,5,1,4,7,1,3,0] }, { b:[1,2,3,4], v:[4,3,2,1], i:[4,0,3,1], k:[3,1,1,2,3,2,4,4] } ]; test.forEach(x=>{ r = f(x.b,x.v,x.i.slice(0)) // pass a copy of i, as the function will alter it ok = ''+r==''+x.k s='Test ' + (ok?'OK':'FAIL') +'\n B ['+x.b +']\n V ['+x.v +']\n I ['+x.i +']\n Result ['+r +']\n Check ['+x.k +']\n' out(s) }) (to be exact, the type is polymorphic, but must belong to the i класс, например implicit: Q = input() PQ all elements but last of Q => [[5,1,4,1,3], [5,0,3]] cF split B it the indices in I => [[], [5,1,4], [1,3], []] tQ all elements but first of Q => [[5,0,3], [0,0,7]] C zip => [(5,0), (0,0), (3,7)] S sort => [(0,0), (3,7), (5,0)] med extract the end of each pair => [0,7,0] a ] append an empty list => [0,7,0,[]] , create a pair => ([[], [5,1,4], [1,3], []], [0,7,0,[]]) C zip => [([],0), ([5,1,4],7), ([1,3],0), ([],[])] s sum => ([],0,[5,1,4],7,[1,3],0,[],[]) s sum => [0,5,1,4,7,1,3,0] or B = [5,1,4,1,3], I = [5,0,3], V = [0,0,7] ).

Рубин, 60 59 53 байта

И версия без гольфа

CJam, 34 23 18 байт

Моя первая работа в CJam. Советы приветствуются, я уверен, что в гольфе есть много интересного.

16 байт сохранено с помощью @MartinBüttner и @Dennis.

Функция, ожидающая ввода в стек по порядку @ (I is the topmost).

Пример использования:

Метод:

• соединить массив {,//+(y@<z;(z@<z)_ x)} / before {,//+(y@<z;z[<z]_ x)} / after th element with {,//+(y;z_x)}
• пары значений вставки с позициями вставки
• объединить полученные два массива
• сортировать массив по позициям элементов
• сохранять ценностные элементы

К, 22 21 байт

Мы определяем функцию с тремя аргументами ,// with the implicit variables + , (a;b) and (z@<z) представляющие стартовый список, список значений и список индексов соответственно. Оператор «вырезать» ( _ ) is used to split the starting list apart at the sorted list of given indices ( z ). Мы чередуем значения (после их соответствующей сортировки) с разделенными частями исходного массива, формируя список ( y ), taking its transpose ( x ) и выравнивание результата ( {…} ).

Пример использования:

Пробелы вокруг подчеркивания необходимы, поскольку K допускает использование подчеркиваний в идентификаторах. K5 устраняет эту потенциальную двусмысленность. Если бы мы могли рассчитывать на то, что индексы идут в порядке возрастания, а символы подчеркивания не являются допустимыми идентификаторами, мы могли бы использовать гораздо более удобную 13-байтовую программу:

(вздох.)

редактировать:

Нарушается симметрия, но мы можем сохранить байт, используя индексацию скобок ( [5 1 4 1 3] [0 0 7] [5 0 3] {.\2/\ee+{0=}$1f=}~ ) instead of the infix B V I индексирующий оператор. Обычно это делает программы длиннее, но в данном случае для сортировки нам всё равно понадобились скобки. {.\2/\ee+{0=}$1f=} before performing the cut.

Пиф, 17 байт

@isaacg уже превзошел мое решение. Но поскольку документация уже готова, я все равно ее опубликую.

Это принимает входные данные в формате ->a,b,c{c.zip(b).sort.reverse.map{|i,v|a.insert i,v}} . You can try it here: Демонстрация или Тестовый набор

Объяснение:

Я использую пример Double from the OP.

JavaScript (ES6), 75

Функция с тремя параметрами массива, возвращающая массив. Как ни странно, эта функция изменяет свой Fractional parameter (as kindly allowed by OP)

Проверьте запуск фрагмента, Firefox только как обычно.

Математика, 52 51 байт

Пример:

Объяснение:

Используя пример выше.

• 0.5 => [0,5,1,4,7,1,3,0]
• f [5,1,4,1,3] [0,0,7] [5,0,3] => import Data.List f b v i=map snd$sort$zip[0.5,1.5..]b++zip i v
• Затем возьмите (отсортированное) объединение этих двух списков. (=> [0, 5, 1, 4, 7, 1, 3, 0] )
• А затем возьмите последний элемент каждой пары. (=> s.icFPQmedSCtQ )

CJam, 30 29 байт

Это слишком долго. Я чувствую, что это не представление на языке игры в гольф :|

Попробуйте онлайн здесь

Р, 75 байт

Это создает безымянную функцию. Чтобы вызвать его, дайте ему имя, например. [[], [5, 1, 4], [1, 3], []] . Note that the arrays must be 1-indexed because that's just how R rolls.

Ungolfed + объяснение:

Примеры:

Предложения как всегда приветствуются!

CJam, 19 байт

Это полноценная программа, которая читает массивы Б, я и В (по одному на строку в указанном порядке) из STDIN.

Попробуйте онлайн в CJam-переводчик.

Как это работает

CJam, 20 байт

Это анонимная функция, которая появляется Б, В и я (сверху вниз) из стека и взамен оставляет в стеке один массив.

Попробуйте онлайн в CJam-переводчик.

Как это работает

Рубин, 48 байт

Я думаю это соответствует правилам, но пожалуйста проверьте.

Безымянная функция, принимающая на вход три массива. Выводит строку, которую можно однозначно преобразовать в массив чисел с помощью выражения Ruby. [5, 1, 4, 1, 3], [5, 0, 3], [0, 0, 7] .

Тестовые случаи на идея.

Я мог бы сохранить еще 3 байта, но формат вывода s.icFPQmedSCtQ is stretching the rules a bit too mych imo, although it is unambiguous.

Р, 60

Как безымянная функция, принимающая b, v и i

Расширяет b с помощью NA

Заполняет пробелы, где это необходимо, с помощью v

Возвращает вектор без NA.

Ява, 253, 226, 219, 209

не совсем победитель, ну да ладно.

Предполагая, что B, V и I не равны нулю.

v (строчная буква v) — длина массивов значений/индексов.

R — возвращаемый массив. B,I,V computes the permutation that would sort the indexes in ascending order. Since APL's sorting algorithm is stable by definition, the permutation computed puts the element of the catenation of the second and first argument in the right place.

r — длина возвращаемого массива.: