Fibonacci dizisi sırayla her sayıda kendinden önce gelen iki sayının toplamı numaraları, bir dizisidir. Dizideki ilk iki sayının ikisi de 1'dir.

İşte ilk birkaç terim

1 1 2 3 5 8 13 21 34 55 89 ...

Aşağıdakilerden en kısa kodu yazın:

• Fibonacci dizisini uçsuz olarak oluşturur.

• Verilen dizinin th terimini nhesaplar n. (Ya 1 ya da sıfır dizinlenmiş)

Standart giriş ve çıkış formlarını kullanabilirsiniz.

(Birinin seçtiğiniz dilde diğerinden daha kolay olması durumunda her iki seçeneğe de yer verdim.)

Bir fonksiyon için n, oldukça büyük bir dönüş değeri (en azından bilgisayarınızın normal sözcük boyutuna uyan en büyük Fibonacci numarası) desteklenmelidir.

Liderler Sıralaması

/* Configuration */

var QUESTION_ID = 85; // Obtain this from the url
// It will be like https://XYZ.stackexchange.com/questions/QUESTION_ID/... on any question page
var ANSWER_FILTER = "!t)IWYnsLAZle2tQ3KqrVveCRJfxcRLe";
var COMMENT_FILTER = "!)Q2B_A2kjfAiU78X(md6BoYk";
var OVERRIDE_USER = 3; // This should be the user ID of the challenge author.

/* App */

var answers = [], answers_hash, answer_ids, answer_page = 1, more_answers = true, comment_page;

function answersUrl(index) {
  return "https://api.stackexchange.com/2.2/questions/" +  QUESTION_ID + "/answers?page=" + index + "&pagesize=100&order=desc&sort=creation&site=codegolf&filter=" + ANSWER_FILTER;
}

function commentUrl(index, answers) {
  return "https://api.stackexchange.com/2.2/answers/" + answers.join(';') + "/comments?page=" + index + "&pagesize=100&order=desc&sort=creation&site=codegolf&filter=" + COMMENT_FILTER;
}

function getAnswers() {
  jQuery.ajax({
    url: answersUrl(answer_page++),
    method: "get",
    dataType: "jsonp",
    crossDomain: true,
    success: function (data) {
      answers.push.apply(answers, data.items);
      answers_hash = [];
      answer_ids = [];
      data.items.forEach(function(a) {
        a.comments = [];
        var id = +a.share_link.match(/\d+/);
        answer_ids.push(id);
        answers_hash[id] = a;
      });
      if (!data.has_more) more_answers = false;
      comment_page = 1;
      getComments();
    }
  });
}

function getComments() {
  jQuery.ajax({
    url: commentUrl(comment_page++, answer_ids),
    method: "get",
    dataType: "jsonp",
    crossDomain: true,
    success: function (data) {
      data.items.forEach(function(c) {
        if (c.owner.user_id === OVERRIDE_USER)
          answers_hash[c.post_id].comments.push(c);
      });
      if (data.has_more) getComments();
      else if (more_answers) getAnswers();
      else process();
    }
  });  
}

getAnswers();

var SCORE_REG = /<h\d>\s*([^\n,<]*(?:<(?:[^\n>]*>[^\n<]*<\/[^\n>]*>)[^\n,<]*)*),.*?(\d+)(?=[^\n\d<>]*(?:<(?:s>[^\n<>]*<\/s>|[^\n<>]+>)[^\n\d<>]*)*<\/h\d>)/;

var OVERRIDE_REG = /^Override\s*header:\s*/i;

function getAuthorName(a) {
  return a.owner.display_name;
}

