Que esse desafio sirva como ( mais ) homenagem a Stan Lee, que faleceu aos 95 anos.

Stan Lee nos deixou um legado inestimável e uma palavra de efeito peculiar: Excelsior . Então, aqui está um pequeno desafio baseado no que ele disse que era seu significado :

Finalmente, o que significa "Excelsior"? "Para cima e para a frente, para maior glória!" É isso que desejo a você sempre que terminar de twittar! Excelsior!

Desafio

Dada uma série de números inteiros não negativos, imprima uma linha Excelsior!sempre que um número inteiro for maior que o anterior.

Regras

• A entrada será uma matriz de números inteiros não negativos.
• A saída consistirá em linhas com a palavra Excelsior(maiúsculas e minúsculas), seguidas de tantas !quanto a duração da execução atual de números cada vez maiores. Você também pode retornar uma matriz de seqüências de caracteres.
• Os formatos de entrada e saída são flexíveis de acordo com as regras do site, portanto, sinta-se à vontade para adaptá-los aos seus formatos de idioma. Você também pode adicionar espaços no final das linhas, ou até mesmo novas linhas extras antes ou antes do texto, se necessário.

Exemplos

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 é o código-golfe , portanto, pode ganhar o código mais curto para cada idioma!

JavaScript (ES6), 58 54 bytes

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

Experimente online!

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 que reutilizar um [] para armazenar o valor anterior é seguro

Existem três casos possíveis:

• Se $a[\text{ }]$ estiver vazio, a função de retorno de chamada de.map()não será invocada e apenas obteremos uma matriz vazia, produzindo uma string vazia.
• Se $a[\text{ }]$ contiver exatamente um elemento $x$ , ele será coagido a esse elemento durante o primeiro (e único) teste a < (a = c). Então, estamos testando $x < x$ , o que é falso. Nós obtemos uma matriz contendo uma string vazia, produzindo novamente uma string vazia.
• Se $a[\text{ }]$ contiver vários elementos, ele será coagido NaNdurante o primeiro teste a < (a = c). Portanto, o resultado é falso e o que é executado é a inicialização de $s$ em uma string vazia - que é o que queremos. A primeira comparação significativa ocorre na 2ª iteração.

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

Experimente online!

_{-2 bytes, graças apenas ao ASCII}

05AB1E , 26 24 23 bytes

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

-2 bytes graças a @Kroppeb .

Experimente online ou verifique todos os casos de teste .

Explicação:

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

Veja este 05AB1E ponta do meu (seção Como cordas compressa não fazem parte do dicionário? ) Para entender por que .•1Š¥èò²•é "excelsior".

Perl 6 , 60 58 57 bytes

-1 byte graças a nwellnhof

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

Experimente online!

Bloco de código anônimo que retorna uma 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 ler :

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

Metade desta resposta é da Giuseppe. RIP Stan Lee.

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

Experimente online!

05AB1E , 20 19 bytes

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

Experimente online!

Explicação

ü‹                    # 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);}

Graças a gastropner por jogar 2 bytes.

Experimente online aqui .

Ungolfed:

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

}

Japonês -R, 25 22 bytes

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

Tente

3 bytes salvos graças 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 comum, 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 #\!))

Experimente online!

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;}

Experimente online!

^{(aquelas reatribuições de s... caramba)}

Stax , 17 bytes

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

Execute e depure

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)

Experimente online!

Um tributo R muito melhor pode ser encontrado aqui - eu estava muito fixado em sequencee rle.

Gelatina , 16 bytes

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

Um link monádico que produz uma lista de listas de caracteres.

Experimente online!(rodapé se junta a novas linhas)

Quão?

<Ɲṣ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=$_

Experimente online!

Recebe sua entrada em linhas separadas.

Japonês , 22 bytes

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

Experimente online!

Explicação, com exemplo 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=$_}

Script de teste com menos golfe:

$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
}

Resultado:

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}}

Experimente online!

Provavelmente há uma reestruturação escondida lá, provavelmente no if-else, mas no geral bem. Utiliza o velho truque "Variável não instanciada para 0" para fazer o índice e o !.

Retina , 55 bytes

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

Experimente online! O link inclui casos de teste. Explicação:

\d+
*

Converta para unário.

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

Processe correspondências sobrepostas da direita para a esquerda (embora as correspondências sejam listadas da esquerda para a direita). Isso significa que podemos combinar todos os números de uma corrida, e a partida se estende até o início da corrida. Cada correspondência é ainda mais restrita que cada número correspondente correspondente deve ser menor que o número adicional correspondente anteriormente ou o primeiro número se nenhum número adicional ainda tiver sido correspondido.

L$...
Excelsior$#1*!

Para cada correspondência, imprima Excelsiorcom o número de números adicionais na execução, conforme desejado.

Pitão, 32 bytes

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

Experimente online aqui ou verifique todos os casos de teste de uma vez aqui .

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

Gelatina , 18 bytes

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

Experimente online!

Saída prettificada sobre TIO.

Lua , 88 87 83 82 96 95 113 bytes

Obrigado a Kevin Cruijssen pela atualização que segue o espírito da pergunta 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

Experimente online!

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;}

Felizmente std::string has a constructor that repeats a char. Try it online here.

Thanks to gastropner for saving 5 bytes.

Ungolfed:

[] (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="";}

Experimente online!

-8 bytes: alterado b para uma string contendo "!" S a partir de um contador int
-2 bytes: definido b+="!" como uma função embutida (graças a Zac Faragher )

Usa um delegado de Ação para receber a entrada e não exigir um retorno.

Ungolfed:

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 , 117 109 bytes

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

Experimente online!

J, 50 bytes

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

Experimente online!

destroçado

'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='!'

Or 97 with the following:

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

This assumes inputs will be in the format:

32105
12345
<null input>
1
1213415
333343

Japt, 25 bytes

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

Try it online!