Dado N (2 <= N ), imprima N linhas da letra Fibonacci série como esta (ie N = 5) Primeiro, comece com ae b:

a
b

Em seguida, adicione as duas linhas.

a
b
ab

Continue adicionando as duas últimas linhas.

a
b
ab
bab

Continue...

a
b
ab
bab
abbab

E nós terminamos.

Lembre-se, isso é código-golfe , então o código com o menor número de bytes vence.

Python 2, 41 bytes

Guardado 3 bytes graças a @xnor

a,b="ab";exec"print a;a,b=b,a+b;"*input()

Teste em Ideona

Simplesmente segue a definição recursiva.

Haskell, 29 35 32 bytes

a%b=a:b%(a++b)
(`take`("a"%"b"))

Recursão simples.

Para referência: a versão antiga (uma adaptação desta resposta ) concatenou as seqüências na ordem errada, então tive que adicionar uma flip(...)que a tornava muito longa (35 bytes).

f="a":scanl(flip(++))"b"f
(`take`f)

05AB1E , 12 11 bytes

Agradecemos a Emigna por salvar um byte!

'a='b¹GD=Š«

Usa a codificação CP-1252 . Experimente online!

Geléia , 11 10 bytes

”a”bṄ;¥@¡f

Experimente online!

Como funciona

”a”bṄ;¥@¡f  Main link. Argument: n

”a          Set the return value to 'a'.
  ”b    ¡   Call the link to the left n times, with left argument 'b' and right
            argument 'a'. After each call, the right argument is replaced with the
            left one, and the left argument with the return value. The final
            return value is yielded by the quicklink.
      ¥       Combine the two atoms to the left into a dyadic chain.
    Ṅ           Print the left argument of the chain, followed by a linefeed.
     ;          Concatenate the left and right argument of the chain.
       @      Call the chain with reversed argument order.
         f  Filter the result by presence in n. This yields an empty string
            and thus suppresses the implicit output.

Java 7, 69 bytes

String c(int n,String a,String b){return n--<1?"":a+"\n"+c(n,b,a+b);}

destroçado

 class fibb {


public static void main(String[] args) {
    System.out.println( c( 7, "a" , "b" ) );

}
static String c(int n,String a,String b) {

    return n-- < 1  ? "" : a + "\n" + c(n,b,a + b);

}
}

Pressionamentos de teclas Emacs, 26 , 25-ish

Programa

#npara ser lido como chave com dígito (s) n :

ARETBRETF3UPUPC-SPACEC-EM-WDOWNDOWNC-Y UPC-AC-SPACEC-EM-WDOWNC-EC-YRETF4C-#(n-2)F4

Explicação

command(s)               explanation                      buffer reads (| = cursor aka point)
-----------------------------------------------------------------------------------------------
A<RET> B<RET>            input starting points            "a\nb\n|"
<F3>                     start new macro                  "a\nb\n|"
<UP><UP>                 move point two lines up          "|a\nb\n"
C-<SPACE> C-E M-W        copy line at point               "a|\nb\n"
<DOWN><DOWN>             move point two lines down        "a\nb\n|"
C-Y                      yank (paste)                     "a\nb\na|"
<UP>                     move point one line up           "a\nb|\na"
C-A C-<SPACE> C-E M-W    copy line at point               "a\nb|\na"
<DOWN>                   move point one line down         "a\nb|\na|"
C-E C-Y <RET>            yank (paste) and add new line    "a\nb|\nab\n|"
<F4>                     stop macro recording             "a\nb|\nab\n|"
C-#(n-3) <F4>            apply macro n-3 times            "a\nb|\nab\nbab\nabbab\n|"

Com n = 10

a
b
ab
bab
abbab
bababbab
abbabbababbab
bababbababbabbababbab
abbabbababbabbababbababbabbababbab
bababbababbabbababbababbabbababbabbababbababbabbababbab

JavaScript (ES6), 43 42 bytes

Guardou um byte graças a @Arnauld

f=(n,a="a",b="b")=>n&&f(n-!alert(a),b,a+b)

CJam, 19 17 bytes

'a'b{_@_n\+}ri*;;

explicação

"a": Push character literal "a" onto the stack.
"b": Push character literal "b" onto the stack.
{_@_p\+}
    {: Block begin.
    _: duplicate top element on the stack
    @: rotate top 3 elements on the stack
    _: duplicate top element on the stack
    n: print string representation
    \: swap top 2 elements on the stack
    +: add, concat
    }: Block end.
