รับN (2 <= N ) พิมพ์Nบรรทัดของชุดตัวอักษร Fibonacci เช่นนี้ (เช่น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()

ทดสอบไอดีโอ

เพียงทำตามคำจำกัดความซ้ำ

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 ไบต์

ขอบคุณEmigna ที่บันทึกไบต์!

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

ungolfed

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

โครงการ

#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 !

คำอธิบาย

แปลงอินพุตเป็น unary ลบ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

ฉันยังไม่มั่นใจว่าฉันไม่สามารถรวมการทับศัพท์และทดแทนเข้ากับการใช้งานที่สั้นลงได้ หากฉันพบหนึ่งฉันจะโพสต์

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 ไบต์

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

บัฟเฟอร์สองอัน (&&) เก็บสองบรรทัดสุดท้าย บรรทัดใหม่ล่าสุด (ติดตามด้วยตัวชี้สองตัว: 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):'';}

Pyth , 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 ไบต์

⎕IO1จะต้องเป็น

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

Mathematica, 49 ไบต์

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

กำหนดฟังก์ชั่นgรับอินพุตตัวเลขเดียว; ส่งคืนรายการสตริง การดำเนินการ recursive <>ตรงไปตรงมาใช้ประกอบการสตริงเข้าร่วม

Mathematica, 56 ไบต์

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

ฟังก์ชั่นที่ไม่มีชื่อ, รูปแบบอินพุต / เอาท์พุตเดียวกับด้านบน วิธีการแก้ปัญหานี้ใช้วิธีอื่นในการสร้างสตริง: แต่ละสตริงในรายการเป็นผลลัพธ์ของการแทนที่พร้อมกันในสตริงก่อนหน้าการเกิดขึ้นทั้งหมดของ "a" กับ "b" และการเกิดขึ้นทั้งหมดของ "b" ด้วย "ab"

Groovy, 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)

ทับทิม (1.9+) 46 ไบต์

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