Genera la secuencia de Abacaba

35

Este desafío se trata de imprimir la secuencia de abacaba de una profundidad específica.

Aquí hay un diagrama de las primeras 5 secuencias ( a(N)es la secuencia abacaba de profundidad N, mayúsculas / minúsculas es solo para mostrar el patrón, esto no es necesario en la salida de su programa):

a(0) = A
a(1) = aBa
a(2) = abaCaba
a(3) = abacabaDabacaba
a(4) = abacabadabacabaEabacabadabacaba
...
a(25) = abacabadabacabaeabacabadabacabafabacabadabacabaeabacabadabacabagabacabadabacabaeabacabadabacabafabacabadabacabaeabacabadabacabahabacabadabacabaeabacabadabacabafabacabadabacabaeabacabadabacabagabacabadabacabaeabacabadabacabafabacabadabacabaeabacabadabacabaiabacabadabacabaeabacabadabacabafabacabadabacabaeabacabadabacabagabacabadabacabaeabacabadabacabafabacabadabacabaeabacabadabacabahabacabadabacabaeabacabadabacabafabacabadabacabaeabacabadabacabagabacabadabacabaeabacabadabacabafabacabadabacabaeabacabadabacabajabacabadabacabaeabacabadabacabafabacabadabacabaeabacabadabacabagabacabadabacabaeabacabadabacabafabacabadabacabaeabacabadabacabahabacabadabacabaeabacabadabacabafabacabadabacabaeabacabadabacabagabacabadabacabaeabacabadabacabafabacabadabacabaeabacabadabacabaia...

Como probablemente pueda ver, la secuencia de la enésima abacaba es la última con la enésima letra y se le agrega nuevamente. ( a(n) = a(n - 1) + letter(n) + a(n - 1))

Su tarea es hacer un programa o función que tome un número entero e imprima la secuencia de abacaba de esa profundidad. La salida debe ser correcta al menos para valores de hasta 15 inclusive.

Loovjo
fuente
3
¿No se definiría la secuencia después de 𝑎₂₅?
LegionMammal978
3
@nicael Lo sé, me preguntaba cómo se definiría 𝑎 (∞).
LegionMammal978
2
También conocida como la secuencia de la regla (pero con letras en lugar de números), para algo más fácil de Google.
user253751
44
Para lo que vale, cualquier solución válida a este problema es también la solución al rompecabezas de Torres de Hanoi para N discos.
Jeff Zeitlin
3
¿Podemos usar la indexación basada en 1 en lugar de la indexación basada en 0?
Esolanging Fruit

Respuestas:

8

Pyth, 11 bytes

u++GHG<GhQk

Reducción simple

orlp
fuente
2
@Loovjo Oh. No tiene ningún sentido, 0debe ser la secuencia vacía de la OMI, pero voy a conformar a la pregunta ...
orlp
44
Si, simple va y se golpea la cabeza contra la pared
J Atkin
@JAtkin Abra Pyth's rev-doc.txtjunto a esta respuesta, y debería mostrarse fácilmente como simple.
orlp
Jejeje, no es lo que quise decir (no sé pyth, así que ...)
J Atkin
7

Python, 44 bytes

f=lambda n:"a"[n:]or f(n-1)+chr(97+n)+f(n-1)

Parece sospechosamente podría ser golfable.

Sp3000
fuente
7

Haskell, 39 37 bytes

a 0="a"
a n=a(n-1)++['a'..]!!n:a(n-1)

Ejemplo de uso: a 3-> "abacabadabacaba".

Editar: @Angs encontró dos bytes para guardar. ¡Gracias!

nimi
fuente
No a n=a(n-1)++[97+n]++a(n-1)funcionaria? No puedo probar en este momento.
seequ
@Seeq: no, [97+n]es una lista de Integery a(n-1)es una lista de Char(aka String). No puede concatenar listas con diferentes tipos. toEnumhace un Charfuera de la Integer.
nimi
Ah, siempre pensé que Char era solo un número entero especializado en Haskell.
seequ
['a'..]!!nes 2 bytes más corto quetoEnum(97+n)
Angs
@ Angs: Buena captura! ¡Gracias!
nimi
6