function process() {
  var valid = [];
  
  answers.forEach(function(a) {
    var body = a.body;
    a.comments.forEach(function(c) {
      if(OVERRIDE_REG.test(c.body))
        body = '<h1>' + c.body.replace(OVERRIDE_REG, '') + '</h1>';
    });
    
    var match = body.match(SCORE_REG);
    if (match)
      valid.push({
        user: getAuthorName(a),
        size: +match[2],
        language: match[1],
        link: a.share_link,
      });
    else console.log(body);
  });
  
  valid.sort(function (a, b) {
    var aB = a.size,
        bB = b.size;
    return aB - bB
  });

  var languages = {};
  var place = 1;
  var lastSize = null;
  var lastPlace = 1;
  valid.forEach(function (a) {
    if (a.size != lastSize)
      lastPlace = place;
    lastSize = a.size;
    ++place;
    
    var answer = jQuery("#answer-template").html();
    answer = answer.replace("{{PLACE}}", lastPlace + ".")
                   .replace("{{NAME}}", a.user)
                   .replace("{{LANGUAGE}}", a.language)
                   .replace("{{SIZE}}", a.size)
                   .replace("{{LINK}}", a.link);
    answer = jQuery(answer);
    jQuery("#answers").append(answer);

    var lang = a.language;
    lang = jQuery('<a>'+lang+'</a>').text();
    
    languages[lang] = languages[lang] || {lang: a.language, lang_raw: lang, user: a.user, size: a.size, link: a.link};
  });

  var langs = [];
  for (var lang in languages)
    if (languages.hasOwnProperty(lang))
      langs.push(languages[lang]);

  langs.sort(function (a, b) {
    if (a.lang_raw.toLowerCase() > b.lang_raw.toLowerCase()) return 1;
    if (a.lang_raw.toLowerCase() < b.lang_raw.toLowerCase()) return -1;
    return 0;
  });

  for (var i = 0; i < langs.length; ++i)
  {
    var language = jQuery("#language-template").html();
    var lang = langs[i];
    language = language.replace("{{LANGUAGE}}", lang.lang)
                       .replace("{{NAME}}", lang.user)
                       .replace("{{SIZE}}", lang.size)
                       .replace("{{LINK}}", lang.link);
    language = jQuery(language);
    jQuery("#languages").append(language);
  }

}

body {
  text-align: left !important;
  display: block !important;
}

#answer-list {
  padding: 10px;
  width: 290px;
  float: left;
}

#language-list {
  padding: 10px;
  width: 290px;
  float: left;
}

table thead {
  font-weight: bold;
}

table td {
  padding: 5px;
}

<script src="https://ajax.googleapis.com/ajax/libs/jquery/2.1.1/jquery.min.js"></script>
<link rel="stylesheet" type="text/css" href="https://cdn.sstatic.net/Sites/codegolf/all.css?v=ffb5d0584c5f">
<div id="language-list">
  <h2>Shortest Solution by Language</h2>
  <table class="language-list">
    <thead>
      <tr><td>Language</td><td>User</td><td>Score</td></tr>
    </thead>
    <tbody id="languages">

    </tbody>
  </table>
</div>
<div id="answer-list">
  <h2>Leaderboard</h2>
  <table class="answer-list">
    <thead>
      <tr><td></td><td>Author</td><td>Language</td><td>Size</td></tr>
    </thead>
    <tbody id="answers">

    </tbody>
  </table>
</div>
<table style="display: none">
  <tbody id="answer-template">
    <tr><td>{{PLACE}}</td><td>{{NAME}}</td><td>{{LANGUAGE}}</td><td>{{SIZE}}</td><td><a href="{{LINK}}">Link</a></td></tr>
  </tbody>
</table>
<table style="display: none">
  <tbody id="language-template">
    <tr><td>{{LANGUAGE}}</td><td>{{NAME}}</td><td>{{SIZE}}</td><td><a href="{{LINK}}">Link</a></td></tr>
  </tbody>
</table>

Perl 6, 10 karakter:

Anonim sonsuz fibonacci dizi listesi:

^2,*+*...*

İle aynı:

0, 1, -> $x, $y { $x + $y } ... Inf;

Böylece onu bir diziye atayabilirsiniz:

my @short-fibs = ^2, * + * ... *;

veya

my @fibs = 0, 1, -> $x, $y { $x + $y } ... Inf;

