Que este desafío sirva como ( otro ) homenaje a Stan Lee, quien falleció a los 95 años.

Stan Lee nos ha dejado un legado invaluable y una palabra peculiar: Excelsior . Así que aquí hay un pequeño desafío basado en lo que dijo que era su significado :

Finalmente, ¿qué significa "Excelsior"? "¡Hacia arriba y hacia adelante para mayor gloria!" ¡Eso es lo que te deseo cada vez que termino de twittear! ¡Virutas de embalaje!

Desafío

Dada una serie de enteros no negativos, genera una línea Excelsior!cada vez que un entero es mayor que el anterior.

Reglas

• La entrada será una matriz de enteros no negativos.
• La salida consistirá en líneas con la palabra Excelsior(el caso sí importa) seguido por !la longitud de la ejecución actual de números cada vez mayores. También puede devolver una serie de cadenas.
• Los formatos de entrada y salida son flexibles de acuerdo con las reglas del sitio, así que siéntase libre de adaptarlos a sus formatos de idioma. También puede agregar espacios al final de las líneas, o incluso nuevas líneas adicionales después o antes del texto si es necesario.

Ejemplos

Input             Output
-----------------------------------
[3,2,1,0,5]       Excelsior!      // Excelsior because 5 > 0

[1,2,3,4,5]       Excelsior!      // Excelsior because 2 > 1
                  Excelsior!!     // Excelsior because 3 > 2 (run length: 2)
                  Excelsior!!!    // Excelsior because 4 > 3 (run length: 3)
                  Excelsior!!!!   // Excelsior because 5 > 4 (run length: 4)

[]                <Nothing>

[42]              <Nothing>

[1,2,1,3,4,1,5]   Excelsior!      // Excelsior because 2 > 1
                  Excelsior!      // Excelsior because 3 > 1
                  Excelsior!!     // Excelsior because 4 > 3 (run length: 2)
                  Excelsior!      // Excelsior because 5 > 1

[3,3,3,3,4,3]     Excelsior!      // Excelsior because 4 > 3

Este es el código de golf , ¡así que puede ganar el código más corto para cada idioma!

JavaScript (ES6), 58 54 bytes

a=>a.map(c=>a<(a=c)?`Excelsior${s+='!'}
`:s='').join``

Pruébalo en línea!

Comentado

a =>                           // a[] = input array, also used to store the previous value
  a.map(c =>                   // for each value c in a[]:
    a <                        //   compare the previous value
    (a = c)                    //   with the current one; update a to c
                               //   this test is always falsy on the 1st iteration
    ?                          //   if a is less than c:
      `Excelsior${s += '!'}\n` //     add a '!' to s and yield 'Excelsior' + s + linefeed
    :                          //   else:
      s = ''                   //     reset s to an empty string and yield an empty string
  ).join``                     // end of map(); join everything

¿Por qué es seguro volver a usar un [] para almacenar el valor anterior?

Hay tres casos posibles:

• Si $a[\text{ }]$ está vacío, la función de devolución de llamada de .map()no se invoca en absoluto y solo obtenemos una matriz vacía, produciendo una cadena vacía.
• Si $a[\text{ }]$ contiene exactamente un elemento $x$ , se coacciona a ese elemento durante la primera (y única) prueba a < (a = c). Entonces, estamos probando $x < x$ , lo cual es falso. Obtenemos una matriz que contiene una cadena vacía, produciendo nuevamente una cadena vacía.
• Si $a[\text{ }]$ contiene varios elementos, se coacciona NaNdurante la primera prueba a < (a = c). Por lo tanto, el resultado es falso y lo que se ejecuta es la inicialización de $s$ en una cadena vacía, que es lo que queremos. La primera comparación significativa ocurre en la segunda iteración.

Python 2 , 84 83 81 70 68 bytes

a=n=''
for b in input():
 n+='!';n*=a<b;a=b
 if n:print'Excelsior'+n

Pruébalo en línea!

_{-2 bytes, gracias solo a ASCII}

