N (2 <= N ) verildiğinde , Fibonacci dizisinin N satırını bu şekilde yazdırın (yani N = 5) İlk önce ave ile başlayın b:

a
b

Sonra, iki satırı ekleyin.

a
b
ab

Son iki satırı eklemeye devam et.

a
b
ab
bab

Devam et...

a
b
ab
bab
abbab

Ve biz bitti.

Remmeber, bu kod golf , bu yüzden en az baytlık kod kazanıyor.

Python 2,41 bayt

@Xnor sayesinde 3 bayt kaydedildi

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

İdeone Testi

Sadece özyinelemeli tanımı izler.

Haskell, 29 35 32 bayt

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

Basit özyineleme.

Referans için: eski versiyon ( bu cevabın bir uyarlaması ), dizeleri yanlış sırayla bir flip(...)araya getirdi , bu yüzden onu çok uzun (35 bayt) olan bir tane eklemek zorunda kaldım .

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

05AB1E , 12 11 bayt

Bir bayt kaydettiğiniz için Emigna için teşekkürler !

'a='b¹GD=Š«

CP-1252 kodlamasını kullanır . Çevrimiçi deneyin!

Jöle , 11 10 bayt

”a”bṄ;¥@¡f

Çevrimiçi deneyin!

Nasıl çalışır

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

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 tuş vuruşlarını

program

#nrakamları n ile tuş olarak okunacak :

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

açıklama

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 ile

a
b
ab
bab
abbab
bababbab
abbabbababbab
bababbababbabbababbab
abbabbababbabbababbababbabbababbab
bababbababbabbababbababbabbababbabbababbababbabbababbab

JavaScript (ES6), 43 42 bayt

@Arnauld sayesinde bir bayt kaydedildi

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

CJam, 19 17 bayt

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

açıklama

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

ia
bkÀñyjGpgJkñdj

Çevrimiçi deneyin!

Veya daha okunabilir sürüm:

ia
b<esc>kÀñyjGpgJkñdj

Açıklama:

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 bayt

97c98ci2-:"yyh

Çevrimiçi deneyin!

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 bayt

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

Retina , 33 bayt

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

Çevrimiçi deneyin!

@ MartinEnder sayesinde 10 (!) Bayt kaydedildi !

açıklama

Girdiyi birliğe dönüştürür, çıkartır 2ve ekler ave bardından geri kalanı 1s ile önceki iki dizinin bir araya getirilmesiyle tekrarlar .

Toplu iş, 102 93 bayt

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

Neyse ki, atamalar yürürlüğe girmeden önce her satır için değişkenler genişletilir, böylece geçici olarak gerekmeksizin her ikisini de ayarlayabilirim ave beski değerlerini kullanabilirim. Düzenleme: @ nephi12 sayesinde 9 bayt kaydedildi.

Benim Golf yığınım, 63 bayt

Dilimi buradan alın: https://github.com/cheertarts/Stack-My-Golf .

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

Muhtemelen daha kısa bir yol var ama bu en açık olanı.

Perl, 36 35 bayt

İçin +3 içerir -n

STDIN'de sayım verin

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

fibo.pl

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

Perl, 45 + 1 = 46 bayt

-N bayrağı için +1 bayt

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

Mevcut 49 baytlık çözüm üzerinde hafif iyileştirme, ancak ayrı ayrı geliştirildi. Parantezler için say($a)gereklidir, çünkü aksi takdirde, bizim ihtiyacımızdan daha fazla önemsiz çıktı $a,($a,$b)=($b,$a.$b)çıktığı argümanı olarak yorumlar say.

Perl, 42 bayt

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

Yukarıdaki çözümden ayrı bir yaklaşım:

$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

Henüz ikna olmadım, harf çevirisi ve değiştirmeyi tek, daha kısa bir işlemde birleştiremem. Bir tane bulursam, gönderirim.

Swift 3, 76 Bayt

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

Perl, 48 bayt

İçin 47 bayt kodu + 1 -n.

Basit bir yaklaşım. Bir dizi dilimini orijinal olarak kullanmaya çalışın, $a[@a]="@a[-2,-1]"ancak bu zorunlu $"=""veya benzer bir işlemdir :(. @ Dada sayesinde 1 byte tasarruf edin !

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

kullanım

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

SOML , 8 bayt (rekabet etmeyen)

 a b.{;t⁴+

açıklama:

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

Bunun rekabet etmemesinin nedeni, bu dilin hala geliştirilme aşamasında olması ve bunu yazarken birkaç yeni fonksiyon eklememdir.

Ayrıca, PPCG'de ilk gönderi!

05AB1E, 15 bayt

'a'bVUFX,XYUYJV

C , 156 bayt (girintisiz)

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

İki tampon (u & v) son iki satırı saklar. En yeni satır (iki işaretçi ile izlenir: start = c, end = d) en eskisine eklenir (start = a, end = b). (A, b) ve (c, d) yer değiştirip döngü yapın. Çok fazla satır istemeden önce tampon boyutuna dikkat edin. Çok kısa değil (düşük seviyeli bir dilden beklendiği gibi), ancak kodlamak eğlenceliydi.

PHP, 63 62 bayt

Özyinelemeli sürümü:

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

Pyth , 17 bayt

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

Bir tamsayı girişi alan ve sonucu basan bir program.

Çevrimiçi deneyin!

Nasıl çalışır

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 bayt

A"ab" m=H+
~GHH

Burada çevrimiçi deneyin .

APL, 30 bayt.

⎕IOolmalı 1.

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

Mathematica, 49 bayt

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

gTek sayısal girişi alan bir işlevi tanımlar ; dizelerin bir listesini döndürür. Basit bir özyinelemeli uygulama, ipi birleştirme operatörü kullanarak <>.

Mathematica, 56 bayt

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

Adsız işlev, yukarıdaki ile aynı giriş / çıkış formatı. Bu çözüm dizeleri oluşturmak için alternatif bir yol kullanır: listedeki her dize, eşzamanlı olarak önceki dizgide, "a" nın tüm oluşumlarını "b" ile ve "b" nin tüm oluşumlarını "ab" ile değiştirmenin sonucudur.

Groovy, 79 Bayt

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

PHP, 53 bayt

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

C ++ 11, 89 98 bayt

Sadece sonuncusu değil, tüm satırlar için +7 bayt . NYazdırılan satır sayısı için +2 bayt , bazı 0 tabanlı şeyler değil.

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

Kullanımı:

f(5)

Yakut (1.9+) 46 bayt

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