Ve ilk on bir değeri (0'dan 10'a kadar) ile alın:

say @short-fibs[^11];

veya:

say @fibs[^11];

Bekleyin, anonim listeden de ilk 50 numarayı alabilirsiniz:

say (^2,*+*...*)[^50]

Bu döner:

0 1 1 2 3 5 8 13 21 34 55 89 144 233 377 610 987 1597 2584 4181 6765
10946 17711 28657 46368 75025 121393 196418 317811 514229 832040
1346269 2178309 3524578 5702887 9227465 14930352 24157817 39088169
63245986 102334155 165580141 267914296 433494437 701408733 1134903170 
1836311903 2971215073 4807526976 7778742049

Ve bazı basit kriterler:

real    0m0.966s
user    0m0.842s
sys     0m0.080s

İle:

$ time perl6 -e 'say (^2, *+* ... *)[^50]'

EOF

Brainfuck, 22 vuruş

+>++[-<<[->+>+<<]>>>+]

Bellek bandı boyunca yavaş yavaş hareket eden Fibonacci dizisini oluşturur.

Haskell, 17 15 14 karakter

f=1:scanl(+)1f

Çevrimiçi deneyin!

C # 4, 58 bayt

Akış (69; 65, zayıf yazılmışsa IEnumerable)

(İçin bir usingyönerge varsayarak System.Collections.Generic.)

IEnumerable<int>F(){int c=0,n=1;for(;;){yield return c;n+=c;c=n-c;}}

Tek değer (58)

int F(uint n,int x=0,int y=1){return n<1?x:F(n-1,y,x+y);}

GolfScript, 12

Şimdi, sadece 12 karakter!

1.{.@.p+.}do

> <> - 15 karakter

0:nao1v LF a+@:n:<o

J, 10 karakter

Yerleşik Taylor serisi katsayılarının hesaplanmasında kullanılması çok az aldatma olabilir. Burada öğrendim .

   (%-.-*:)t.

   (%-.-*:)t. 0 1 2 3 4 5 10 100
0 1 1 2 3 5 55 354224848179261915075

Hexagony ,18 14 12

6 bayt için teşekkürler Martin!

1="/}.!+/M8;

Expanded:

  1 = "
 / } . !
+ / M 8 ;
 . . . .
  . . .

Çevrimiçi deneyin

Eski cevap Bu, görüntülerin ve açıklamaların yeni Hexagony kullanıcıları için yararlı olabileceği için bırakılmıştır.

