( aunque no encontraremos Findni atraparemos un tryCatch)

Esta es la segunda parte de una serie de varias partes de implementación de algunas funciones interesantes de R. La primera parte se puede encontrar aquí .

La tarea:

Debe implementar la matchfunción de R en el menor número de bytes posible.

Entrada:

• x, una lista / matriz posiblemente entera de enteros
• table, una lista / matriz posiblemente entera de enteros
• nomatch, un solo valor entero
• incomparables, una lista / matriz posiblemente entera de enteros

Salida:

• una sola matriz / lista de enteros Ode igual longitud x, donde cada valor O[i]representa:
  • El índice jdel primer valor en tabledondetable[j]==x[i]
  • nomatch, lo que indica que ningún valor en tablees igual a x[i] OR que x[i]está en la lista de incomparables.

Casos de prueba

All in the form x, table, nomatch, incomparables -> output
outputs 

[], [1,2,3], 0, [5] -> []

[1, 2, 3], [], 0, [5] -> [0, 0, 0]

[9, 4, 3, 6, 3], [9, 8, 7, 6, 5, 4, 3, 2, 1], -1, [4] -> [1, -1, 7, 4, 7]

[8, 6, 7, 5, 3, 0, 9], [3, 1, 4, 1, 5, 9, 2, 6, 5, 3, 5, 8, 9, 7, 9, 3, 2, 3, 8, 4, 6, 2, 6], 1000, [1] -> [12, 8, 14, 5, 1, 1000, 6]

Se pueden generar más casos de prueba según sea necesario.

Reglas adicionales:

• R tiene índices basados ​​en 1, pero son aceptables índices consistentes basados ​​en alternativas. Por lo tanto, puede usar índices que comienzan en 3 o 17 o lo que sea, pero esto debe ser consistente y debe indicarlo en su respuesta.
• Si eligió el idioma tiene una función integrada que hace esto, también implemente su propia solución.
• Las explicaciones son apreciadas.

Este es el código de golf , por lo que la solución más corta en bytes gana.

Jalea ,  10  8 bytes

-2 gracias a Erik the Outgolfer

,⁷y⁵iⱮ⁶o

Un programa completo que acepta cuatro argumentos de línea de comando, incomparables nomatch table xque imprime una representación Jelly * de la lista de matchresultados de la función de R.

Pruébalo en línea!

¿Cómo?

por ejemplo, con incomparables nomatch table x= [1,4], 2, [2,4], [4,3,2,1,0]:

,⁷y⁵iⱮ⁶o - Main Link: list, incomparables; list, nomatch
 ⁷       - newline character                                '\n'
,        - pair (incompararables) with (right)              [[1,4],'\n']
   ⁵     - 5th argument (3rd input = table)                 [2,4]
  y      - translate (right) with lookup (left)             [2,'\n']             
      ⁶  - 6th argument (4th input = x)                     [4,3,2,1,0]
     Ɱ   - map with:
    i    -   first index of (right) in (left)               [0,0,1,0,0]
       o - logical OR                                       [2,2,1,2,2]

* Una lista vacía se representa como nada, una lista de lenth one se representa solo como el elemento, mientras que otras listas están encerradas []y delimitadas por,

R , 83 bytes

function(x,t,n,i)sapply(x,function(a)c(which(a==t/!rowSums(outer(t,i,`==`))),n)[1])

Pruébalo en línea!

Evita match, %in%y setdiff.

R , 55 bytes

En este caso, el código no se usa matchcon toda su funcionalidad, solo se usa como una indexfunción. Primera respuesta R, ¡así que probablemente sea increíblemente ineficiente en bytes!

Nota (gracias a Giuseppe por la información) : %in% y setdifftambién se implementan internamente usando match, por lo que deshacerse por completo de esta función sorprendentemente útil resultará en un desastre . ¡Por lo tanto, hay una recompensa de 150 repeticiones sin fecha límite para esto! (tenga en cuenta que setdiffestá permitido, sin embargo)

function(x,t,n,i)ifelse(x%in%setdiff(t,i),match(x,t),n)

Pruébalo en línea!

o...

R , 5 bytes

match

Pruébalo en línea!

Jalea , 9 8 bytes

ṣK¥ƒiⱮo⁶

Pruébalo en línea!

Un programa completo que toma tres argumentos: [[table], incomparables], x, nomatchen ese orden.

C # (compilador interactivo de Visual C #) , 60 bytes

(a,b,c,d)=>a.Select(x=>d.Contains(x)|(x=b.IndexOf(x))<0?c:x)

Pruébalo en línea!

Ruby , 44 bytes

Indexado a cero.

->x,t,n,i{x.map{|e|i-[e]==i&&t.index(e)||n}}

