¿Creciente, decreciente, ninguno o todos?

9

Tomar dos entradas, un vector no vacío / lista que contiene los dígitos 1y 2y una cadena (no, no se puede tomar 0/1en su lugar). La cadena será una de las siguientes (en minúsculas, exactamente como se escribe a continuación:

increasing
decreasing
ones
twos
all
none

Si la cadena es ____, deberá devolver los índices ___:

  • increasing... donde la lista cambia de 1a 2(todo lo 2que sigue directamente después de a 1)
  • decreasing... donde la lista cambia de 2a 1(todo lo 1que sigue directamente después de a 2)
  • ones ... de todos los dígitos que son 1
  • twos ... de todos los dígitos que son 2
  • all ... todos los dígitos
  • none... ninguno de los dígitos. 0está bien si la lista está indexada en 1. Un número negativo está bien si la lista está indexada en 0. También puede generar una lista o cadena vacía.

Casos de prueba:

Estos están indexados en 1. Puede elegir si desea 1 indexado o 0 indexado. Los mismos vectores se utilizan para diferentes cadenas en los casos de prueba.

--------------------------------
Vector:
1 1 2 2 2 1 2 2 1 1 2

String       - Output
increasing   - 3, 7, 11
decreasing   - 6, 9
ones         - 1, 2, 6, 9, 10 
twos         - 3, 4, 5, 7, 8, 11
all          - 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11
none         - 0 / []

------------------------------------
Vector:
1

String:
ones         - 1
all          - 1
decreasing / increasing / twos / none  - 0 / []

Puntuación

Como se trata de código de golf , gana la respuesta con la menor cantidad de bytes.

¡Se alientan las explicaciones!

code-golf  number  parsing 
— Stewie Griffin
fuente
@RobertoGraham sí.
— Stewie Griffin
@KevinCruijssen Eres un buen adivinador :)
— Stewie Griffin
Hasta ahora, ninguna de las respuestas parece generar una lista como se muestra en el ejemplo. (es decir, unido por "," sin delimitador final). Como el texto del desafío no dice cuán flexible puede ser la lista, ¿qué se acepta normalmente para desafíos como este?
— Tahg
Normalmente es muy flexible. Mientras sea una lista de números, estás bien.
— Stewie Griffin

Respuestas:

7

JavaScript (Firefox 30-57), 74 73 bytes

(a,[s],i=0,p)=>[for(e of a)if({i:e>p,d:e<p,o:e<2,t:e>1,a:1}[p=e,i++,s])i]

Las comprensiones de matriz son una forma ordenada de combinar mapy filterde una vez. Editar: guardado 1 byte gracias a @ edc65.

— Neil
fuente
3

Python 2 , 136 131 119 108 97 bytes

  • Guardado cinco bytes; utilizando una lambdafunción
  • Guardado doce bytes gracias a TFeld ; Golf dos condiciones.
  • Salvó once bytes gracias al Sr. Xcoder ; usando en enumerate()lugar de range(len()).
  • Se guardaron once bytes usando una lista en lugar de un diccionario y usando 0-indexing (como en la respuesta de TFeld ) y jugar al golf "adinot".find(m[0])a ord(m[0])/3-32.
lambda l,m:[j for j,k in enumerate(l)if[1,j*k<j*l[~-j],0,j*k>j*l[~-j],0,k<2,k>1][ord(m[0])/3-32]]

Pruébalo en línea!

— Jonathan Frech
fuente
Dado que la entrada es siempre 1o 2, puede cambiar (l[j]>1)*(l[~-j]<2)a (l[j]>l[~-j]) de 119 bytes
— TFeld
Además, puede guardar un byte cambiando a 0 indexado
— TFeld
@TFeld Gracias; aunque creo que me 1quedaré con -indexed.
— Jonathan Frech
108 bytes , usandoenumerate()
— Mr. Xcoder
2

MATL , 32 31 30 29 bytes

dQ~fQGqfOOGofGd1=fQGfO[]Xhjs)

La salida se basa en 1 o está vacía.

Pruébalo en línea!

Explicación

El código calcula las seis salidas posibles para la entrada de la matriz y luego selecciona la salida apropiada según la entrada de la cadena.

Para seleccionar la salida, se agregan los puntos de código ASCII de todos los caracteres de la entrada de cadena. El modulo número 9 da 6, 1, 5, 2, 7, 0, respectivamente, para 'increasing', 'decreasing', 'ones', 'twos', 'all','none' . Como todos los números resultantes son distintos, esto puede usarse como criterio de selección.

En lugar de realizar realmente una operación del módulo 9 en la suma, la lista de posibles entradas se extiende a 9 entradas (algunas de las cuales son ficticias), por lo que la indexación en esa lista se realiza automáticamente en el módulo 9.

d     % Implicit input: numeric vector. Push vector of consecutive differences.
      % Contains -1, 0 or 1