!).={!/"*10;$.[+{]

Expanded:

  ! ) .
 = { ! /
" * 1 0 ;
 $ . [ +
  { ] .

Bu, yeni satırlarla ayrılmış Fibonacci dizisini yazdırır.

Çevrimiçi deneyin! Yine de dikkatli olun, çevrimiçi tercüman sonsuz çıktıdan hoşlanmıyor.

açıklama

Bu program için iki "alt program" vardır, her biri kullanılan iki IP'den biri tarafından çalıştırılır. İlk rutin yeni satırları yazdırır, ikincisi Fibonacci hesaplama ve çıktısını yapar.

İlk alt yordam ilk satırda başlar ve süre boyunca sağdan sola hareket eder. Önce bellek göstergesindeki değeri yazdırır (sıfır olarak başlatılır) ve ardından bellek göstergesindeki değeri arttırır 1. İşlemden sonra, IP önce başka bir bellek hücresine geçiş yapan üçüncü bir satıra atlar, sonra yeni bir satır yazdırır. Bir yeni satır pozitif bir değere sahip olduğundan (değeri 10), kod her zaman sonraki beşinci satıra atlayacaktır. Beşinci satır, hafıza göstergesini Fibonacci numaramıza döndürür ve ardından diğer alt rutine geçer. Bu alt rutinden geri döndüğümüzde, IP bir no-op uyguladıktan sonra üçüncü satıra geri dönecektir.

İkinci alt program sağ üst köşeden başlar ve Güneydoğu'ya doğru hareket etmeye başlar. Bir ameliyattan sonra, ikinci hat boyunca Batı'ya yolculuk etmek için sıçradık. Bu satır, bellek işaretçisini bir sonraki konuma taşımadan önce mevcut Fibonacci numarasını yazdırır. Ardından IP, önceki ikiyi kullanarak bir sonraki Fibonacci sayısını hesapladığı dördüncü satıra atlar. Daha sonra, ilk alt rutine geri kontrol verir, ancak programın kontrolünü yeniden ele geçirdiğinde, ikinci çizgiye geri döndüğü sırada, başlangıçta Batı'yı işaret etmek için kullanılan ayna üzerinde zıpladığı yere kadar bir sıçrama ile karşılaşıncaya kadar devam eder.

Ön Güzel Resimler!

Resmin sol tarafı programdır, sağ tarafı hafızayı temsil eder. Mavi kutu ilk IP'dir ve her iki IP de yürütülecek bir sonraki talimatı gösterir.

Not: Resimler yalnızca resim düzenleme programları ile benzer şekilde sınırlı becerilere sahip kişilerce görülebilir: PI, *operatörün kullanımının daha net olması için en az 2 yineleme daha ekleyecektir .

Not 2: Sadece en çoğunu yazdıktan sonra alephal'ın cevabını gördüm , ayrılma nedeniyle hala değerli olduğunu düşündüm, ancak programlarımızın gerçek Fibonacci bölümleri çok benzer. Ayrıca, bu, birden fazla IP kullandığımda gördüğüm en küçük Hexagony programı, bu yüzden yine de saklamanın iyi olacağını düşündüm: P

İnek , 108

 MoO moO MoO mOo MOO OOM MMM moO moO
 MMM mOo mOo moO MMM mOo MMM moO moO
 MOO MOo mOo MoO moO moo mOo mOo moo

Python 2,34 bayt

Python, özyinelemeyi kullanarak ... işte bir StackOverflow geliyor!

def f(i,j):print i;f(j,i+j)
f(1,1)

Jöle , 3 bayt

+¡1

Çevrimiçi deneyin!

Nasıl çalışır

+¡1    Niladic link. No implicit input.
       Since the link doesn't start with a nilad, the argument 0 is used.

  1    Yield 1.
+      Add the left and right argument.
 ¡     For reasons‡, read a number n from STDIN.
       Repeatedly call the dyadic link +, updating the right argument with
       the value of the left one, and the left one with the return value.

^‡ ¡ sola iki link göz atar. Sadece bir tane olduğundan, bu döngünün gövdesi olmak zorunda. Bu nedenle girişten bir sayı okunur. Komut satırı argümanları olmadığından, bu sayı STDIN'den okunur.

Golfscript - tek numara - 12/11/10

Stdin'den girdi almak için 12 karakter:

~0 1@{.@+}*;

Zaten yığında giriş için 11 karakter:

0 1@{.@+}*;

0'ı Fibonacci sayısı 0 olarak tanımlamak için 10 karakter:

1.@{.@+}*;

Yakut

29 27 25 24 Karakter

p a=b=1;loop{b=a+a=p(b)}

Düzenleme: sonsuz bir döngü yaptı. ;)

Mathematica, 9 karakter

Fibonacci

Yerleşik işlevlere izin verilmiyorsa, işte açık bir çözüm:

Mathematica, 33 32 31 karakter

#&@@Nest[{+##,#}&@@#&,{0,1},#]&

DC (20 bayt)

Bir bonus olarak, bile şaşkın;)

zzr[dsb+lbrplax]dsax

EDIT: Yeterince uzun süre beklerseniz, fibonacci dizisindeki tüm sayıları yazdırdığını belirtebilirim.

başlangıç , 12 bayt

Prelude'un gerçekten oldukça rekabetçi olduğu birkaç zorluktan biri:

1(v!v)
  ^+^

Bu gerektirir Python yorumlayıcısını değerleri karakterler yerine ondalık sayılar olarak basan .