Pyth, 14 13 bytes

¡Gracias a Jakube por guardar un byte!

VhQ=+k+@GNk;k

Una solución con 14 bytes: VhQ=ks[k@GNk;k.

Explicación:

VhQ=+k+@GNk;k

               # Implicit: k = empty string
VhQ            # For N in range input + 1      
   =           # Assign k
      +@GNk    # Position N at alphabet + k
    +k         # k + above
           ;   # End loop
            k  # Print k

Pruébalo aquí !

Adnan
fuente
¿No debería estar "N en rango" en la Vlínea? hQes soloeval(input) + 1
Loovjo
@Loovjo Sí, eso es mejor y menos confuso :)
Adnan
Puedes acortar =ka =. Pyth asignará automáticamente el resultado a k, ya que kes la primera variable en la expresión +k+@GNk.
Jakube
@Jakube Muchas gracias! :)
Adnan
Tengo una respuesta diferente para este desafío. No superará esta solución, pero ilustra una técnica para dar los primeros n caracteres de la secuencia: Vt^2Q=+k@Gx_.BhN`1)k(En este caso, está configurado para dar los primeros 2 ^ Q-1 caracteres según lo requiera el desafío, pero puede ver cómo cambiar eso.)
quintopia
5

Retina , 37 32 bytes

$
aa
(T`_l`l`.$
)`1(a.*)
$1$1
z

El avance de línea final es significativo. La entrada se toma en unario .

Pruébalo en línea!

Martin Ender
fuente
No funciona.
Leaky Nun
@KennyLau sí, porque Retina cambió desde que publiqué esta respuesta. Si revisa la versión más reciente cuando se publicó directamente desde GitHub, funcionará con eso.
Martin Ender
5

Brainfuck, 157 bytes

,+>-[>++<-----]>----->>+<<<<[->>[[->>[>>>]<+<+<[<<<]>>[>>>]<]>>[>>>]<[-<<[<<<]>>[>>>]<+>>[>>>]<]+>+<<<[<<<]>>[>>>]+[>>>]<]<<<+>>[<-<<]<]>>>>[>>>]<<<<<<[<<.<]

La entrada se da en binario.

La idea básica es duplicar repetidamente la secuencia actual (comenzando con "a") e incrementar el último elemento después de cada iteración:

  1. a → aa → ab

  2. ab → abab → abac

  3. abac → abacabac → abacabac

  4. ...

Cuando todo esto se ha realizado la cantidad de veces especificada, el resultado se imprime excluyendo el último elemento.

Explicación en profundidad

La memoria se organiza de la siguiente manera:

.---------.-.-----.----.---.-----.----.---.---
|Countdown|0|Value|Copy|End|Value|Copy|End|...
'---------'-'-----'----'---'-----'----'---'---

            |--Element 1---|--Element 2---|

La cuenta regresiva contiene el número de ciclos de copia que aún deben ejecutarse. La secuencia ABACABA se almacena en bloques adyacentes, cada uno formado por 3 celdas. El valor contiene el carácter del elemento (es decir, "A", "B", "C" ...). El indicador Copiar indica si el elemento correspondiente debe copiarse dentro del ciclo de copia actual (0 = copiar, 1 = no). El indicador Fin se establece en 0 para el último elemento mientras se está copiando (es 1 en todos los demás casos).

Ahora al programa real (un poco descuidado):

,                       read Countdown from input
+                       add 1 to avoid off-by-one error
>-[>++<-----]>-----     initialize value cell of first element to 97 ("a")
>>+                     set End flag of first element to 1
<<<<                    move to Countdown
[                       loop until Countdown hits 0 (main loop)
    -                   decrement Countdown
    >>                  move to Value cell of first element
    [                   copying loop
        [               duplication sub-loop
            -           decrement Value cell of the element to copy
            >>          move to End flag
            [>>>]       move to End flag of the last element
            <+<+        increment Copy and Value cell of last element (Copy cell is temporarily abused)
            <           move to End flag of second to last element
            [<<<]>>     move back to Copy cell of first element
            [>>>]<      move to Value cell of the first element where the Copy flag is 0
        ]
        >>[>>>]<        move to (abused) Copy flag of the last element
        [               "copy back" sub-loop
            -           decrement Copy flag
            <<          move to End flag of second to last element
            [<<<]>>     move back to Copy cell of first element
            [>>>]<      move to Value cell of the first element where the Copy flag is 0
            +           increment Value cell
            >>[>>>]<    move back to Copy flag of the last element
        ]
        +>+             set Copy and End flag to 1
        <<<             move to End flag of second to last element
        [<<<]>>         move back to Copy cell of first element
        [>>>]<          move to Value cell of the first element where the Copy flag is 0
        >+<             set Copy flag to 1
        >[>>>]<         move to Value cell of the next element to copy
    ]                   loop ends three cells behind the last "valid" Value cell
    <<<+                increment Value cell of last element
    >>                  move to End flag
    [<-<<]              reset all Copy flag
    <                   move to Countdown
]
>>>>                    move to End flag of first element
[>>>]<<<                move to End flag of last element                
<<<                     skip the last element
[<<.<]                  output Value cells (in reverse order, but that doesn't matter)
orthoplex
fuente
2
Bienvenido al sitio! ¡Me interesaría un desglose más detallado!
Wheat Wizard
1
@ SriotchilismO'Zaic Gracias por su respuesta :) Ahora he agregado una explicación detallada.
orthoplex
5

Haskell , 36 bytes

tail.(iterate((:"a").succ=<<)"_a"!!)

Pruébalo en línea!

Esto utiliza un método recursivo diferente de la mayoría de las otras respuestas. Para obtener la siguiente cadena en la secuencia, no unimos dos copias en la cadena anterior con una nueva letra en el medio, sino que incrementamos cada letra y las letras intercaladas a.

aba -> bcb -> abacaba
xnor
fuente
1
¿Quieres decir en bcblugar de cbc?
Jo King
4

05AB1E , 12 bytes (no competitivo)

Código:

'aIGDN>.bsJl

Voy a ser condenado. Solucioné muchos errores gracias a este desafío jaja.

Explicación:

'aIGDN>.bsJl

'a             # Push the character 'a'
  I            # User input
   G           # For N in range(1, input)
    D          # Duplicate the stack
     N         # Push N
      >        # Increment
       .b      # Convert to alphabetic character (1 = A, 2 = B, etc.)
         s     # Swap the last two elements
          J    # push ''.join(stack)
           l   # Convert to lowercase
               # Implicit: print the last item of the stack
Adnan
fuente
¿Por qué no es competitivo?
Loovjo
@Loovjo Solucioné los errores después de que se publicó el desafío, por lo tanto, no es competitivo :(
Adnan
4

JavaScript (ES6), 43 42 bytes

a=n=>n?a(--n)+(n+11).toString(36)+a(n):"a"

Un byte guardado gracias a @Neil !

Sin embargo, otra solución recursiva simple ...

usuario81655
fuente
(n+11).toString(36)¡te ahorra 1 byte y funciona hasta un (25)!
Neil
@Neil Implementado. ¡Gracias!
user81655
3

Ruby (1.9 y superior), 38 bytes

?aes una forma más elegante de escribir, "a"pero se ve raro cuando se mezcla con ternary?:

a=->n{n<1??a:a[n-1]+(97+n).chr+a[n-1]}
Sherlock9
fuente
3

R , 48 bytes

f=function(n)if(n)paste0(a<-f(n-1),letters[n],a)

Pruébalo en línea!

Recurrencia simple

Robin Ryder
fuente
¿Qué es paste0?
Xi'an
@ Xi'an paste0es equivalente a pastewith sep="", por lo que evita los espacios entre letras que pastese agregarían de forma predeterminada.
Robin Ryder
2

C #, 59 bytes

string a(int n){return n<1?"a":a(n-1)+(char)(97+n)+a(n-1);}

Solo otra solución de C # ...

LegionMammal978
fuente
2

Perl, 33 bytes

map$\.=chr(97+$_).$\,0..pop;print

No hay necesidad real de no jugar al golf. Construye la cadena agregando iterativamente el siguiente carácter en secuencia más el reverso de la cadena hasta el momento, utilizando el valor ASCII de 'a' como punto de partida. Utiliza $\para guardar algunos golpes, pero eso es lo más complicado posible.

Trabaja para a a(0)través a(25)e incluso más allá. Aunque luego ingrese a ASCII extendido a(29), se quedará sin memoria mucho antes de quedarse sin códigos de caracteres:

a(25)es ~ 64MiB. a(29)es ~ 1GiB.

Para almacenar el resultado de a(255)(¡no probado!), Se necesitarían 2 ^ 256 - 1 = 1.15x10 ^ 77 bytes, o aproximadamente 1.15x10 ^ 65 unidades de 1 terabyte.

type_outcast
fuente
1
¡Necesitamos esas unidades de yottabytes que tiemblan los átomos, ahora!
CalculatorFeline
2

Java 7, 158 bytes

class B{public static void main(String[]a){a('a',Byte.valueOf(a[0]));}static void a(char a,int c){if(c>=0){a(a,c-1);System.out.print((char)(a+c));a(a,c-1);}}}

Me gusta acechar a PPCG y me gustaría poder votar / comentar otras respuestas.

La entrada se proporciona como parámetros del programa. Esto sigue el mismo formato que muchas otras respuestas aquí en que es una implementación recursiva directa. Hubiera comentado la otra respuesta, pero todavía no tengo el representante para comentar. También es ligeramente diferente en que la llamada recursiva se realiza dos veces en lugar de construir una cadena y pasarla.

Meter
fuente
Bienvenido a PPCG entonces! Espero que haga algo más que votar y comentar en el futuro (pero no sienta que tiene que hacerlo). :)
Martin Ender
2

Mathematica, 36 32 bytes

##<>#&~Fold~Alphabet[][[;;#+1]]&

¿Alguna vez has visto TWOW 11B?

CalculadoraFeline
fuente
No es necesario "",y luego puede usar la notación infija para Fold.
Martin Ender
El n. ° 1 provoca nulos <>, y el n. ° 2 solo funciona para funciones binarias.
CalculatorFeline
¿Publicaste este comentario en la respuesta que pretendías? Porque no tengo idea de lo que quieres decir. :)
Martin Ender
* # 1 hace que StringJoin una nulos, y # 2 solo funciona para funciones binarias o asociativas. (x ~ Fold ~ y ~ Fold ~ z = Fold [x, Fold [y, z]] en lugar de Fold [x, y, z])
CalculatorFeline
Oh, te refieres a la "sugerencia # 1". No, no causa nulos. ¿Por qué lo haría?
Martin Ender
2

Python, 62 54 46 45 bytes

Me gustaría pensar que este código todavía se puede reducir de alguna manera.

Editar: corrección de errores gracias a Lynn. -1 byte gracias a los calamares.

a=lambda n:n and a(n-1)+chr(97+n)+a(n-1)or'a'

Pruébalo en línea!

Sherlock9
fuente
La salida debe estar en minúsculas. La mayúscula en la pregunta es solo para aclarar la repetición.
Loovjo
Whoops Gracias por la aclaración.
Sherlock9
Blargle Gracias @ user81655
Sherlock9
Esto no es válido (nunca termina; pruébelo). Incluso en el caso base, se evalúa la parte recursiva de la expresión.
Lynn
Fijo. Gracias @ Lynn!
Sherlock9
1

Mathematica, 46 bytes

If[#<1,"a",(a=#0[#-1])<>Alphabet[][[#+1]]<>a]&

Función recursiva simple. Otra solución:

a@0="a";a@n_:=(b=a[n-1])<>Alphabet[][[n+1]]<>b
LegionMammal978
fuente
1

K5, 18 bytes

"A"{x,y,x}/`c$66+!