Pruébalo en línea!

R , 79 bytes

function(x,t,n,i)sapply(x,function(y)`if`(any(z<-y==t)&all(y-i),which(z)[1],n))

Pruébalo en línea!

R , 66 bytes

function(x,t,n,i)sapply(x,function(y)c(which(y==t&all(y-i)),n)[1])

Combinando mi solución con partes de la solución de Nick .

Pruébalo en línea!

Japt , 14 bytes

Ë!XøD ©ÒVbD ªW

Intentalo

Python 3 , 60 bytes

lambda x,t,n,i:[v in{*t}-{*i}and-~t.index(v)or n for v in x]

Pruébalo en línea!

PowerShell , 63 bytes

param($x,$t,$n,$o)$x|%{($n,$t.indexof($_))[$_-in$t*!($_-in$o)]}

Pruébalo en línea!

0 indexado

JavaScript (ES6), 53 bytes

(x,t,n,i)=>x.map(v=>!~i.indexOf(v)*-~t.indexOf(v)||n)

Pruébalo en línea!

Perl 6 , 45 bytes

->\b,\c,\d{*>>.&{$_∉d&&~b.first($_,:k)||c}}

Pruébalo en línea!

Bloque de código anónimo que toma la entrada curry, como f(table, nomatch, incomparables)(x)y devuelve las coincidencias 0 indexadas.

Explicación:

->\b,\c,\d{                               }    # Anonymous code block taking 3 inputs
           *           # Return an anonymous Whatever lambda
            >>.&{                        }  # Mapping input to
                 $_∉d                       # If the element is not an uncomparable
                     && b.first($_,:k)      # Return the first index in the table
                       ~                    # Stringified so Nils are false
                                      ||c   # Else the nomatch element
~~

Carbón , 14 bytes

ＩＥθ∨∧¬№ει⊕⌕ηιζ

Pruébalo en línea! El enlace es a la versión detallada del código. 1 indexado. Explicación:

  θ             First input (x)
 Ｅ              Map over elements
       ε        Fourth input (incomparables)
      №         Count occurrences of
        ι       Current element
     ¬          Is zero
    ∧           Logical And
           η    Second input (table)
          ⌕     Find 0-based index of
            ι   Current element
         ⊕      Convert to 1-indexed
   ∨            Logical Or
             ζ  Third input (nomatch)
Ｉ               Cast to string
                Implicitly print on separate lines

C (gcc) , 125 bytes

1 indexado.

Dado que no puedo usar un valor centinela en las matrices pasadas, necesito dar los límites de la matriz para cada matriz.

f(x,c,t,d,n,i,e,j,f)int*x,*t,*i;{for(;f=0,c-->0;x[c]=--f?n:j){for(j=e;!f&j;x[c]-i[--j]||--f);for(;!f&j<d;x[c]-t[j++]||++f);}}

Pruébalo en línea!

Adjunto , 39 bytes

${{[_,y][nil=_or x@_in z]}=>x&Index@_4}

Pruébalo en línea!

Verificación bastante simple. Tenga en cuenta que el orden del argumento difiere del del partido; específicamente, xes el último argumento en lugar del primero, y corresponde al _4fragmento anterior.

Explicación

${{[_,y][nil=_or x@_in z]}=>x&Index@_4}
${                                    }   named lambda, taking parameters x, y, z, and _4
                            x&Index@_4    short for Index[x, _4];
                                              calculates where each element in _4 occurs in x
                                              returns `nil` for no match
  {                      }=>              over each index:
   [_,y][               ]                     choose y (`nomatch`) if
         nil=_                                    the index is nil
              or x@_in z                          or the element is in `incomparables`
    _                                         otherwise, choose the index

Haskell, 57 56 bytes

(t#n)i=map$maybe n id.($zip i[n,n..]++zip t[1..]).lookup

Orden de los argumentos es: table, nomatch, incomparables, x.

Pruébalo en línea!

05AB1E , 7 bytes

õ:Ik®I:

0 indexado. Las entradas están en el orden: incomparables, table, x, nomatch.

Pruébalo en línea.

Explicación:

õ:       # Replace all values of the (implicit) first incomparables-list in
         # the (implicit) second table-list with an empty string
         #  i.e. incomparables=[4] and table=[9,8,7,6,5,4,3,2,1] → [9,8,7,6,5,"",3,2,1]
  Ik     # Get the index of each value in the third x-list in this list (-1 if not found)
         #  i.e. x=[9,4,3,6,3] → [0,-1,6,3,6]
    ®I:  # Replace all -1 with the fourth input-integer
         #  i.e. nomatch=-99 → [0,-99,6,3,6]
         # (and output the mapped list implicitly as result)