05AB1E , 26 24 23 bytes

ü‹γvyOE.•1Š¥èò²•™N'!׫,

-2 bytes gracias a @Kroppeb .

Pruébelo en línea o verifique todos los casos de prueba .

Explicación:

ü                        # Loop over the (implicit) input as pairs
 ‹                       #  And check for each pair [a,b] if a<b is truthy
                         #   i.e. [1,2,1,3,4,1,5,7,20,25,3,17]
                         #   → [1,0,1,1,0,1,1,1,1,0,1]
  γ                      # Split it into chunks of equal elements
                         #  i.e. [1,0,1,1,0,1,1,1,1,0,1]
                         #   → [[1],[0],[1,1],[0],[1,1,1,1],[0],[1]]
   vy                    # Foreach `y` over them
     O                   #  Take the sum of that inner list
                         #   i.e. [1,1,1,1] → 4
                         #   i.e. [0] → 0
      E                  #  Inner loop `N` in the range [1, length]:
       .•1Š¥èò²•         #   Push string "excelsior"
                ™        #   Titlecase it: "Excelsior"
                 N'!׫  '#   Append `N` amount of "!"
                         #    i.e. N=3 → "Excelsior!!!"
                      ,  #   Output with a trailing newline

Ver este consejo 05AB1E mío (sección Cómo comprimir cadenas que no forman parte del diccionario? ) Para entender por qué .•1Š¥èò²•es "excelsior".

Perl 6 , 60 58 57 bytes

-1 byte gracias a nwellnhof

{"Excelsior"X~("!"Xx grep +*,[\[&(-+^*×*)]] .skip Z>$_)}

Pruébalo en línea!

Bloque de código anónimo que devuelve una lista de Excelsiors!

Java-8 118 113 Bytes

n->{String e="";for(int i=0;i<n.length-1;)System.out.print(""==(n[i+1]>n[i++]?e+="!":(e=""))?e:"Excelsior"+e+"\n");}

Fácil de leer :

private static void lee(int num[]) {
    String exclamation = "";
    for (int i = 0; i < num.length - 1;) {
        exclamation = num[i + 1] > num[i++] ? exclamation += "!" : "";
        System.out.print("".equals(exclamation) ? "" : "Excelsior" + exclamation + "\n");
    }
}

R , 86 bytes

La mitad de esta respuesta es de @ Giuseppe. RIP Stan Lee.

