Cho N (2 <= N ), in N dòng của chuỗi Fibonacci chữ cái như thế này (tức là N = 5) Trước tiên, bắt đầu bằng avà b:

a
b

Tiếp theo, thêm hai dòng.

a
b
ab

Tiếp tục thêm hai dòng cuối cùng.

a
b
ab
bab

Tiếp tục đi...

a
b
ab
bab
abbab

Và chúng ta đã hoàn thành.

Remmeber, đây là code-golf , vì vậy mã có ít byte nhất sẽ thắng.

Python 2, 41 byte

Đã lưu 3 byte nhờ @xnor

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

Thử nghiệm trên Ideone

Đơn giản chỉ cần làm theo định nghĩa đệ quy.

Haskell, 29 35 32 byte

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

Đệ quy đơn giản.

Để tham khảo: phiên bản cũ (một phần thích ứng của câu trả lời này ), nối các chuỗi theo thứ tự sai, vì vậy tôi phải thêm một chuỗi flip(...)khiến nó quá dài (35 byte).

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

05AB1E , 12 11 byte

Cảm ơn Emigna vì đã tiết kiệm một byte!

'a='b¹GD=Š«

Sử dụng mã hóa CP-1252 . Hãy thử trực tuyến!

Thạch , 11 10 byte

”a”bṄ;¥@¡f

Hãy thử trực tuyến!

Làm thế nào nó hoạt động

”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 byte

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

vô dụng

 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, tổ hợp phím 26 , 25 giờ

Chương trình

#nđược đọc dưới dạng khóa với chữ số (s) n :

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

Giải trình

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

Với n = 10

a
b
ab
bab
abbab
bababbab
abbabbababbab
bababbababbabbababbab
abbabbababbabbababbababbabbababbab
bababbababbabbababbababbabbababbabbababbababbabbababbab

JavaScript (ES6), 43 42 byte

Đã lưu một byte nhờ @Arnauld

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

CJam, 19 17 byte

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

giải trình

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

ia
bkÀñyjGpgJkñdj

Hãy thử trực tuyến!

Hoặc, phiên bản dễ đọc hơn:

ia
b<esc>kÀñyjGpgJkñdj

Giải trình:

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 byte

97c98ci2-:"yyh

Hãy thử trực tuyến!

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 byte

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

Võng mạc , 33 byte

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

Hãy thử trực tuyến!

Đã lưu 10 (!) Byte nhờ @ MartinEnder !

Giải trình

Chuyển đổi đầu vào thành unary, trừ 2và thêm avà b, sau đó thay thế đệ quy các 1s còn lại bằng cách nối hai chuỗi trước đó.

Mẻ, 102 93 byte

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

May mắn thay, các biến được mở rộng cho mỗi dòng trước khi các bài tập có hiệu lực, vì vậy tôi có thể đặt cả hai avà bsử dụng các giá trị cũ của chúng mà không cần tạm thời. Chỉnh sửa: Đã lưu 9 byte nhờ @ nephi12.

Xếp chồng Golf của tôi, 63 byte

Nhận ngôn ngữ của tôi ở đây: https://github.com/cheertarts/Stack-My-Golf .

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

Có lẽ có một cách ngắn hơn nhưng đây là cách rõ ràng nhất.

Perl, 36 35 byte

Bao gồm +3 cho -n

Hãy đếm trê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 byte

+1 byte cho cờ -n

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

Cải thiện nhẹ so với giải pháp 49 byte hiện có, nhưng được phát triển riêng. Các dấu ngoặc đơn say($a)là cần thiết bởi vì nếu không, nó diễn giải $a,($a,$b)=($b,$a.$b)như là đối số saytạo ra nhiều rác hơn chúng ta cần.

Perl, 42 byte

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

Một cách tiếp cận riêng biệt từ giải pháp trên:

$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

Tôi vẫn chưa tin rằng tôi không thể kết hợp việc chuyển ngữ và thay thế thành một thao tác ngắn hơn. Nếu tôi tìm thấy một, tôi sẽ đăng nó.

Swift 3, 76 byte

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

Perl, 48 byte

Mã 47 byte + 1 cho -n .

Cách tiếp cận đơn giản. Hãy thử sử dụng một lát mảng ban đầu $a[@a]="@a[-2,-1]"nhưng điều đó bắt buộc $"=""hoặc tương tự :(. Lưu 1 byte nhờ @ Dada !

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

Sử dụng

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

SOML , 8 byte (không cạnh tranh)

 a b.{;t⁴+

giải trình:

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

Lý do điều này không cạnh tranh là vì ngôn ngữ này vẫn đang được phát triển và tôi đã thêm một vài chức năng mới trong khi viết này.

Ngoài ra, bài viết đầu tiên trên PPCG!

05AB1E, 15 byte

'a'bVUFX,XYUYJV

C , 156 byte (không có thụt lề)

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

Hai bộ đệm (u & v) lưu trữ hai dòng cuối cùng. Dòng mới nhất (được theo dõi với hai con trỏ: start = c, end = d) được thêm vào dòng cũ nhất (start = a, end = b). Hoán đổi (a, b) và (c, d) và vòng lặp. Hãy chú ý đến kích thước bộ đệm trước khi yêu cầu quá nhiều dòng. Không quá ngắn (như mong đợi của một ngôn ngữ cấp thấp), nhưng rất vui khi viết mã.

PHP, 63 62 byte

Phiên bản đệ quy:

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

Bình thường , 17 byte

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

Một chương trình lấy đầu vào của một số nguyên và in kết quả.

Hãy thử trực tuyến!

Làm thế nào nó hoạt động

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 byte

A"ab" m=H+
~GHH

Hãy thử trực tuyến tại đây .

APL, 30 byte.

⎕IOphải 1.

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

Toán học, 49 byte

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

Xác định hàm glấy đầu vào số đơn; trả về một danh sách các chuỗi. Thực hiện đệ quy đơn giản, sử dụng toán tử nối chuỗi<> .

Toán học, 56 byte

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

Chức năng chưa được đặt tên, định dạng đầu vào / đầu ra giống như trên. Giải pháp này sử dụng một cách khác để tạo các chuỗi: mỗi chuỗi trong danh sách là kết quả của việc thay thế đồng thời, trong chuỗi trước đó, tất cả các lần xuất hiện của "a" bằng "b" và tất cả các lần xuất hiện của "b" bằng "ab".

Groovy, 79 byte

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

PHP, 53 byte

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

C ++ 11, 89 98 byte

+7 byte cho tất cả các dòng, không chỉ dòng cuối cùng. Hơn 2 byte cho Nsố lượng dòng được in, không phải là một số công cụ dựa trê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;}

Sử dụng:

f(5)

Ruby (1.9+) 46 byte

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