açıklama

Prelude'da, tüm satırlar programın sütunlarını hareket ettiren komut işaretçisi ile paralel olarak yürütülür. Her satırın sıfıra başlatılan kendi yığını vardır.

1(v!v)
  ^+^
| Push a 1 onto the first stack.
 | Start a loop from here to the closing ).
  | Copy the top value from the first stack to the second and vice-versa.
   | Print the value on the first stack, add the top two numbers on the second stack.
    | Copy the top value from the first stack to the second and vice-versa.

Döngü sonsuza kadar tekrar eder, çünkü ilk yığında asla 0 üstünde yer olmaz.

Bunun Fibonacci dizisini baştan başlattığını unutmayın 0.

Altıgen , 6 bayt

Rekabetçi değil çünkü dil sorudan daha yeni.

1.}=+!

Ungolfed:

  1 .
 } = +
  ! .

Fibonacci dizisini herhangi bir ayırıcı olmadan basar.

TI-BASIC, 11

Efsanevi TI-BASIC golfçü Kenneth Hammond ("Weregoose") tarafından, bu siteden . O (1) zamanda çalışır ve 0'ın Fibonacci dizisinin 0'ıncı terimi olduğunu düşünür.

int(round(√(.8)cosh(Anssinh‾¹(.5

Kullanmak:

2:int(round(√(.8)cosh(Anssinh‾¹(.5
                                     1

12:int(round(√(.8)cosh(Anssinh‾¹(.5
                                     144

Bu nasıl çalışıyor? Eğer matematiği yaparsanız, bunun sinh‾¹(.5)eşit olduğu ortaya çıkar ln φ, bu yüzden (1/φ)^ndüzeltme terimini kullanmak yerine yuvarlayan Binet formülünün değiştirilmiş bir sürümüdür . round((9 ondalık basamağa yuvarlak) yuvarlama hataları önlemek için gereklidir.

K - 12

nVe n-1Fibonacci sayısını hesaplar .

{x(|+\)/0 1}

Sadece nthFibonacci numarası.

{*x(|+\)/0 1}

Julia, 18 bayt

n->([1 1;1 0]^n)[]

Java, 55

Buradaki çoğu dilin özlüğü ile rekabet edemiyorum, ancak n'inci sayısını hesaplamak için oldukça farklı ve muhtemelen daha hızlı (sabit bir zaman) yolu sunabilirim:

Math.floor(Math.pow((Math.sqrt(5)+1)/2,n)/Math.sqrt(5))

nn = 1 ile başlayan girdidir (int veya long). Kullandığı Binet formülü ve bunun yerine çıkarma yuvarlar.

Yakut, 25 karakter

st0le'ın cevabı kısaldı.

p 1,a=b=1;loop{p b=a+a=b}

FAC: İşlevsel APL, 4 karakter (!!)

Benim değil, bu nedenle topluluk wiki olarak gönderildi. FAC, Hai-Chen Tu’nun 1985’te doktora tezi olarak önerdiği bir APL lehçesidir. Daha sonra Alan J Perlis ile birlikte “ FAC: A Functional APL Language ” adlı bir makale yazdı . Bu APL lehçesi "tembel dizileri" kullanır ve sonsuz uzunluktaki dizilere izin verir. Bir işleci "iter" olarak tanımlar (⌼Bazı özyinelemeli dizilerin kompakt tanımlamasına izin vermek için ) .

Monadiç ("unary") vakası ⌼temelde Haskell'in olup , olarak iteratetanımlanmaktadır (F⌼) A ≡ A, (F A), (F (F A)), …. Diyadik ( "ikili") durumunda iki değişken için benzer bir şekilde tanımlanır: A (F⌼) B ≡ A, B, (A F B), (B F (A F B)), …. Bu neden faydalıdır? Görünüşe göre bu tam olarak Fibonacci dizisinin sahip olduğu nüksetti. Aslında, verilen örneklerden biri

1+⌼1

tanıdık dizi üretmek 1 1 2 3 5 8 … .

Öyleyse, işte size, yenilik dışı bir programlama dilinde mümkün olan en kısa Fibonacci uygulaması. : D

R, 40 bayt

R çözümü görmedim, o yüzden:

f=function(n)ifelse(n<3,1,f(n-1)+f(n-2))

05AB1E, 7 bayt

Kod:

1$<FDr+

Çevrimiçi deneyin!

Dodos , 26 bayt

	dot F
F
	F dip
	F dip dip

Çevrimiçi deneyin!

Nasıl çalışır

Fonksiyonu F tüm ağır işleri; özyinelemeli olarak şu şekilde tanımlanır.

F(n) = ( F(|n - 1|), F(||n - 1| - 1|) )

Her ne zaman n> 1 , elimizdeki | n - 1 | = n - 1 <n ve || n - 1 | - 1 | = | n - 1 - 1 | = n - 2 <n , böylece işlev döner (F (n - 1), F (n - 2)) .

Eğer n = 0 ise , | n - 1 | = 1> 0 ; eğer n = 1 ise , o zaman || n - 1 | - 1 | = | 0 - 1 | = 1 = 1 . Her iki durumda da, özyinelemeli F (1) çağrıları , bir Teslim istisnası yaratır ; F (0) döndürür 0 ve F (1) döndürür 1 .

Örneğin, F (3) = (F (1), F (2)) = (1, F (0), F (1)) = (1, 0, 1) .

Son olarak, ana işlev olarak tanımlanır

main(n) = sum(F(n))

bu yüzden F tarafından döndürülen vektörün tüm koordinatlarını toplar .

Örneğin, ana (3) = toplam (F (3)) = toplam (1, 0, 1) = 2 .

GolfScript, 13 karakter

2,~{..p@+.}do

( Önceki Yığın Taşması sorusundaki cevabım .)

Desmos , 61 bayt

golfed

Click add slideriçin düğmeye n.

p=.5+.5\sqrt{5}
n=0
f=5^{-.5}\left(p^n-\left(-p\right)^{-n}\right)

Son satır çıktıdır.

Ungolfed

Bir fonksiyondur.

\phi =\frac{1+\sqrt{5}}{2}
f_{ibonacci}\left(n\right)=\frac{\phi ^n-\left(-\phi \right)^{-n}}{\sqrt{5}}

Cubix , 10 bayt

Rekabetçi olmayan cevap, çünkü dil sorudan daha yeni.

Cubix, @ETHproductions tarafından yeni bir 2 boyutlu dildir ve kod uyacak şekilde boyutlandırılmış bir küp üzerine sarılmıştır.

;.o.ON/+!)

Çevrimiçi deneyin

Bu, 2 x 2 küp üzerine aşağıdaki şekilde sarılır.

    ; .
    o .
O N / + ! ) . .
. . . . . . . .
    . .
    . .

• O TOS değerini çıkarmak
• N newline'ı yığının üstüne itin
• / kuzeyi yansıt
• o TOS'un karakterini çıkarır
• ; pop TOS
• / küpü dolaştıktan sonra doğuya yansıtabilirsiniz
• + yığının en üst 2 değerini ekle
• ! TOS 0 ise bir sonraki komutu atla
• ) TOS'u 1 ile arttırın.

Bu, diziyi yeni satır ayırıcıyla basan sonsuz bir döngüdür. Çoğu komutun değerleri yığından çıkarmaması gerçeğinden faydalanır.
Ayırıcı yoksayılırsa, bu 5 bayt ile yapılabilir..O+!)

Brainfuck, 16,15, 14/13 karakter

+[[->+>+<<]>]  

Fibonacci dizisini oluşturur ve hiçbir şey yazdırmaz. Ayrıca, yukarıdaki olandan daha kısa.

+[.[->+>+<<]>]   

Bu karakter 14 karakterden oluşur ancak ASCII karakterlerini Fibonacci dizisinin değerleri ile yazdırır.