<< Пред. След. >>

Благодаря сообществу PPCG, Санта сумел восстановить все свои подарки, и после конвейера, подарки теперь готовы к отправке в транспортные доки!

Каждый из транспортных доков Санта-Клауса вмещает только ряд существующих размеров, потому что транспортные сани специализированы для определенного размера (любой легче, и он будет расточительным, тяжелее, и сани не смогут справиться с грузом). Таким образом, он нуждается в вас, чтобы помочь ему взять его подарки и отсортировать их в правильные транспортные доки.

Вызов

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

Давайте возьмем это для примера: подарки [5, 3, 8, 6, 2, 7]и диапазоны стыковки [[1, 5] and [6, 10]].

Присутствующие 5, 3и 2идти в первый док - станции и подарки 8, 6и 7идти во второй док. Это может быть показано как [[5, 3, 2], [8, 6, 7]]. Этот список будет ближе к сортировке, чем вход, но stablyозначает, что в каждой док-станции порядок подарков должен быть таким же, как порядок ввода (в противном случае вы можете просто отсортировать весь список).

Ваш окончательный вывод для этого случая будет [5, 3, 2, 8, 6, 7](как плоский список).

Спецификации форматирования

Вам будет предоставлена ввод в виде плоского списка целых чисел и список диапазонов в любом приемлемом формате (например, диапазон для приведенного выше случая может быть задан как [[1, 5], [6, 10]], [1, 5, 6, 10]или [[1, 2, 3, 4, 5], [6, 7, 8, 9, 10]]). Ваш вывод должен быть простым списком целых чисел в любом приемлемом формате.

Входные данные могут содержать повторяющиеся значения; в этом случае вам необходимо вернуть все их экземпляры. Все существующие размеры будут находиться в одном диапазоне размеров, и вы можете предположить, что диапазоны никогда не будут перекрываться. В диапазонах могут быть промежутки, если охватываются все существующие размеры.

правила

• Применяются стандартные лазейки
• Это Код-гольфпоэтому выигрывает самый короткий ответ в байтах
• Ответ не будет принят
• Вы можете предположить, что не будет пустых диапазонов ( [7, 4]будет недействительным, потому что диапазоны увеличиваются)

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

[1, 2, 3, 4, 5, 6, 7] ; [[1, 3], [4, 7]] => [1, 2, 3, 4, 5, 6, 7]
[1, 2, 3, 4, 5, 6, 7] ; [[4, 7], [1, 3]] => [4, 5, 6, 7, 1, 2, 3]
[7, 3, 5, 4, 6, 1, 2] ; [[1, 3], [4, 5], [6, 7]] => [3, 1, 2, 5, 4, 7, 6]
[4, 7, 6, 3, 5, 2, 1] ; [[1, 4], [5, 7]] => [4, 3, 2, 1, 7, 6, 5]
[1, 1, 3, 3, 6, 4, 7] ; [[1, 4], [6, 7]] => [1, 1, 3, 3, 4, 6, 7]

^{Примечание: я черпал вдохновение для этой серии испытаний из Advent Of Code . У меня нет связи с этим сайтом}

Вы можете увидеть список всех испытаний в серии, посмотрев раздел «Связанные» первой задачи здесь .

Haskell , 26 байтов

a#s=[x|r<-s,x<-a,elem x r]

Попробуйте онлайн! Пример использования: [1,2,3,4,5,6,7] # [[1,2,3],[4,5,6,7]]доходность [1,2,3,4,5,6,7].

Желе , 4 байта

fЀẎ

Попробуйте онлайн!

Принимает ввод как настоящий список, полный диапазон.

Mathematica, 39 байт

x##&@@Cases[x,#|##&@@Range@##]&@@@#&

-22 байта от JungHwan Мин.
-4 байта от Мартина

Попробуйте онлайн!

Pyth , 5 байт

s@Rvz

Попробуй это здесь!

Pyth , 10 байт

s.gx}LkQ1E

Попробуй это здесь!

Как они работают

s @ Rvz | Полная программа.

  R | Правильная карта ...
 @ | ... используя пересечение.
   VZ | Из первого ввода со вторым.
с | Свести на один уровень.

s.gx} LkQ1E | Полная программа.

 .g E | Сгруппируйте элементы во втором входе по ...
    } LkQ | Сопоставьте первый вход и проверьте, есть ли текущий элемент в списке.
   х 1 | Возьмите указатель первого правдивого элемента.
с | Свести.

Сначала занимает доки со всеми целыми числами в диапазонах, а затем представляет подарки в новой строке.

Python 2 , 49 46 байт

спасибо @HyperNeutrino за -3 байта

lambda p,b:[x for l in b for x in p if x in l]

Попробуйте онлайн!

Ungolfed

def f(presents, groups):
  result = []
  for group in groups:
    for present in presents:
      if present in group:
        result.append(present)
  return result

Попробуйте онлайн!

05AB1E , 3 байта

δØ

Попробуйте онлайн! (спасибо Аднану за сообщение, что он δсуществует, -1 байт)

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