function(a)for(i in diff(a))"if"(i>0,cat("Excelsior",rep("!",F<-F+1),"
",sep=""),F<-0)

Pruébalo en línea!

05AB1E , 20 19 bytes

ü‹0¡€ƶ˜ε'!×”¸Îsiorÿ

Pruébalo en línea!

Explicación

ü‹                    # pair-wise comparison, less-than
  0¡                  # split at zeroes
    €ƶ                # lift each, multiplying by its 1-based index
      ˜               # flatten
       ε              # apply to each
        '!×           # repeat "!" that many times
                  ÿ   # and interpolate it at the end of
           ”¸Îsior    # the compressed word "Excel" followed by the string "sior"

C (gcc / clang), 106 99 97 bytes

f(a,n)int*a;{int r=0,s[n];for(memset(s,33,n);n-->1;)r*=*a<*++a&&printf("Excelsior%.*s\n",++r,s);}

Gracias a gastropner por jugar al golf 2 bytes.

Pruébalo en línea aquí .

Sin golf:

f(a, n) // function taking a pointer to the first integer and the length of the array
  int *a; { // a is of type pointer to int, n is of type int

    int r = 0, // length of the current run
        i = 0, // loop variable
        s[n];  // buffer for exclamation marks; we will never need more than n-1 of those (we are declaring an array of int, but really we will treat it as an array of char)

    for(memset(s, 33, n); // fill the buffer with n exclamation marks (ASCII code 33)
        n -- > 1; ) // loop over the array

        r *= *a < *(++ a) // if the current element is less than the next:
             && printf("Excelsior%.*s\n", // print (on their own line) "Excelsior", followed by ...
                       ++ r, // ... r (incremented) of the ...
                       s) // ... n exclamation marks in the buffer s
             ; // else r is reset to 0

}

Japt -R, 25 22 bytes

ò¨ ËÅ£`Ex­lÐâ`ú'!Y+A
c

Intentalo

3 bytes guardados gracias a Kamil

ò¨                      :Partition at items that are greater than or equal to the previous item
   Ë                    :Map
    Å                   :  Slice off the first element
     £                  :  Map each element at 0-based index Y
      `Ex­lÐâ`           :    Compressed string "Excelsior"
             ú'!        :    Right pad with exclamation marks
                Y+A     :     To length Y+10
c                       :Flatten
                        :Implicitly join with newlines & output

Lisp común, 111 bytes

(setq i 0)(loop for(a b)on(read)do(incf i(if(and b(> b a))1(- i)))(format(> i 0)"Excelsior~v@{~a~:*~}~%"i #\!))

Pruébalo en línea!

Java 8, 106 bytes

n->{String s="",z=s;for(int i=0;i<n.length-1;)z+=n[i++]<n[i]?"Excelsior"+(s+="!")+"\n":(s="")+s;return z;}

Pruébalo en línea!

^{(esas reasignaciones de s... yikes)}

Stax , 17 bytes

Θx7├╖&σ '@7g┼┘Ñ«═

Ejecutar y depurarlo

R , 111 bytes

function(a,r=rle(sign(diff(a))),v=r$l[r$v>0])write(paste0(rep("Excelsior",sum(v)),strrep("!",sequence(v))),1,1)

Pruébalo en línea!

Aquí se puede encontrar un tributo R mucho mejor : estaba demasiado obsesionado con sequencey rle.

Jalea , 16 bytes

<Ɲṣ0ÄẎ”!ẋ“Ø6ḥ»;Ɱ

Un enlace monádico que produce una lista de listas de caracteres.

Pruébalo en línea!(el pie de página se une con las nuevas líneas)

¿Cómo?

<Ɲṣ0ÄẎ”!ẋ“Ø6ḥ»;Ɱ - Link: list of integers     e.g. [1,1,4,2,1,1,3,4]
 Ɲ               - for each pair of integers:      [1,1] [1,4] [4,2] [2,1] [1,1] [1,3] [3,4]
<                -   less than?                    [  0,    1,    0,    0,    0,    1,    1]
  ṣ0             - split at zeros                  [[],    [1],     [],   [],      [1,    1]]
    Ä            - cumulative sums                 [[],    [1],     [],   [],      [1,    2]]
     Ẏ           - tighten                         [1,1,2]
      ”!         - literal '!' character           '!'
        ẋ        - repeat (vectorises)             [['!'],['!'],['!','!']]
         “Ø6ḥ»   - dictionary lookup               ['E','x','c','e','l','s','i','o','r']
               Ɱ - map with:
              ;  -   concatenate                   [['E','x','c','e','l','s','i','o','r','!'],['E','x','c','e','l','s','i','o','r','!'],['E','x','c','e','l','s','i','o','r','!','!']]

Perl 5 -n , 41 bytes

$_>$l&&$l?say$c.='!':($c=Excelsior);$l=$_

Pruébalo en línea!

Toma su entrada en líneas separadas.

Japt , 22 bytes

ò¨ ®£`Ex­lÐâ`+'!pYÃÅÃc

Pruébalo en línea!

Explicación, con ejemplo simplificado:

ò¨                       :Split whenever the sequence does not increase
                           e.g. [2,1,1,3] -> [[2],[1],[1,3]]
   ®               Ã     :For each sub-array:
    £            Ã       :  For each item in that sub-array:
     `Ex­lÐâ`             :    Compressed "Excelsior"
            +            :    Concat with
             '!pY        :    a number of "!" equal to the index
                               e.g. [1,3] -> ["Excelsior","Excelsior!"]
                  Å      :  Remove the first item of each sub-array
                            e.g. [[Excelsior],[Excelsior],[Excelsior,Excelsior!]]->[[],[],[Excelsior!]]
                    c    :Flatten
                           e.g. [[],[],[Excelsior!]] -> [Excelsior!]

Powershell, 69 bytes

$args|%{if($o-ne$e-and$_-gt$o){'Excelsior'+'!'*++$c}else{$c=0}$o=$_}

Menos guión de prueba de golf:

$f = {

$args|%{
    if($old-ne$empty-and$_-gt$old){
        'Excelsior'+'!'*++$c
    }else{
        $c=0
    }
    $old=$_
}

}

@(
    ,( (3,2,1,0,5),  'Excelsior!')      # Excelsior because 5 > 0

    ,( (1,2,3,4,5),  'Excelsior!',      # Excelsior because 2 > 1
                    'Excelsior!!',     # Excelsior because 3 > 2 (run length: 2)
                    'Excelsior!!!',    # Excelsior because 4 > 3 (run length: 3)
                    'Excelsior!!!!')   # Excelsior because 5 > 4 (run length: 4)

    ,( $null,         '')                # <Nothing>

    ,( (42),          '')                # <Nothing>

    ,( (1,2,1,3,4,1,5), 'Excelsior!',      # Excelsior because 2 > 1
                        'Excelsior!',      # Excelsior because 3 > 1
                        'Excelsior!!',     # Excelsior because 4 > 3 (run length: 2)
                        'Excelsior!')      # Excelsior because 5 > 1

    ,( (3,3,3,3,4,3),   'Excelsior!')      # Excelsior because 4 > 3
) | % {
    $a,$expected = $_
    $result = &$f @a
    "$result"-eq"$expected"
    $result
}

Salida:

True
Excelsior!
True
Excelsior!
Excelsior!!
Excelsior!!!
Excelsior!!!!
True
True
True
Excelsior!
Excelsior!
Excelsior!!
Excelsior!
True
Excelsior!

PowerShell , 87 85 bytes

param($n)for(;++$i-lt$n.count){if($n[$i]-gt$n[$i-1]){"Excelsior"+"!"*++$c}else{$c=0}}

Pruébalo en línea!

Probablemente hay una reestructuración escondida allí, muy probablemente en el caso contrario, pero en general está bastante bien. Utiliza el viejo truco "La variable no instanciada predeterminada es 0" para hacer tanto el índice como el !.

Retina , 55 bytes

\d+
*
L$rv`(_*,(?<!(?(1)\1|\2,)))+(_+)\b
Excelsior$#1*!

Pruébalo en línea! El enlace incluye casos de prueba. Explicación:

\d+
*

Convierte a unario.

rv`(_*,(?<!(?(1)\1|\2,)))+(_+)\b

Procesar coincidencias superpuestas de derecha a izquierda (aunque las coincidencias se enumeran de izquierda a derecha). Esto significa que podemos hacer coincidir cada número en una carrera, y la coincidencia se extiende hasta el comienzo de la carrera. Cada coincidencia tiene la restricción adicional de que cada número coincidente adicional debe ser menor que el número adicional coincidente previamente, o el primer número si aún no se han igualado números adicionales.

L$...
Excelsior$#1*!

Para cada coincidencia, imprima Excelsiorcon el número de números adicionales en la ejecución según lo deseado.

Pyth, 32 bytes

j+L"Excelsior"*L\!fT.u*hN<0Y.+Q0

Pruébelo en línea aquí , o verifique todos los casos de prueba a la vez aquí .

j+L"Excelsior"*L\!fT.u*hN<0Y.+Q0   Implicit: Q=eval(input())
                            .+Q    Get forward difference between consecutive elements of Q
                    .u         0   Reduce the above, returning all steps, with current value N starting at 0, next element as Y, using:
                       hN            N+1
                      *              Multiplied by
                         <0Y         1 if 0<Y, 0 otherwise
                  fT               Filter to remove 0s
              *L\!                 Repeat "!" each element number of times
 +L"Excelsior"                     Prepend "Excelsior" to each
j                                  Join on newlines, implicit print

Jalea , 18 bytes

<Ɲ‘×¥\ḟ0”!ẋ“Ø6ḥ»;Ɱ

Pruébalo en línea!

Salida prettified sobre TIO.

Lua , 88 87 83 82 96 95 113 bytes

Gracias @Kevin Cruijssen por actualizarse al espíritu de la pregunta original.

s=io.read()n=9 e="Excelsior!"f=e
for c in s.gmatch(s,"%S+")do if n<c+0then print(e)e=e..'!'else e=f end n=c+0 end

Pruébalo en línea!

C ++ 14 (g ++), 123 118 bytes

[](auto a){for(int n=0,i=0;++i<a.size();)a[i]>a[i-1]?puts(&("Excelsior"+std::string(++n,33))[0]):n=0;}

Afortunadamente std::stringtiene un constructor que repite a char. Pruébalo en línea aquí .

Gracias a gastropner por guardar 5 bytes.

Sin golf:

[] (auto a) { // void lambda taking a std::array of integer

    for(int n = 0, // length of the current run
        i = 0; // loop variable
        ++ i < a.size(); ) // start with the second element and loop to the last
        a[i] > a[i - 1] // if the current element is greater than the previous ...
        ? puts( // ... print a new line:
               &("Excelsior" + // "Excelsior, followed by ...
                std::string(++ n, 33)) // ... the appropriate number of exclamation marks (33 is ASCII code for '!'); increment the run length
               [0]) // puts() takes a C string
        : n = 0; // else reset run length

}

C # (.NET Core) , 115 107 105 bytes

a=>{var b="";for(int i=0;++i<a.Length;)if(a[i]>a[i-1])Console.WriteLine("Excelsior"+(b+="!"));else b="";}

Pruébalo en línea!

-8 bytes: cambiado b a una cadena que contiene "!" S desde un contador int
-2 bytes: establecido b+="!" como una función en línea (gracias a Zac Faragher )

Utiliza un delegado de acción para extraer la entrada y no requiere un retorno.

Sin golf:

a => {
    var b = "";                         // initialize the '!' string (b)
    for(int i = 0; ++i < a.Length;)     // from index 1 until the end of a
        if(a[i] > a[i - 1])                 // if the current index is greater than the previous index
            Console.WriteLine("Excelsior" +     // on a new line, print "Excelsior"
                                    (b += "!"));    // add a "!" to b, and print the string
        else                                // if the current index is not greater than the previous index
            b = "";                             // reset b
}

PHP , 117109 bytes

<?php do{$i=next($argv);if($p!==null&&$p<$i){$e.='!';echo "
Excelsior$e";}else$e='';$p=$i;}while($i!==false);

Pruébalo en línea!

J, 50 bytes

'Excelsior',"1'!'#"0~[:;@(([:<+/\);._1)0,2</\ ::0]

Pruébalo en línea!

sin golf

'Excelsior' ,"1 '!' #"0~ [: ;@(([: < +/\);._1) 0 , 2 </\ ::0 ]

Java, 113 bytes

String i="";for(int a=0;a<s.length-1;a++){if(s[a+1]>s[a]){i+="!";System.out.println("Excelsior"+i);}else{i="";}}

VBA, 114 bytes

For i=0 To UBound(a)-LBound(a)-1 If a(i+1)>a(i)Then s=s&"!" Debug.Print("Excelsior"&s&"") Else s="" End If Next i

Python 3, 87 bytes

c='!'
for i in range(1,len(n)):
    if n[i]>n[i-1]:print('Excelsior'+c);c+='!'
    else:c='!'

O 97 con lo siguiente:

c='!';n=input()
for i in range(1,len(n)):
    if n[i]>n[i-1]:print('Excelsior'+c);c+='!'
    else:c='!'

Esto supone que las entradas estarán en el formato:

32105
12345
<null input>
1
1213415
333343

Japt , 25 bytes

ä< ®?`Ex­lÐâ`+'!p°T:T=0
f

Pruébalo en línea!