Q~    % For each entry: add 1, negate. This turns -1 into 1, other values into 0
f     % Push indices of nonzeros
Q     % Add 1 to each entry (compensates the fact that computing consecutive
      % differences removes one entry). This the output for 'decreasing'
Gq    % Push input again. Subtract 1 from the code points
f     % Push indices of nonzeros. This is the output for 'twos'
OO    % Push two zeros. These are used as placeholders
Go    % Push input and compute parity of each entry
f     % Push indices of nonzeros. This is the output for 'ones'
Gd    % Push input and compute consecutive differences
1=    % Test each entry for equality with 1
f     % Push indices of nonzeros 
Q     % Add 1. This is the output for 'increasing'
Gf    % Push indices for all input (nonzero) entries. This is the output for 'all'
O     % Push zeros. Used as placeholder
[]    % Push empty array. This is the output for 'none'
Xh    % Concatenate stack into a cell array
j     % Input a string
s     % Sum of code points
)     % Use as an index into the cell aray. Implicitly display
— Luis Mendo
fuente
1

Jalea , 27 bytes

>2\0;
NÇ
Ị
=2

ḟ
⁹Ḣ“hɠ»iµĿT

Pruébalo en línea!

-3 gracias a Jonathan Allan .

— Erik el Outgolfer
fuente
Ahorre tres bytes usando la palabra del diccionario "diota": tenga en cuenta que el enlace 0 lo hace bien, pero puede volver a ordenarlo y usar "antídoto" u otra palabra similar y permitir que su arnés de prueba vuelva a funcionar.
— Jonathan Allan
@JonathanAllan Pensé que el enlace 0era el enlace más inferior, pero aparentemente es Çmás extraño, ¡gracias! (también acabo de aprender una nueva palabra: p)
— Erik the Outgolfer
1

Casco , 27 bytes

`fN!+mmëI=2ε¬moΘẊe><€¨Ÿȧö¨←

Pruébalo en línea!

-9 gracias a H.PWiz .

Estoy muy orgulloso de esta respuesta.

— Erik el Outgolfer
fuente
Golfé principalmente usando ΘẊ>y ΘẊ<y`fN
— H.PWiz
@ H.PWiz, ¿cómo no los vi honestamente?
— Erik the Outgolfer
-1 byte Una lista indexada en 0es el último elemento.
— H.PWiz
@ H.PWiz Ooh, pensé que la cadena comprimida sería en ¨₆Żσa¨cambio por eso no utilicé esa función, gracias. Y ahora puedo decir que vincula a Jelly .
— Erik the Outgolfer
1

Java (OpenJDK 8) , 266 217 213 205 172 171 155 131 bytes

s->a->{int i=0,l=0,c=s.charAt(0)-97;for(int e:a){if(++i>1&(c==8&e>l|c==3&e<l)|c==14&(l=e)<2|c>18&l>1|c<1)System.out.print(i+",");}}

Pruébalo en línea!

— Roberto Graham
fuente
Si se define ycomo una char, puede tests de igualdad de golf como y.equals("a")a y=='a', y==97o incluso y<98.
— Jonathan Frech
@JonathanFrech solo lo estaba cambiando :)
— Roberto Graham
El TIO al menos no es el resultado que esperaría. Si bien solo se da a modo de ejemplo, la lista requiere un espacio entre elementos y ninguna coma final.
— Tahg
Dado que 19es cel valor más alto, c==19es igual a c>18.
— Jonathan Frech
2
131 bytes:s->a->{int i=0,l=0,c=s.charAt(0)-97;for(int e:a){if(++i>1&(c==8&e>l|c==3&e<l)|c==14&(l=e)<2|c>18&l>1|c<1)System.out.print(i+",");}}
— Nevay
1

Jq 1.5 , 131 bytes

Basado en el enfoque de xcali ya que la coincidencia de cadenas es más corta que mi versión de matriz. 

def D(s):[.[1]|gsub(" ";"")|match(s;"g").offset+(s|length)];./"
"|{i:D("12"),d:D("21"),o:D("1"),t:D("12"),a:D("."),n:[]}[.[0][0:1]]

Asume que jq se invoca con -Rsopciones y la entrada aparece en dos líneas, por ejemplo

decreasing
1 1 2 2 2 1 2 2 1 1 2

Expandido:

def D(s): [
      .[1]                              # find where s appears
    | gsub(" ";"")                      # in the input and add
    | match(s;"g").offset + (s|length)  # length to get ending index
  ]
;

  ./"\n"                                # split on newline
| {i:D("12"),                           # increasing
   d:D("21"),                           # decreasing
   o:D("1"),                            # ones
   t:D("2"),                            # twos
   a:D("."),                            # all
   n:[]                                 # none
  }[.[0][0:1]]

Pruébalo en línea!

— jq170727
fuente
1

J 73 bytes

