Я був сьогодні в автобусі і помітив цей знак:

      seated    standing    wheelchairs
max1    37         30            00
max2    36         26            01
max3    34         32            00

Кількість пасажирів, що сидять, стоячи та інвалідних візків, повинна бути не більшою, ніж якийсь ряд у таблиці. (Детальніше див. У чаті.)

Для цілей цього виклику ми узагальнимо цю ідею: Враховуючи невід'ємний цілий список строго позитивної довжини N (кількість типів пасажирів) та невід'ємну цілочисельну матрицю строго позитивних розмірів (N стовпців та один рядок у конфігурації або перекласти це), поверніть перелік індексів / truthy-falsies / два унікальних значення, що вказують, які межі конфігурацій виконуються.

Напр. З вищевказаною матрицею:
30,25,1→ [1](0-індексований) [2](1-індексований) або [false,true,false](булевий) або ["Abe","Bob","Abe"](два унікальних значення) тощо.

У наступних тестових випадках використовується вищевказана матриця та 0/1 для помилкових / істинних:
[30,30,0]→ [1,0,1]
[30,31,0]→ [0,0,1]
[35,30,0]→ [1,0,0]
[0,0,1]→ [0,1,0]
[0,0,0]→ [1,1,1]
[1,2,3]→ →[0,0,0]

У наступних тестових випадках використовується наступна матриця:
1 2 0 4
2 3 0 2

[1,2,1,2]→ [0,0]
[1,3,0,1]→ [0,1]
[1,2,0,3]→ [1,0]
[1,2,0,1]→[1,1]

APL (Dyalog Unicode) , 5 3 байти

∧.≤

Спробуйте в Інтернеті!

Haskell, 22 20 байт

map.(or.).zipWith(>)

Повертається, Falseякщо законний, а Trueякщо ні.

Спробуйте в Інтернеті!

Перегортаючи True / False, оскільки значення повернення економить 2 байти (спасибі @ user202729!). З Trueдля правового це map.(and.).zipWith(<=)(22 байт). Спробуйте в Інтернеті!

Октава , 15 байт

@(a,b)all(a>=b)

Спробуйте в Інтернеті!

Відповідно до коментаря Sundar, якщо пропустити транспонінг, економиться 2 байти.

MATL , 3 байти

<~A

Спробуйте в Інтернеті!

Має вхідну матрицю як перенесення формату у питанні (дозволене ОП), з одним стовпцем на конфігурацію. Виводить булеві 0 та 1 для хибних та істинних.

R , 32 30 26 байт

function(x,y)!colSums(x<y)

Спробуйте в Інтернеті!

Приймає матрицю в транспонованому вигляді як x, тестує конфігурацію як y. Повертає вектор булів.

Початкові -2 байти завдяки mnel, а далі -4 JayCe.

Желе , 3 байти

<Ẹ€

Спробуйте в Інтернеті!

0= Правда, 1= Неправдиво.

Ом v2 , 3 байти

>Σy

Спробуйте в Інтернеті!

Алгоритм: векторний >(більший за), Σпідсумовуйте кожен, yзнак.

JavaScript (ES6), 38 байт

Вводиться як " (matrix)(vector). Повертає булевий масив.

m=>v=>m.map(r=>!r.some((t,x)=>v[x]>t))

Спробуйте в Інтернеті!

Haskell , 30 байт

map.((.).(==)<*>(zipWith min))

Спробуйте в Інтернеті!

Сітківка 0,8,2 , 57 байт

\d+
$*
;(?=.*;(.*))
;$1¶
%(+`,1*(1*)(;.*),\1$
$2
(1*);\1$

Спробуйте в Інтернеті! Посилання включає тестові випадки, але вихідний запуск виконується разом. Пояснення:

\d+
$*

Перетворити в одинарне.

;(?=.*;(.*))
;$1¶

Дайте кожному рядку матриці власну копію списку.

%(

Оперуйте окремо по кожному рядку матриці.

+`,1*(1*)(;.*),\1$
$2

Неодноразово видаляйте останнє число рядка та списку, тоді як останнє число рядка принаймні таке велике, як і у списку.

(1*);\1$

Тоді в списку повинно бути одне число, а число в рядку має бути принаймні таким же великим.

Japt , 6 5 байт

-1 байт від @Shaggy

eȨVv

Спробуйте в Інтернеті!

Python 2 , 38 байт

lambda m,l:[l==map(min,l,r)for r in m]

Спробуйте в Інтернеті!

05AB1E , 5 байт

εs<›P

Спробуйте в Інтернеті чи перевірте всі тестові випадки .

Пояснення:

На жаль, 05AB1E v1 не має вбудованого 1-знакового для ≤або ≥, тому замість цього я зменшую кожне значення перед використанням ›. 05AB1E v2, який зараз розробляється, матиме ці вбудовані елементи.

ε        # For-each row of the (implicitly input) matrix:
 s       #  Swap, so the (implicitly input) list is at the top of the stack
  <      #  Decrease every value in the input-list by 1
         #   i.e. [30,25,1] → [29,24,0]
   ›     #  Check for each value in the matrix-row if they're larger
         #  than the input-list value at the same index
         #   i.e. [37,30,0] and [29,24,0] → [1,1,0]
    P    #  Then take the product of these checks
         #   i.e. [1,1,0] → 0

Стакс , 8 байт

â ╤┘µrφî

Запустіть і налагоджуйте його

Пояснення:

mx\{:vm|A Full program, unpacked, implicit input
m         Map over rows of the matrix:
 x\         Zip with input array
   {  m     Map over result:
    :v        Check if non-increasing, i.e. matrix element greater than or equal to array element
       |A   All.
            Implicit output

Брахілог , 14 байт

zzᵐ{≥₁ᵐ∧1|∧0}ᵐ

Спробуйте в Інтернеті!

Мова Вольфрама (Mathematica) , 18 байт

Inner[Less,##,Or]&

Повертає список двох унікальних значень: Trueозначає фальшивий,False означає хибність означає правду.

Спробуйте в Інтернеті!