15

J'étais dans le bus aujourd'hui et j'ai remarqué ce signe:

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

Le nombre de passagers assis, de passagers debout et de fauteuils roulants ne doit pas être supérieur à une rangée du tableau. (Voir le chat pour plus de détails.)

Aux fins de ce défi, nous généraliserons cette idée: étant donné une liste entière non négative d'une longueur strictement positive N (nombre de types de passagers) et une matrice entière non négative de dimensions strictement positives (N colonnes et une ligne par configuration , ou la transposition de ceci), retourne une liste d'indices / vérités-fausses / deux-valeurs-uniques indiquant quelles configurations les limites sont remplies.

Par exemple avec la matrice ci-dessus:
30,25,1→ [1](indexé 0) [2](indexé 1) ou [false,true,false](booléen) ou ["Abe","Bob","Abe"](deux valeurs uniques) etc.

Les cas de test suivants utilisent la matrice ci-dessus et le 0/1 pour faux / vrai:
[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]

Les cas de test suivants utilisent la matrice suivante:
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]

— Adam
source

Suis-je incompris de ce défi ou peut- [30,31,0]être [1, 1, 1]parce qu'il est couvert par max3?

— Okx

L'échange de valeurs de vérité est-il autorisé? (par exemple, toute valeur vraie à la place de 0et toute valeur fausse à la place de 1?)

— M. Xcoder

@Okx Vous vous méprenez sur quelque chose. [x,31,z]exclut max1et max2parce qu'ils ne permettent pas 31 voyageurs debout.

— Adám

@ Mr.Xcoder Est-ce généralement autorisé dans des défis comme celui-ci?

— Adám

Je pensais (voir (2) ) (voir également le commentaire de Martin ) que cela est autorisé par défaut, mais je n'ai pas trouvé de méta consensus. J'ai procédé en affichant cette méta-question , dont la conclusion que le PO devrait être demandé en premier. Je le permets habituellement, je ne vois pas la raison pour laquelle ils ne devraient pas être échangés.

— M. Xcoder

8

APL (Dyalog Unicode) , 5 3 octets

∧.≤

Essayez-le en ligne!

— jslip
source

2

∧.≤

— Adám

Merci @ Adám. Je ne sais pas comment j'ai raté ça.

— jslip

6

Cela ressemble à des emoji. ^_^ >,< @.@

— tsh

6

Haskell, 22 20 octets

map.(or.).zipWith(>)

Retourne Falsesi légal et Truesinon.

Essayez-le en ligne!

Retourner Vrai / Faux comme valeurs de retour économise 2 octets (merci @ user202729!). Avec Truepour légal c'est map.(and.).zipWith(<=)(22 octets). Essayez-le en ligne!

— nimi
source

Renverser vrai et faux dans la sortie entraîne une solution plus courte.

— user202729

4

Octave , 15 octets

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

Essayez-le en ligne!

Selon le commentaire de Sundar, l'omission de la transposition permet d'économiser 2 octets.

— tsh
source

OP permet de prendre la matrice comme transposée de ce qui est montré dans la question, et vous pouvez prendre bcomme vecteur de colonne au lieu de vecteur de ligne (car il est simplement spécifié sous forme de liste), économisant 2 octets: Essayez-le en ligne!

— sundar

3

MATL , 3 octets

<~A

Essayez-le en ligne!

Prend la matrice d'entrée comme une transposition du format dans la question (comme autorisé par OP), avec une colonne par configuration. Sorties booléennes 0 et 1 pour faux et vrai.

— Sundar - Rétablir Monica
source

3

R , 32 30 26 octets

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

Essayez-le en ligne!

Accepte la matrice sous forme transposée as x, test config as y. Renvoie un vecteur de booléens.

-2 octets initiaux grâce à mnel, et encore -4 par JayCe.

— Kirill L.
source

2

Enregistrer 2 octets avec un corps de fonction appliquer (x> = y, 2, tous)

— mnel

1

enregistrer 4 octets

— JayCe

2

Gelée , 3 octets

<Ẹ€

Essayez-le en ligne!

0= Vrai, 1= Faux.

— Erik le Outgolfer
source

Si les valeurs n'ont pas besoin d'être distinctes, <§cela fonctionnerait

— M. Xcoder

@ Mr.Xcoder Je ne pense pas que cette option soit donnée ici. Je suppose que je vais attendre et voir.

— Erik the Outgolfer

C'est permis .

— M. Xcoder

1

@ Mr.Xcoder Hm, on dirait que ce <§n'est pas exactement "vrai-faux" mais plutôt "faux-vrai", ce qui, malheureusement, n'est pas ce que le défi demande.

— Erik the Outgolfer

@ Mr.Xcoder Jelly a besoin ≥.

— Adám

2

Ohm v2 , 3 octets

>Σy

Essayez-le en ligne!

Algorithme: vectorisé >(supérieur à), Σsomme chacun, ysigne.

— M. Xcoder
source

2

JavaScript (ES6), 38 octets

Prend l'entrée comme (matrix)(vector). Renvoie un tableau booléen.

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

Essayez-le en ligne!

— Arnauld
source

2

Haskell , 30 octets

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

Essayez-le en ligne!

— ovs
source

2

Retina 0.8.2 , 57 octets

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

Essayez-le en ligne! Link inclut des cas de test, mais la sortie est exécutée ensemble. Explication:

\d+
$*

Convertissez en unaire.

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

Donnez à chaque ligne de la matrice sa propre copie de la liste.

%(

Opérez séparément sur chaque ligne de la matrice.

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

Supprimez à plusieurs reprises le dernier numéro de la ligne et de la liste tandis que le dernier numéro de la ligne est au moins aussi grand que celui de la liste.

(1*);\1$

Il devrait alors y avoir un numéro dans la liste et le numéro dans la ligne devrait être au moins aussi grand que cela.

— Neil
source

2

Japt , 6 5 octets

-1 octets de @Shaggy

eÈ¨Vv

Essayez-le en ligne!

— Luis felipe De jesus Munoz
source

VgY-> Vvpour enregistrer un octet.

— Shaggy

1

Python 2 , 38 octets

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

Essayez-le en ligne!

— ovs
source

1

05AB1E , 5 octets

εs<›P

Essayez-le en ligne ou vérifiez tous les cas de test .

Explication:

Malheureusement, 05AB1E v1 n'a pas de fonction intégrée à 1 caractère pour ≤ou ≥, donc je diminue chaque valeur à la place avant de l'utiliser ›. 05AB1E v2 qui est en cours de développement aura ces fonctions intégrées.

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

— Kevin Cruijssen
source

1

Stax , 8 octets

â ╤┘µrφî

Exécuter et déboguer

Explication:

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

— wastl
source

1

Brachylog , 14 octets

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

Essayez-le en ligne!

— Sundar - Rétablir Monica
source

0

Wolfram Language (Mathematica) , 18 octets

Inner[Less,##,Or]&

Renvoie une liste de deux valeurs uniques: Truesignifie faux, Falsesignifie vrai.

Essayez-le en ligne!

— alephalpha
source

La charge de bus est-elle légale?

APL (Dyalog Unicode) , 5 3 octets

Haskell, 22 20 octets

Octave , 15 octets

MATL , 3 octets

R , 32 30 26 octets

Gelée , 3 octets

Ohm v2 , 3 octets

JavaScript (ES6), 38 octets

Haskell , 30 octets

Retina 0.8.2 , 57 octets

Japt , 6 5 octets

Python 2 , 38 octets

05AB1E , 5 octets

Stax , 8 octets

Brachylog , 14 octets

Wolfram Language (Mathematica) , 18 octets