g=.[:I.[=0,2-/\]
(_1 g])`(1 g])`(1=])`(2=])`(i.@#@])`_1:@.('idotan'i.{.@[)

Sería curioso ver cómo esto se puede condensar significativamente: creo que sí (¡10 caracteres solo para todos esos padres de la agenda!)

  • g - verbo auxiliar para aumentar y disminuir, lo que equivale a comparar los valores de infijo \ series de de tamaño 2
  • El resto solo toma el primer carácter del "comando" y ejecuta el caso correspondiente usando Agenda @.

Pruébalo en línea!

— Jonás
fuente
¿Hacer 1=]y 2=]no trabajar? Además, ¿qué gpasaría si tomara un número como argumento izquierdo y una lista como argumento derecho y devolviera los índices 2-/\ aplicados a la lista igual al argumento izquierdo? De esa manera, podría pasarlo _1o 1encontrarlo disminuyendo y aumentando en lugar de usar un adverbio.
— cole
@cole Buenos comentarios. Hice los cambios, y el resultado es mucho más limpio, aunque 73 todavía parece un recuento alto de bytes. Quiero decir, J está atando al JS aquí ... ¡qué vergüenza!
— Jonás
0

Java 8, 233 229 216 bytes

l->s->{int i=s.charAt(0)-97,k=0,j=1;for(s=(l+"").replaceAll("[^12]","");s.length()*j>0;System.out.print(j++<0?"":(k+=j)+","),s=s.substring(j))j=i<1?0:s.indexOf(i<4?"21":i<9?"12":i<14?" ":i<15?"1":"2")+(i>2&i<9?1:0);}

Este enfoque de String terminó más tiempo de lo que esperaba ... Pero aunque pensé que la otra respuesta de Java 8 me superaba enormemente , decidí publicarlo de todos modos.
Definitivamente se puede jugar golf, incluso con este enfoque. El "ninguno" y el "aumento / disminución" causaron principalmente una solución que costó algunos bytes.

El resultado es 1 indexado.

Explicación:

Pruébalo aquí.

l->s->{                          // Method with List and String parameters
  int i=s.charAt(0)-97,          //  First character of the String - 97
                                 //   (i=8; d=3; o=14; t=19; a=0; n=13)
      k=0,                       //  Total counter
      j=1;                       //  Index integer
  for(s=(l+"")                   //  toString of the List,
         .replaceAll("[^12]","");//   and leave only the 1s and 2s 
      s.length()*j>0             //  Loop as long as `j` and the size of the String
                                 //  are both larger than 0
      ;                          //   After every iteration:
      System.out.print(          //    Print:
       j++<0?                    //     If `j` is -1:
        ""                       //      Print nothing
       :                         //     Else:
        (k+=j)+",")              //      Print the current index
      ,s=s.substring(j))         //    And then remove the part of the String we've checked
    j=i<1?                       //   If "all":
                                 //    Change `j` to 0
      :                          //   Else:
       s.indexOf(                //    Replace `j` with the next index of:
        i<1?                     //     If "all":
         s.charAt(0)+""          //      The next character
        :i<4?                    //     Else-if "decreasing":
         "21"                    //      Literal "21"
        :i<9?                    //     Else-if "increasing":
         "12"                    //      Literal "12"
        :i<14?                   //     Else-if "none":
         " "                     //      Literal space (any char that isn't present)
        :i<15?                   //     Else-if "one":
         "1"                     //      Literal "1"
        :                        //     Else(-if "two"):
         "2")                    //      Literal "2"
       +(i>2&i<9?1:0);           //     +1 if it's "increasing"/"decreasing"
                                 //  End of loop (implicit / single-line body)
}                                // End of method
— Kevin Cruijssen
fuente
0

Perl 5 , 71 + 2 (-nl ) = 73 bytes

$p=/l/?'.':/t/?2:/^o/?1:/d/?21:/i/?12:0;$_=<>;s/ //g;say pos while/$p/g

Pruébalo en línea!

La lógica revisada es efectivamente la misma que la explicación a continuación, pero las coincidencias de patrones se han acortado.

Previamente:

$p=/all/?'.':/^o/?1:/^t/?2:/^d/?21:/^i/?12:0;$_=<>;s/ //g;say pos while/$p/g

Pruébalo en línea!

No genera nada si el criterio no coincide.

Explicado:

$p=          # set the pattern to seach based on the input string
  /all/?'.'  # any character
 :/^o/?1     # starts with 'o', find ones
 :/^t/?2     # starts with 't', find twos
 :/^d/?21    # starts with 'd', find decreasing
 :/^i/?12    # starts with 'i', find increasing
 :0;         # anything else: create pattern that won't match
$_=<>;s/ //g;# read the digits and remove spaces
say pos while/$p/g # output position(s) of all matches
— Xcali
fuente
Al usar nuestro sitio, usted reconoce que ha leído y comprende nuestra Política de Cookies y Política de Privacidad.
Licensed under cc by-sa 3.0 with attribution required.