Aplica repetidamente una función a un valor transportado ( "A") y a cada elemento de una secuencia. La secuencia son los caracteres alfabéticos desde B hasta algún número N ( `c$66+!). La función une el argumento izquierdo a cada lado del argumento derecho ( {x,y,x}).

En acción:

 ("A"{x,y,x}/`c$66+!)'!6
("A"
 "ABA"
 "ABACABA"
 "ABACABADABACABA"
 "ABACABADABACABAEABACABADABACABA"
 "ABACABADABACABAEABACABADABACABAFABACABADABACABAEABACABADABACABA")
JohnE
fuente
Creo que la secuencia debería estar en minúsculas, pero eso no cuesta bytes.
user48538
1

JavaScript, 65 57 1 bytes

n=>eval('s="a";for(i=0;i<n;i++)s+=(i+11).toString(36)+s')

Manifestación:

function a(n){
  return eval('s="a";for(i=0;i<n;i++)s+=(i+11).toString(36)+s')
}
alert(a(3))

1 - gracias Neil por guardar 8 bytes

nicael
fuente
(i+11).toString(36)te ahorra 6 bytes.
Neil
@Neil Jaja, es un truco inteligente
nicael
Ah, y si mueve la asignación s="a";a antes de forentonces, se convierte en el valor de retorno predeterminado y puede dejar el resto ;spara otro ahorro de 2 bytes.
Neil
@Neil Nice, no sabía sobre eso.
nicael
Creo que puede guardar un byte incrementando en ilínea y soltando el incremento en el bucle for. Así que ...for(i=0;i<n;)s+=(i+++11)...
No es que Charles
1

