Possa questa sfida servire come ( un altro ) omaggio a Stan Lee, morto all'età di 95 anni.

Stan Lee ci ha lasciato un'eredità inestimabile e una parolaccia particolare: Excelsior . Quindi ecco una piccola sfida basata su ciò che ha detto che era il suo significato :

Infine, cosa significa "Excelsior"? "Verso l'alto e poi verso una maggiore gloria!" Questo è quello che ti auguro ogni volta che finisco di twittare! Excelsior!

Sfida

Data una serie di numeri interi non negativi, genera una riga Excelsior!ogni volta che un numero intero è maggiore di quello precedente.

Regole

• L'input sarà un array di numeri interi non negativi.
• L'output sarà costituito da righe con la parola Excelsior(il caso è importante) seguite da !un numero sempre maggiore di lunghezza della sequenza corrente. È inoltre possibile restituire una matrice di stringhe.
• I formati di input e output sono flessibili in base alle regole del sito, quindi sentiti libero di adattarli ai formati della tua lingua. Puoi anche aggiungere spazi alla fine delle linee, o anche nuove righe extra dopo o prima del testo, se necessario.

Esempi

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

Questo è code-golf , quindi può vincere il codice più breve per ogni lingua!

JavaScript (ES6), 58 54 byte

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

Provalo online!

Commentate

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

Perché riutilizzare un [] per memorizzare il valore precedente è sicuro

Esistono tre casi possibili:

• Se $a[\text{ }]$ è vuoto, la funzione di callback di .map()non viene affatto invocata e otteniamo solo un array vuoto, producendo una stringa vuota.
• Se $a[\text{ }]$ contiene esattamente un elemento $x$ , viene costretto a quell'elemento durante il primo (e unico) test a < (a = c). Quindi, stiamo testando $x < x$ , che è falso. Otteniamo un array che contiene una stringa vuota, restituendo una stringa vuota.
• Se $a[\text{ }]$ contiene diversi elementi, viene forzato NaNdurante il primo test a < (a = c). Pertanto, il risultato è falso e ciò che viene eseguito è l'inizializzazione di $s$ in una stringa vuota, che è ciò che vogliamo. Il primo confronto significativo si verifica alla seconda iterazione.

Python 2 , 84 83 81 70 68 byte

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

Provalo online!

_{-2 byte, grazie solo a ASCII}

05AB1E , 26 24 23 byte

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

-2 byte grazie a @Kroppeb .

Provalo online o verifica tutti i casi di test .

Spiegazione:

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

Vedere questo 05AB1E punta del mio (sezione Come stringhe di comprimere che non fanno parte del dizionario? ) Per capire il motivo per cui .•1Š¥èò²•è "excelsior".

Perl 6 , 60 58 57 byte

-1 byte grazie a nwellnhof

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

Provalo online!

Blocco di codice anonimo che restituisce un elenco di Excelsiors!

Java-8 118 113 byte

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

Facile da leggere :

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 byte

La metà di questa risposta è @ Giuseppe's. RIP Stan Lee.

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

Provalo online!

05AB1E , 20 19 byte

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

Provalo online!

Spiegazione

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

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

Grazie a gastropner per giocare a golf 2 byte.

Provalo online qui .

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

}

Japt -R, 25 22 byte

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

Provalo

3 byte salvati grazie 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 comune, 111 byte

(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 #\!))

Provalo online!

Java 8, 106 byte

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

Provalo online!

^{(quelle riassegnazioni di s... yikes)}

Stax , 17 byte

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

Esegui ed esegui il debug

R , 111 byte

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

Provalo online!

Un tributo R di gran lunga migliore può essere trovato qui - ero troppo fissato su sequencee rle.

Gelatina , 16 byte

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

Un collegamento monadico che fornisce un elenco di elenchi di caratteri.

Provalo online! (il piè di pagina si unisce alle nuove righe)

Come?

<Ɲṣ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 byte

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

Provalo online!

Prende il suo input su righe separate.

Japt , 22 byte

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

Provalo online!

Spiegazione, con esempio semplificato:

ò¨                       :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 byte

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

Script di test meno golfato:

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

Produzione:

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

PowerShell , 87 85 byte

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

Provalo online!

Probabilmente c'è una ristrutturazione nascosta lì, molto probabilmente nell'if-if, ma nel complesso abbastanza bene. Utilizza il trucco "Variabile non istanziata per impostazione predefinita su 0" sia per rendere l'indice sia per !.

Retina , 55 byte

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

Provalo online! Il link include casi di test. Spiegazione:

\d+
*

Converti in unario.

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

Elaborazione delle corrispondenze sovrapposte da destra a sinistra (anche se le corrispondenze vengono quindi elencate da sinistra a destra). Ciò significa che possiamo abbinare tutti i numeri di una corsa e la corrispondenza si estende all'inizio della corsa. Ogni corrispondenza è ulteriormente vincolata al fatto che ciascun numero abbinato aggiuntivo deve essere inferiore al numero aggiuntivo precedentemente abbinato, o al primo numero se non sono stati ancora abbinati numeri aggiuntivi.

L$...
Excelsior$#1*!

Per ogni corrispondenza, output Excelsiorcon il numero di numeri aggiuntivi nella corsa come desiderato.

Pyth, 32 byte

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

Provalo online qui o verifica tutti i casi di test contemporaneamente qui .

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 byte

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

Provalo online!

Uscita preimpostata su TIO.

Lua , 88 87 83 82 96 95 113 byte

Grazie @Kevin Cruijssen per l'aggiornamento aderendo allo spirito della domanda originale.

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

Provalo online!

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

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

Fortunatamente std::stringha un costruttore che ripete a char. Provalo online qui .

Grazie a Gastropner per il salvataggio di 5 byte.

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 byte

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

Provalo online!

-8 byte: modificato b in una stringa contenente "!" S da un contatore int
-2 byte: impostato b+="!" come funzione inline (grazie a Zac Faragher )

Utilizza un delegato all'azione per inserire l'input e non richiede un ritorno.

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 byte

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

Provalo online!

J, 50 byte

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

Provalo online!

ungolfed

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

Java, 113 byte

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 byte

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 byte

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

O 97 con il seguente:

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

Ciò presuppone che gli input saranno nel formato:

32105
12345
<null input>
1
1213415
333343

Japt , 25 byte

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

Provalo online!