ฉันอยู่ในรถบัสวันนี้และสังเกตเห็นสัญญาณนี้:

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

จำนวนผู้โดยสารที่นั่งยืนและเก้าอี้รถเข็นทั้งหมดต้องไม่ใหญ่กว่าบางแถวในตาราง (ดูรายละเอียดการแชท)

สำหรับวัตถุประสงค์ของการท้าทายนี้เราจะพูดคุยแนวคิดนี้: กำหนดรายการจำนวนเต็มไม่เป็นลบของความยาวเชิงบวก N อย่างเคร่งครัด (จำนวนประเภทผู้โดยสาร) และเมทริกซ์จำนวนเต็มไม่ลบของมิติบวกอย่างเคร่งครัด (คอลัมน์ N และหนึ่งแถวต่อการกำหนดค่า หรือทรานแซคชั่นของสิ่งนี้) ส่งคืนรายการดัชนี / ความจริง - เท็จ / สองค่าที่ไม่ซ้ำกันซึ่งบ่งชี้ว่าข้อ จำกัด การกำหนดค่าใดเป็นจริง

เช่นด้วยเมทริกซ์ด้านบน:
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 bytes) ลองออนไลน์!

อ็อกเทฟ 15 ไบต์

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

ลองออนไลน์!

ตามความคิดเห็นของ sundar การละเว้นการแปลงจะบันทึก 2 ไบต์

MATL , 3 ไบต์

<~A

ลองออนไลน์!

นำเมทริกซ์อินพุตเป็นการแปลงรูปแบบในคำถาม (ตามที่อนุญาตโดย OP) ด้วยหนึ่งคอลัมน์ต่อการกำหนดค่า เอาต์พุตบูลีน 0 และ 1 สำหรับ false และ true

R , 32 30 26 ไบต์

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

ลองออนไลน์!

ยอมรับเมทริกซ์ในรูปแบบการขนย้ายเป็นทดสอบการตั้งค่าเป็นx yส่งคืนเวกเตอร์ของ booleans

เริ่มต้น -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$

ควรมีหมายเลขหนึ่งอยู่ในรายการและหมายเลขในแถวควรมีอย่างน้อยเท่ากับใหญ่

Japtap , 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ซึ่งขณะนี้อยู่ในการพัฒนาจะมี builtins เหล่านี้›

ε        # 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

Stax , 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

Brachylogขนาด 14 ไบต์

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

ลองออนไลน์!

ภาษา Wolfram (Mathematica)ขนาด 18 ไบต์

Inner[Less,##,Or]&

ส่งคืนรายการค่าสองค่าที่ไม่ซ้ำกัน: Trueหมายถึงเท็จ, Falseหมายถึงความจริง

ลองออนไลน์!