Japt, 20 17 bytes

97oU+98 r@X+Yd +X

¡Pruébelo en línea!

Cómo funciona

         // Implicit: U = input integer
65oU+66  // Generate a range from 65 to U+66.
r@       // Reduce each item Y and previous value X in this range with this function:
X+Yd     // return X, plus the character with char code Y,
+X       // plus X.

         // Implicit: output last expression

Versión no competitiva, 14 bytes

97ôU r@X+Yd +X

La ôfunción es como o, pero crea el rango en [X..X+Y]lugar de [X..Y).¡Pruébelo en línea!

Prefiero cambiar el 97 a 94, en cuyo caso la salida para se 5ve así:

^_^`^_^a^_^`^_^b^_^`^_^a^_^`^_^c^_^`^_^a^_^`^_^b^_^`^_^a^_^`^_^
ETHproducciones
fuente
1

Java, 219 bytes

Mi primer intento de golf de código. Probablemente se pueda jugar más al golf, pero tengo hambre y salgo a almorzar.

public class a{public static void main(String[]a){String b=j("a",Integer.parseInt(a[0]),1);System.out.println(b);}public static String j(String c,int d,int e){if(d>=e){c+=(char)(97+e)+c;int f=e+1;c=j(c,d,f);}return c;}}

Sin golf:

public class a {
    public static void main(String[] a) {
        String string = addLetter("a", Integer.parseInt(a[0]), 1);
        System.out.println(string);
    }

    public static String addLetter(String string, int count, int counter) {
        if (count >= counter) {
            string += (char) (97 + counter) + string;
            int f = counter + 1;
            string = addLetter(string, count, f);
        }
        return string;
    }
}

Algoritmo recursivo de fuerza bruta bastante sencillo, utiliza charmanipulación.

JamesENL
fuente
Puede omitir la publicpalabra clave de ay addLetter/ j.
Dorukayhan quiere que Monica regrese el
1

MATL , 14 bytes

0i:"t@whh]97+c

Utiliza la versión 8.0.0 del lenguaje / compilador, que es anterior al desafío.

Ejemplo

>> matl
 > 0i:"t@whh]97+c
 >
> 3
abacabadabacaba

Explicación

El secuence se crea por primera vez con los números 0, 1, 2, ... Estos se convierten en letras 'a', 'b', 'c'al final.

0         % initiallize: a(0)
i:        % input "N" and create vector [1, 2, ... N]
"         % for each element of that vector
  t       % duplicate current sequence
  @       % push new value of the sequence
  whh     % build new sequence from two copies of old sequence and new value
]         % end for
97+c      % convert 0, 1, 2, ... to 'a', 'b', 'c'. Implicitly print

