Враховуючи N (2 <= N ), надрукуйте N рядків літери рядів Фібоначчі так (тобто N = 5) Спочатку почніть з aі b:

a
b

Далі додайте два рядки.

a
b
ab

Продовжуйте додавати останні два рядки.

a
b
ab
bab

Продовжуй...

a
b
ab
bab
abbab

І ми закінчили.

Пам’ятайте, це код-гольф , тому виграє код з найменшими байтами.

Python 2, 41 байт

Збережено 3 байти завдяки @xnor

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

Тест на Ideone

Просто слід рекурсивне визначення.

Haskell, 29 35 32 байт

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

Проста рекурсія.

Для довідки: стара версія (адаптація цієї відповіді ) поєднала рядки в неправильному порядку, тому мені довелося додати ту, flip(...)яка зробила її занадто довгою (35 байт).

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

05AB1E , 12 11 байт

Дякуємо Еміньї за збереження байта!

'a='b¹GD=Š«

Використовує кодування CP-1252 . Спробуйте в Інтернеті!

Желе , 11 10 байт

”a”bṄ;¥@¡f

Спробуйте в Інтернеті!

Як це працює

”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 байт

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

неозорий

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

}
}

Emacs, 26 , 25-іш клавіш

Програма

#nчитати як ключ із цифр (и) n :

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

Пояснення

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

При n = 10

a
b
ab
bab
abbab
bababbab
abbabbababbab
bababbababbabbababbab
abbabbababbabbababbababbabbababbab
bababbababbabbababbababbabbababbabbababbababbabbababbab

JavaScript (ES6), 43 42 байти

Збережено байт завдяки @Arnauld

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

CJam, 19 17 байт

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

пояснення

"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 байт

ia
bkÀñyjGpgJkñdj

Спробуйте в Інтернеті!

Або, більш читаною версією:

ia
b<esc>kÀñyjGpgJkñdj

Пояснення:

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 байт

97c98ci2-:"yyh

Спробуйте в Інтернеті!

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 байт

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

Сітківка , 33 байти

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

Спробуйте в Інтернеті!

Збережено 10 (!) Байтів завдяки @ MartinEnder !

Пояснення

Перетворює вхід в одинарний, віднімає 2і додає aі b, а потім рекурсивно замінює решту 1s на конкатенацію двох попередніх рядків.

Пакетна, 102 93 байт

@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%

На щастя, змінні розширюються для кожного рядка до того, як призначення почне діяти, тож я можу встановити обидва aта bвикористовувати їхні старі значення, не потребуючи тимчасових. Редагувати: Збережено 9 байт завдяки @ nephi12.

Стек мій гольф, 63 байти

Отримайте мою мову тут: https://github.com/cheertarts/Stack-My-Golf .

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

Мабуть, існує коротший шлях, але це найбільш очевидно.

Perl, 36 35 байт

Включає +3 для -n

Дайте рахунок на STDIN

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

fibo.pl

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

Perl, 45 +1 = 46 байт

+1 байт для прапора -n

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

Невелике вдосконалення в порівнянні з існуючим 49-байтним рішенням, але розроблене окремо. Дужки для дужок say($a)необхідні, оскільки в іншому випадку він трактується $a,($a,$b)=($b,$a.$b)як аргумент, sayякий виводить більше небажаного, ніж нам потрібно.

Perl, 42 байти

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

Окремий підхід від наведеного рішення:

$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

Я ще не впевнений, що не можу поєднати транслітерацію та заміну в одну, більш коротку операцію. Якщо я знайду його, я опублікую його.

Швидкий 3, 76 байт

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

Perl, 48 байт

47 байт код + 1 для -n.

Простий підхід. Спробуйте використати фрагмент масиву спочатку, $a[@a]="@a[-2,-1]"але це вимагає $"=""або подібного :(. Збережіть 1 байт завдяки @ Dada !

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

Використання

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

SOML , 8 байт (неконкурентоспроможний)

 a b.{;t⁴+

пояснення:

 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"]

Причина цього є неконкурентною, тому що ця мова все ще розвивається, і я додав пару нових функцій під час написання цього.

Також 1-й пост на PPCG!

05AB1E, 15 байт

'a'bVUFX,XYUYJV

C , 156 байт (без відступу)

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

Два буфери (u & v) зберігають останні два рядки. Найновіший рядок (відслідковується двома вказівниками: start = c, end = d) додається до найстарішого (start = a, end = b). Зміна (a, b) і (c, d) та петля. Зверніть увагу на розмір буфера, перш ніж вимагати занадто багато рядків. Не такий короткий (як очікувалося, мови низького рівня), але кодувати було весело.

PHP, 63 62 байт

Рекурсивна версія:

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

Піт , 17 байт

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

Програма, яка приймає введення цілого числа і друкує результат.

Спробуйте в Інтернеті!

Як це працює

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

Pyth - 16 15 байт

A"ab" m=H+
~GHH

Спробуйте його онлайн тут .

APL, 30 байт.

⎕IOповинно бути 1.

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

Математика, 49 байт

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

Визначає функцію, що gприймає єдиний числовий вхід; повертає список рядків. Пряма рекурсивна реалізація з використанням оператора з'єднання рядків <>.

Математика, 56 байт

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

Безіменна функція, той же формат вводу / виводу, що і вище. Це рішення використовує альтернативний спосіб генерування рядків: кожна рядок у списку є результатом одночасного заміщення в попередньому рядку всіх входжень "a" на "b" та всіх входжень "b" на "ab".

Гроовий, 79 байт

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

PHP, 53 байти

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

C ++ 11, 89 98 байт

+7 байт для всіх рядків, не тільки останнього. +2 байти більше за Nте, що кількість друкованих рядків, а не деякі матеріали на основі 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;}

Використання:

f(5)

Ruby (1.9+) 46 байт

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