r: read token (whitespace-separated)
i: convert to integer
*: multiply, join, repeat, fold (reduce)
;: pop and discard
;: pop and discard

V , 18 bytes

ia
bkÀñyjGpgJkñdj

Experimente online!

Ou, a versão mais legível:

ia
b<esc>kÀñyjGpgJkñdj

Explicação:

ia
b<esc>          " Insert the starting text and escape back to normal mode
k               " Move up a line
 Àñ       ñ     " Arg1 times:
   yj           "   Yank the current line and the line below
     G          "   Move to the end of the buffer
      p         "   Paste what we just yanked
       gJ       "   Join these two lines
         k      "   Move up one line
           dj   " Delete the last two lines

MATL , 14 bytes

97c98ci2-:"yyh

Experimente online!

97c     % Push 'a'
98c     % Push 'b'
i2-     % Input number. Subtract 2
:"      % Repeat that many times
  yy    %   Duplicate the top two elements
  h     %   Concatenate them

Python 2, 55 bytes

def f(n):m='a','b';exec'print m[-2];m+=m[-2]+m[-1],;'*n

Retina , 33 bytes

.+
$*
^11
a¶b
+`¶(.+?)1
¶$1¶$%`$1

Experimente online!

Economizou 10 (!) Bytes graças a @ MartinEnder !

Explicação

Converte a entrada para unários, subtrai 2e adiciona o ae b, em seguida, de forma recursiva substitui os restantes 1s com a concatenação das duas cordas anteriores.

Lote, 102 93 bytes

@set a=a
@set b=b
@for /l %%i in (2,1,%1)do @call:l
:l
@echo %a%
@set a=%b%&set b=%a%%b%

Felizmente, as variáveis ​​são expandidas para cada linha antes que as atribuições entrem em vigor, para que eu possa definir os dois ae busar seus valores antigos sem precisar de um temporário. Editar: salvou 9 bytes graças a @ nephi12.

Empilhe meu Golf, 63 bytes

Obtenha meu idioma aqui: https://github.com/cheertarts/Stack-My-Golf .

($1=(_(a))($2=(_(b))($2-f:1-f,)?)?)f\($1=(f)($1-p(\n),:f,)?)p\p

Provavelmente existe uma maneira mais curta, mas essa é a mais óbvia.

Perl, 36 35 bytes

Inclui +3 para -n

Contar com STDIN

perl -M5.010 fibo.pl <<< 5

fibo.pl

#!/usr/bin/perl -n
$_=$'.s/1//.$_,say$`for(a1.b)x$_

Perl, 45 +1 = 46 bytes

+1 byte para o sinalizador -n

$a=a,$b=b;say($a),($a,$b)=($b,$a.$b)for 1..$_

Ligeira melhoria em relação à solução de 49 bytes existente, mas desenvolvida separadamente. Os parênteses para say($a)são necessários porque, caso contrário, ele interpreta $a,($a,$b)=($b,$a.$b)como o argumento sayque gera mais lixo do que o necessário.

Perl, 42 bytes

$b=<>;$_=a;say,y/ab/bc/,s/c/ab/g while$b--

Uma abordagem separada da solução acima:

$b=<>;                                       #Read the input into $b
      $_=a;                                  #Create the initial string 'a' stored in $_
           say                               #Print $_ on a new line
               y/ab/bc/                      #Perform a transliteration on $_ as follows:
                                   #Replace 'a' with 'b' and 'b' with 'c' everywhere in $_
                        s/c/ab/g             #Perform a replacement on $_ as follows:
                                   #Replace 'c' with 'ab' everywhere in $_
              ,        ,         while$b--   #Perform the operations separated by commas
                                   #iteratively as long as $b-- remains truthy

Ainda não estou convencido de que não posso combinar a transliteração e a substituição em uma única operação mais curta. Se eu encontrar um, eu o publicarei.

Swift 3, 76 bytes

func f(_ n:Int,_ x:String="a",_ y:String="b"){if n>1{print(x);f(n-1,y,x+y)}}

Perl, 48 bytes

Código de 47 bytes + 1 para -n .

Abordagem simples. Tente usar uma fatia de matriz originalmente, $a[@a]="@a[-2,-1]"mas que exija $"=""ou similar :(. Salve 1 byte graças a @ Dada !