δØ | Полная программа.

δ | Дважды векторизовать следующую команду (что-то вроде внешнего произведения).
 М | Пересечение списка. Поскольку это диада, первый вход автоматически
     | используется для заполнения недостающего аргумента (насколько я знаю).
  ˜ | Свести.

Retina , 37 36 байт

O$`(\d+)(?=.*¶(.*)\[.*\b\1\b)
$2
G1`

Попробуйте онлайн! Вводит в виде списка подарков в первой строке и списка диапазонов во второй строке; ссылка содержит заголовок для разделения тестовых случаев в желаемый формат. Редактировать: 1 байт сохранен благодаря @MartinEnder. Объяснение: Первый этап сопоставляет подарки и находит соответствующий док. Подарки сортируются по подстроке от начала строки до [, тем самым группируя подарки по доку. Затем второй этап удаляет доки.

Подключить , 3 байта

f₱Ẏ

Попробуйте онлайн!

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

f ₱ Ẏ | Полная программа.

 ₱ | Карта над правильным аргументом.
f | Использование пересечения списка, подсчет кратностей.
  Ẏ | Затянуть (сгладить на 1 уровень).

APL + WIN, 29 байт

(,⍉<\p←n∘.≤∊¯1↑¨⎕)/(×/⍴p)⍴n←⎕

Запрашивает ввод с экрана целых чисел и диапазонов. Целые числа как плоский список, а диапазоны как вложенный вектор, например, случай 3:

(1 3) (4 5) (6 7)

Объяснение:

(×/⍴p)⍴n←⎕ prompt for screen input of integers and replicate by the number of ranges 

∊¯1↑¨⎕ prompt for screen input of ranges and select the top of each

p←n∘.≤ create a boolean matrix using outer product with less than the top of each range

,⍉<\ identify the first range which each element fits in and ravel into a partition vector

(.....)/.... use the partition vector to select the elements in each range in order

C ++, 127 байт

Возьмите входные данные в виде двух массивов, представленных парами указателей [start, end).

#import<algorithm>
[](int*A,int*x,int*B,int*y){for(;B!=y;B+=2)A=std::stable_partition(A,x,[&](int a){return a>=*B&&a<=B[1];});}

Попробуйте онлайн!

J 15 байт

[/:[:I.e.&>"0 1

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

например, для первого диапазона:

   NB. This produces the range
   (1 2 3 ; 4 5 6 7)
┌─────┬───────┐
│1 2 3│4 5 6 7│
└─────┴───────┘

Попробуйте онлайн!

объяснение

[/:[:I.e.&>”0 1
          >”0 1  Pair each element on the left with each range on the right
       e.        Is the element in the range?
     I.          Indices of ones
[/:              Sort the elements by this array

J , 26 24 байта

2 байта благодаря Коул

[:;]<@#~1=-&1 0"1@[I."1]

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

Левый аргумент содержит диапазоны.

-&1 0"1@[ уменьшает нижнюю границу каждого диапазона на 1

I."1] проверяет, в каком диапазоне подходит каждый подарок

1= это в правильном диапазоне

]<@#~ копии и коробки подарков, которые находятся в текущем ассортименте

; - никак (распаковка)

Попробуйте онлайн!

R , 113 48 55 41 байт

Предыдущая версия неправильно сортировала объекты, когда доки были не в порядке возрастания.

function(P,D)for(d in D)cat(P[P%in%d],"")

Попробуйте онлайн!

Берет Dза список векторов диапазонов, т. list(4:7,1:3)Е. Будет [[4, 7], [1, 3]].

Вероятно, наивный ответ, который я должен был получить давным-давно; печатает на стандартный вывод.

Japt , 6 байт

ñ@VbøX

Попробуй это

объяснение

Неявный ввод массива U(представлены) и 2d-массива V(полные диапазоны). Сортируйте ( ñ) подарки, передавая их через функцию ( @), которая получает индекс первого элемента ( b), Vкоторый содержит ( ø) текущий present ( X).

Python 2, 97 85 байт

l,d=input()
k=lambda i,j=0:-~j*(d[j][0]<=i<=d[j][1])or k(i,j+1)
print sorted(l,key=k)

-11 байт из ов

-1 байт от мистера Xcoder

Попробуйте онлайн!

Сортирует список, используя рекурсивную лямбду в качестве ключа. Объяснение в ближайшее время ™ ниже.

Объяснение:

l,d=input()             # l is the lsit of presents, d is the list of ranges
k=lambda i,j=0:-~j*(d[j][0]<=i<=d[j][1])or k(i,j+1)# recursive lambda to sort with
k=lambda i,j=0:                                    # i is the present
                                                   # j is the index in the list of ranges
               -~j*(d[j][0]<=i<=d[j][1])           # return the index of the list of
                                                   # ranges(plus one) if the present is
                                                   # in the range
                                        or k(i,j+1)# if the present is not in the range,
                                                   # try the next range
print sorted(i,key=k)   # print the list of presents sorted by the lambda

Javascript ES6, 53 47 45 байт

p=>l=>l.map(d=>p.filter(a=>d.includes(a)))+''

Попробуйте онлайн!

PowerShell , 37 байт

param($a,$b)$b|%{$i=$_;$a|?{$_-in$i}}

Попробуйте онлайн!

Воспринимается $aкак буквальный массив подарков и $bкак массив массивов, каждый из которых является полным диапазоном (например, @(1,2,3,4,5)вместо @(1,5)). Затем мы перебираем каждый элемент $bс |%{...}. Внутри нам нужно установить помощника $iв качестве текущего элемента, а затем использовать Where-Objectпредложение против, $aчтобы извлечь только те элементы, которые являются -inтекущим $bмассивом.

Они остаются на конвейере и вывод неявный. Так как стандартное поведение Write-Outputвставляет новую строку между элементами массива, это то, что мы получаем. Вот слегка измененная версия, которая -joinобъединена через запятую вместо новой строки, чтобы показать различия.

Красный , 73 байта

f: func[b r][n: copy[]foreach p r[foreach a b[if find p a[append n a]]]n]

Попробуйте онлайн!

C # (.NET Core) , 50 + 18 байт

a=>b=>b.SelectMany(x=>a.Where(y=>y>=x[0]&y<=x[1]))

+18 байт от

using System.Linq;

Требуется коллекция подарков и коллекция массивов для доков.

Попробуйте онлайн!

Пакет Windows (CMD), 90 79 байтов

set/pX=||exit
set/pY=
for %%n in (%*)do if %X% LEQ %%n if %%n LEQ %Y% %%n
%0 %*

Используйте формат конца строки LF. Каждый символ конца строки может быть посчитан как 1 байт.

Нет TIO (потому что TIO использует Linux)

Возьмите список из аргументов командной строки и диапазон от stdin.

Например, если программа запущена (предположим, файл назван r1.cmd)

r1 7 3 5 4 6 1 2

и с stdinвводом

1
3
4
5
6
7

программа выведет в stderrформате

'3' is not recognized as an internal or external command,
operable program or batch file.
'1' is not recognized as an internal or external command,
operable program or batch file.
'2' is not recognized as an internal or external command,
operable program or batch file.
'5' is not recognized as an internal or external command,
operable program or batch file.
'4' is not recognized as an internal or external command,
operable program or batch file.
'7' is not recognized as an internal or external command,
operable program or batch file.
'6' is not recognized as an internal or external command,
operable program or batch file.

(соответствует выходной последовательности 3 1 2 5 4 7 6)

Объяснение:

set /p X=       Prompt for variable X (min range)
   ||exit       If failed (end of file), exit - similar to short-circuit of logical OR
set /p Y=       Prompt for variable Y
for %%n in (%*)do     For each number %%n in all command-line arguments
   if %X% LEQ %%n     If X <= n
      if %%n LEQ %Y%  and n <= Y
         %%n          run command named "n", which lead to an error.

%0 %*           Call itself, process other ranges

Разгруженный код (с включенным взаимодействием, если trueпередается в качестве аргумента 1; запрашивать список stdin, используйте, gotoчтобы избежать переполнения стека - на самом деле я только что попытался запустить скрипт, который вызывает себя более 70000 раз, не видя никаких проблем, поэтому я предполагаю, что это должно быть довольно безопасно):

@echo off

set INTERACTIVE=%1

if "%INTERACTIVE%" == "true" (
    set rangeMinPrompt=Enter range min: 
    set rangeMaxPrompt=Enter range max: 
    set listPrompt=Enter list: 
) else (
    set rangeMinPrompt=
    set rangeMaxPrompt=
    set listPrompt=
)


set /p list=%listPrompt%

:loop_label

set /p rangeMin=%rangeMinPrompt%&& set /p rangeMax=%rangeMaxPrompt%|| exit /b

for %%n in (%list%) do (
    if %rangeMin% LEQ %%n (
        if %%n LEQ %rangeMax% (
            echo %%n
        )
    )
)

goto :loop_label

Чисто , 59 байт

import StdEnv;f p l=flatten[[n\\n<-p|a<=n&&n<=b]\\[a,b]<-l]

Попробуйте онлайн!

Принимает два списка, возвращает список.

Wolfram Language (Mathematica) , 34 байта

r#~SortBy~{#&@@@r~Position~#&}&

Попробуйте онлайн!

это Functionоператор.

Это безымянная карри функция, которая должна вызываться сначала со списком (расширенных) диапазонов дока, а затем со списком подарков. Например, если вы назначите функцию f:

f[ {{4,5,6,7},{1,2,3}} ][ {1,2,3,4,5,6,7} ]

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

Юлия 0,6 , 31 30 байт

p%d=vcat((∩(p,x)for x=d)...)

Попробуйте онлайн!

Переопределяет %оператор и отображает пересечение множества ∩()по докам, dсохраняя порядок и кратность первого импульса, списка подарков p. vcatс расширением ввода до нескольких аргументов с помощью ...выравнивания результирующего вложенного массива.

Edit, -1Byte: список понимания вместо map().