"Stair-ify" una stringa


12

È necessario scrivere un programma o una funzione che crea una stringa "scale-ified". Ecco come si "scala" una stringa:

Per ogni carattere nella stringa:

  • Se il carattere è una vocale maiuscola o minuscola, escluso 'y', emettilo quindi sposta il resto della stringa su una colonna.

  • Se il personaggio è uno spazio o una scheda, emettilo quindi sposta il resto della stringa in basso a una colonna.

  • Se il personaggio non è nessuno dei due, generalo normalmente.

IO può essere in qualsiasi formato ragionevole. L'input non conterrà alcuna nuova riga. Se lo desideri, puoi rimuovere qualsiasi spazio bianco finale.

Se si sceglie di restituire la stringa, anziché stamparla, includere anche un breve programma che stamperà la stringa in modo che possa essere visualizzata. Questo non è obbligatorio, né andrà verso il conteggio dei byte. Questa è solo una comodità per gli utenti che non comprendono il golf o gli esolang (come me) per poter verificare l'output o armeggiare con il codice.

IO di esempio:

Uscita per "bcdef ghijkl":

    f    jkl
bcde  ghi

Output per "Programmazione di puzzle e code-golf":

                               lf
                            -Go
                  s  nd   de   
         ng   zzle  A   Co       
      mmi   Pu                 
   gra        
Pro

Uscita per "Abcdefghijklmnopqrstuvwxyz":

                     vwxyz
               pqrstu
         jklmno
     fghi          
 bcde             
A        

Come al solito, questo è code-golf, quindi vince la risposta più breve in byte.



Possiamo eliminare qualsiasi spazio bianco iniziale / finale?
orlp,

@orlp Dal momento che non cambierà affatto la rappresentazione visiva, non vedo perché no.
James,

Se scegliamo di restituire la stringa, il programma per stamparla è incluso nel conteggio dei byte?

@PeterPeter Vedi la mia ultima modifica.
James,

Risposte:


2

MATL , 38 37 byte

Oj33<G13Y2m-IL)hYstX<-"@Z"GX@)h]Xh!c!

Provalo online!

Spiegazione

Per ogni carattere, il codice calcola la sua posizione verticale, misurata dall'alto (0 è il più alto). Crea quindi la stringa di output trasposta: ogni carattere è su una linea con tanti spazi iniziali quanti ne indica la sua posizione verticale. Quindi tutte le linee vengono contatenate in un array di caratteri 2D, che viene infine trasposto e visualizzato.

O       % push a 0
j       % input a string
33<     % array of the same length as the input that contains true for spaces or tabs
G       % push input again
11Y2    % string 'aeiouAEIOU'
m       % array of the same length as the input that contains true for vowels
-       % subtract
IL)     % remove last element
h       % prepend the 0 that is at the bottom of the stack
Ys      % cumulative sum. This gives the vertical position of each char
tX<     % duplicate. Compute minimum
-       % subtract. This sets minimum vertical position to 0
"       % for each vertical position
  @     %   push vertical position of current character
  Z"    %   string with that many spaces
  G     %   push input again
  X@)   %   get the character corresponding to the current iteration index
  h     %   concatenate horizontally
]       % end for each
Xh      % concatenate all lines into a row cell array
!       % transpose into a column cell array
c       % convert into 2D array, padding with spaces if needed
!       % transpose. Implicitly display

7

Pyth, 63 byte

V_Q aY?}rN0"aeiou"=hZ?}N"     "=tZZ;Jh.mbYKh.MZYjC.b++*d+JNY*dK_YQ
                         ^^^^^
                         |||||
                         |tabs
                        space

Gli spazi nel mezzo sono in realtà un singolo carattere di tabulazione, ma StackExchange lo rende come quattro spazi.

Provalo online!


Conto 64 byte.
Conor O'Brien,

A causa della scheda mostrata come quattro spazi qui.
Leaky Nun,

Sicuramente 64 byte. mothereff.in/…

No, @KennyLau significa che il carattere tab dovrebbe essere posizionato al posto dei quattro spazi. Guarda il link provalo online.
Mama Fun Roll,

@MamaFunRoll StackExchange sostituisce automaticamente le schede di 4 spazi.
orlp

4

Python 2, 141 137 byte

def S(s,l=[0]):
 for c in s:l+=[l[-1]-(c in"aeiouAEIOU")+(c<"!")]
 for h in sorted(set(l)):print"".join([" ",c][i==h]for i,c in zip(l,s))

Questo non sembra scendere negli spazi
Score_Under

@Score_Under Funziona bene sulla mia macchina. Stai testando su Python 2?
orlp

Sta funzionando. Non so come, ma devo aver fatto un errore quando lo ho incollato la prima volta.
Score_Under

3

JavaScript (Firefox 30-57), 151 byte