@;=(a,b);$;[@;]=$;[-2].$;[-1]for 3..$_;say for@

Uso

perl -nE '@;=(a,b);$;[@;]=$;[-2].$;[-1]for 3..$_;say for@' <<< 5
a
b
ab
bab
abbab

SOML , 8 bytes (não concorrente)

 a b.{;t⁴+

explicação:

 a b.{;t⁴+                                        stack on 1st cycle
 a              push "a"                               ["a"]
   b            push "b"                               ["a","b"]
    .{          repeat input times                     ["a","b"]
      ;         swap the two top things on the stack   ["b","a"]
       t        output the top thing on the stack      ["b","a"]
        ⁴       copy the 2nd from top thing from stack ["b","a","b"]
         +      join them together                     ["b","ab"]

A razão pela qual isso não é competitivo é porque essa linguagem ainda está em desenvolvimento e eu adicionei algumas novas funções ao escrever isso.

Além disso, 1º post no PPCG!

05AB1E, 15 bytes

'a'bVUFX,XYUYJV

C , 156 bytes (sem recuo)

void f(int n)
{
    char u[999]="a",v[999]="b",*a=u,*b=a+1,*c=v,*d=c+1,*e,i;
    for(i=0;i<n;++i)
    {
        printf("%s\n",a);
        for(e=c;*b++=*e++;);
        e=a;a=c;c=e;e=b+1;b=d;d=e;
    }
}

Dois buffers (u & v) armazenam as duas últimas linhas. A linha mais recente (rastreada com dois ponteiros: start = c, end = d) é anexada à mais antiga (start = a, end = b). Troque (a, b) e (c, d) e faça um loop. Preste atenção ao tamanho do buffer antes de solicitar muitas linhas. Não é tão curto (como esperado de um idioma de baixo nível), mas foi divertido de codificar.

PHP, 63 62 bytes

Versão recursiva:

function f($n,$a=a,$b=b){return$n--?"$a
".f($n,$b,$a.$b):'';}

Pitão , 17 bytes

J,\a\bjP.U=+Js>2J

Um programa que recebe a entrada de um número inteiro e imprime o resultado.

Experimente online!

Como funciona

J,\a\bjP.U=+Js>2J  Program. Input: Q
 ,\a\b             Yield the two element list ['a', 'b']
J                  Assign to J
        .U         Reduce over [0, 1, 2, 3, ..., Q] (implicit input):
          =J+        J = J +
              >2J     the last two elements of J
             s        concatenated
       P           All of that except the last element
      j            Join on newlines
                   Implicitly print

Pitão - 16 15 bytes

A"ab" m=H+
~GHH

Experimente online aqui .

APL, 30 bytes.

⎕IOdeve ser 1.

{⎕←⍵}¨{⍵∊⍳2:⍵⌷'ab'⋄∊∇¨⍵-⌽⍳2}¨⍳

Mathematica, 49 bytes

f@1="a";f@2="b";f@n_:=f[n-2]<>f[n-1];g=f~Array~#&

Define uma função g que recebe a entrada numérica única; retorna uma lista de cadeias. Implementação recursiva direta, usando o operador de junção de string<> .

Mathematica, 56 bytes

NestList[#~StringReplace~{"a"->"b","b"->"ab"}&,"a",#-1]&

Função sem nome, mesmo formato de entrada / saída como acima. Essa solução usa uma maneira alternativa de gerar as strings: cada string da lista é o resultado da substituição simultânea, na string anterior, de todas as ocorrências de "a" por "b" e todas as ocorrências de "b" por "ab".

Groovy, 79 bytes

{println("a\nb");x=['a','b'];(it-2).times{println(y=x.sum());x[0]=x[1];x[1]=y}}

PHP, 53 bytes

for($a=b,$b=a;$argv[1]--;$a=($_=$b).$b=$a)echo$b.'
';

C ++ 11, 89 98 bytes

+7 bytes para todas as linhas, não apenas a última. +2 bytes a mais por Nser o número de linhas impressas, não algumas coisas baseadas em 0.

#include<string>
using S=std::string;S f(int n,S a="a",S b="b"){return n-1?a+"\n"+f(n-1,b,a+b):a;}

Uso:

f(5)

Ruby (1.9+) 46 bytes

a,b=?a,?b;ARGV[0].to_i.times{puts a;a,b=b,a+b}