Editar

Pruébalo en línea!

Luis Mendo
fuente
1

Powershell, 53 , 46 , 44 , 41 Bytes

1..$args[0]|%{}{$d+=[char]($_+96)+$d}{$d}

Pegar en la consola generará resultados erróneos en la segunda ejecución ya $dque no se reinicia.

Ahorre 2 bytes usando + = Ahorre 3 bytes gracias a @TimmyD

Jonathan Leech-Pepin
fuente
@TimmyD hecho, mientras que a 41 ya no necesitaré el (, ).
Jonathan Leech-Pepin
No, fue mi culpa, en realidad olvidé actualizarlo aunque dije que sí.
Jonathan Leech-Pepin
el script no se mueve con 0 y no genera una letra mayúscula
mazzy
1

Gaia , 14 bytes

₵aØ@⟪¤ṇ3ṁ¤+ṫ⟫ₓ

Pruébalo en línea!

₵a		| Push lowercase alphabet
  Ø		| push lowercase string
   @         ₓ	| push the input and do everything between ⟪⟫ that many times
    ⟪¤		| swap
      ṇ		| take the last (first) character
       3ṁ	| push the 3rd item on the stack
         ¤+	| swap and concatenate
           ṫ⟫	| and palindromize
Giuseppe
fuente
1

Japt , 8 bytes

;gCåÈ+iY

Intentalo

;gCåÈ+iY     :Implicit input of integer
 g           :Index into
; C          :  Lowercase alphabet
   å         :  Cumulatively reduce, with an initial value of an empty string
    +        :    Append a copy of the current value
     i       :    Prepended with
      Y      :    The current letter
Lanudo
fuente
1

Casco , 12 bytes

!¡S+oṠ:o→▲"a

Pruébalo en línea!

Utiliza indexación basada en 1, que espero que esté bien.

Explicación

!             (                                          !!)
 ¡             iterate(                              )
  S                        <*>
   +                   (++)
    o                         (                     )
     Ṡ                         join$   .
      :                             (:)
       o                                    .
        →                               succ
         ▲                                   maximum
          "a                                          "a"

              (iterate((++)<*>(join$(:).succ.maximum))"a"!!)
Fruta Esolanging
fuente
1

APL (NARS), 24 caracteres, 48 ​​bytes

{⍵<0:⍬⋄k,⎕A[⍵+1],k←∇⍵-1}

prueba:

  f←{⍵<0:⍬⋄k,⎕A[⍵+1],k←∇⍵-1}
  f 0
A
  f 1
ABA
  f 2
ABACABA
  f 3
ABACABADABACABA
  f 4
ABACABADABACABAEABACABADABACABA
RosLuP
fuente
1
¿APL no utiliza su propia página de códigos con cada carácter de un byte, lo que hace que estos 24 bytes?
Loovjo
@Loovjo por lo que sé Nars Apl tiene un conjunto de caracteres de 2 bytes para el personaje
RosLuP
1

PHP -r , 43 bytes

register_argc_argv debe estar habilitado para que esto funcione.

for($a=$b=a;$argv[1]--;$a.=++$b.$a);echo$a;

Pruébalo en línea!

PHP , 51 bytes

Una función anónima que imprime la salida directamente.

function($n){for($a=$b=a;$n--;$a.=++$b.$a);echo$a;}

Pruébalo en línea!

Shieru Asakoto
fuente