s=>[...s].map((c,i)=>r[c<'!'?n++:/[AEIOU]/i.test(c)?n--:n][i]=c,n=s.length,r=[for(_ of s+s)[]])&&[for(a of r)if(s=[for(c of a)c||' '].join``)s].join`\n`

Dove \nrappresenta il carattere letterale di newline.


2
Con le stringhe modello puoi inserire una nuova riga in una stringa, in modo da poterla sostituire /ncon ``
Utente generico

1
@GenericUser Il conteggio dei byte viene regolato supponendo che lo abbiate già fatto; Non volevo usare una nuova riga letterale nel mio post.
Neil,

1

C, 180 byte

char s[99];i,j,p[99],m,M;main(c){for(gets(s);c=s[i];j+=strchr("aeiou",c|32)!=0,j-=c<33,m>j?m=j:M<j?M=j:0)p[i++]=j;for(;m<=M;putchar(10),M--)for(i=0;c=s[i];)putchar(M^p[i++]?32:c);}

Ungolfed:

char s[99];i,j,p[99],m,M;
main(c){for(gets(s);c=s[i];
j+=strchr("aeiou",c|32)!=0,j-=c<33,m>j?m=j:M<j?M=j:0)
  //move current height up or down, adjust minimum and maximum height
p[i++]=j;  //record height of character
for(;m<=M;putchar(10),M--)  //from maximum to minimum height
for(i=0;c=s[i];)putchar(M^p[i++]?32:c);}  //print only characters on this height

1

Perl, 110 byte (108 byte script + 2 byte flag)

$h=0;map{$h{$h}.=' 'x($p-$p{$h}).$_;$p{$h}=++$p;$h+=/[aeiou]/i-/\s/}split//;print for@h{sort{$b<=>$a}keys%h}

Esegui con perl -nl script.pl, l'input è su stdin, l'output è su stdout.

Deobfuscated

Ho rinominato le variabili in modo più sensato, reso il codice use stricte use warningsconforme e reso esplicito gran parte del perl magico che fa automaticamente.

Viene eseguito come perl script.pl, poiché replica gli effetti dei -nlflag all'interno dello script.

use strict;
use warnings;
use English;

# The effect of -l in perl's flags
$INPUT_RECORD_SEPARATOR = "\n";
$OUTPUT_RECORD_SEPARATOR = "\n";

# These variables are magicked into existence
our $column = 0;
our %line_col = ();
our %lines = ();

# The implicit while-loop is the effect of -n in perl's flags
while (defined(my $line = <>)) {
    # The "chomp" is part of perl's -l flag too
    chomp $line;

    # Here starts the actual script. "$h=0" turns into...
    our $height = 0;
    for my $char (split '', $line) {
        if (!exists $line_col{$height}) {
            # Setting it to 0 is a bit of a white lie, but it might as well be 0.
            # Perl would otherwise have called the value "undef", which is
            # similar to 0 in numeric contexts.
            $line_col{$height} = 0;
        }

        $lines{$height} .= ' ' x ($column - $line_col{$height});
        $lines{$height} .= $char;

        $column++;
        $line_col{$height} = $column;

        $height++ if $char =~ /[aeiou]/i;
        $height-- if $char =~ /\s/;
    }

    # Sort line heights numerically descending (so the greatest is printed first)
    my @heights = sort { $b<=>$a } keys %lines;

    for my $line (@lines{ @heights }) {
        print $line;
    }
}

1

JavaScript (ES6), 133

s=>s.replace(/[^aeiou ]*(.?)/gi,(z,x,c)=>(q=o[r]||'',o[r]=q+=' '.repeat(c-q.length)+z,x<'!'?++r:r?--r:o=[,...o]),o=[],r=0)&&o.join`
`

Meno golf

s=>(
  s.replace(/[^aeiou ]*(.?)/gi,(z,x,c)=>(
    q = o[r] || '',
    o[r] = q += ' '.repeat(c - q.length) + z,
    x == ' ' ? ++r : r ? --r : o = [,...o]
  ), o = [], r = 0),
  o.join`\n`
)

Test

f=s=>s.replace(/[^aeiou ]*(.?)/gi,(z,x,c)=>(q=o[r]||'',o[r]=q+=' '.repeat(c-q.length)+z,x<'!'?++r:r?--r:o=[,...o]),o=[],r=0)&&o.join`
`

function test() {
  i=I.value
  O.textContent=f(i)
}

test()
#I { width:90%}
<input id=I oninput='test()' value='Programming Puzzles And Code-Golf'>
<pre id=O>


0

Haskell (all'interno del terminale ANSI), 75 byte

("\27[2J"++).(h=<<)
h ' '="\27[B "
h c|elem c"aeiouAEIOU"=c:"\27[A"
h c=[c]

Esempio di utilizzo: putStr $ ("\27[2J"++).(h=<<) $ "bcdef ghijkl"

Questo utilizza i codici di escape ANSI per spostare il cursore su e giù.


0

C, 173 160 156 155 byte

Modifica: presa in prestito l'idea di usare strchr da @mIllIbyte per radere 13 byte

Modifica2: ottimizzato i confronti min / max, -4 byte

Edit3: c può avere qualsiasi valore per iniziare con -> in main (c) invece -1 byte

Edit4: aggiunto ungolf / spiegazione

p,l,j,m;main(c){char b[99],*s=gets(b);for(;j<m+2;p?putchar(c?l?32:c:10):l<j?j=l:l>m?m=l:0,l-=c?(c&=223)&&c-9?!!strchr("AEIOU",c):-1:(p=s=b,l+j++))c=*s++;}

Ungolfed e spiegato:

/* declare and initialize these variables to int and 0 */
p,l,j,m;

/* declares main, but also int c */
main(c)
{

  /* we can handle strings of length 98 (+1 for string-terminating 0) */
  /* we declare and initialize s to point to the beginning of the input
     string for the first pass through the for loop */
  char b[99],*s=gets(b);

  /* the for-loop actually contains nested loops, where the inner loops
     behave differently depending on the outer loop parameter p as follows:
     p attains the values false (0) and true (non-null pointer), in this order.

     p == false:
      the inner loop has the parameter s and passes through all the characters
      in the string until the string is exhausted (*s == 0). l is the vertical
      position of the current character relative to the first character
      (l = 0), smaller number = higher up. The purpose here is simply to find
      the range of vertical positions [j, m] present in the string. The
      commands in execution order are:

      -- loop over s --

      // test does not do anything since j <= m by design
      1. j < m+2

      // puts current char in c and increments string counter
      2. c = *s++          

      // ensures that j (m) equals the min (max) of the vertical positions (l)
         encountered so far. At first step j = l = m = 0.
      3. l<j?j=l:l>m?m=l:0 

      // c != 0, this updates the vertical position for the next character
      // c = SPC or C = TAB -> lower (l increases by 1)
      // c = "aeiouAEIOU" -> higher (l decreases by 1)
      4a. l-=(c&=223)&&c-9?!!strchr("AEIOU",c):-1

      -- loop over s ends --

      // c == 0, this resets the string pointer s and puts p = true, and 
      //         thereby initiates the next phase of the algorithm
      //         see rest of the explanation at p == true)
      4b. p=s=b

    p == true:
     now there are two inner loops. The outer of these has the parameter j,
     which ranges from the smallest vertical position+1 (the value of j after
     the p == false pass) to the largest vertical position+1 (m+2 after the
     p == true pass). The innermost loop has the parameter s and passes through
     all characters in the string until the string is exhausted (*s == 0) just
     as in the p == false inner loop. Here l is now the vertical position
     relative to the current position j-1, so that l == 0 when a character is
     at the current level. Such characters are printed as is, whereas
     characters at other levels are replaced by space. The end-of-string
     marker 0 outputs a newline. The commands in execution order are:

      -- loop over j --

      // at first step increments j to point to be one more than the
      // current vertical position. At other steps moves the current position
      // (j-1) one vertical position downwards. Also, at all steps, this
      // biases the vertical position counter l to be zero at the current
      // vertical position (j-1)
      1. l=-j++

      // compare j to stopping criteria, exit if j > m+1
      2. j < m+2

       -- loop over s --

       // puts current char in c and increments string counter
       3. c = *s++          

       // outputs character as follows:
       // c == 0 (end of string), output newline
       // c != 0 (middle of string)
       //  l == 0 (character at current vertcial position), output c
       //  l != 0 (character not at current vertical position), output space
       4. putchar(c?l?32:c:10)

       // c != 0, this updates the vertical position for the next character
       // c = SPC or C = TAB -> lower (l increases by 1)
       // c = "aeiouAEIOU" -> higher (l decreases by 1)
       5a. l-=(c&=223)&&c-9?!!strchr("AEIOU",c):-1

       -- loop over s ends --

      // c == 0, this resets the string pointer s for next loop over s
      //         algorithm (see rest of the explanation at p == true)
      5b. p=s=b

     -- loop over j ends --
  */

  for(;
      j<m+2;
      p?putchar(c?l?32:c:10):
    l<j?j=l:l>m?m=l:0,
      l-=c?(c&=223)&&c-9?!!strchr("AEIOU",c):-1:
       (p=s=b,l+j++))
    c=*s++;
}
Utilizzando il nostro sito, riconosci di aver letto e compreso le nostre Informativa sui cookie e Informativa sulla privacy.
Licensed under cc by-sa 3.0 with attribution required.