Fibonacci + FizzBuzz = Fibo Nacci!

ความท้าทายของคุณคือการสร้างโปรแกรม Fibo Nacci!

• โปรแกรม Fibo Nacci แสดงผลตัวเลข100 Fibonacci แรก(เริ่มจาก 1)
• หากหมายเลข Fibonacci หารด้วย 2 และ 3 (เช่นหารด้วย 6) ให้ส่งออก FiboNacci แทนตัวเลข
• มิฉะนั้นถ้าจำนวนฟีโบนักชีหารด้วย 2 ให้เอาท์พุท Fibo แทนตัวเลข
• มิฉะนั้นถ้าจำนวนฟีโบนักชีหารด้วย 3 ให้เอาท์พุท Nacci แทนที่จะเป็นตัวเลข

กฎระเบียบ

• โปรแกรมไม่ควรรับอินพุต
• โปรแกรมควรส่งออกบรรทัดใหม่ ( \n) หลังจากทุกรายการ
• โปรแกรมไม่ควรพิมพ์สิ่งใดไปยัง STDERR
• โปรแกรมจะต้องส่งออก100 Fibo Nacci รายการแรก (เริ่มจาก 1)
• ไม่อนุญาตช่องโหว่มาตรฐาน (ตามค่าเริ่มต้น)
• นี่คือโค้ดกอล์ฟที่สั้นที่สุดในหน่วยไบต์!

นี่คือผลลัพธ์ที่คาดหวัง:

1
1
Fibo
Nacci
5
Fibo
13
Nacci
Fibo
55
89
FiboNacci
233
377
Fibo
Nacci
1597
Fibo
4181
Nacci
Fibo
17711
28657
FiboNacci
75025
121393
Fibo
Nacci
514229
Fibo
1346269
Nacci
Fibo
5702887
9227465
FiboNacci
24157817
39088169
Fibo
Nacci
165580141
Fibo
433494437
Nacci
Fibo
1836311903
2971215073
FiboNacci
7778742049
12586269025
Fibo
Nacci
53316291173
Fibo
139583862445
Nacci
Fibo
591286729879
956722026041
FiboNacci
2504730781961
4052739537881
Fibo
Nacci
17167680177565
Fibo
44945570212853
Nacci
Fibo
190392490709135
308061521170129
FiboNacci
806515533049393
1304969544928657
Fibo
Nacci
5527939700884757
Fibo
14472334024676221
Nacci
Fibo
61305790721611591
99194853094755497
FiboNacci
259695496911122585
420196140727489673
Fibo
Nacci
1779979416004714189
Fibo
4660046610375530309
Nacci
Fibo
19740274219868223167
31940434634990099905
FiboNacci
83621143489848422977
135301852344706746049
Fibo
Nacci

แคตตาล็อก

สแน็ค Stack โค้ดที่ด้านล่างของโพสต์นี้สร้างแคตตาล็อกจากคำตอบที่) เป็นรายการที่สั้นที่สุดของการแก้ปัญหาต่อภาษา A และ B) เป็นลีดเดอร์โดยรวม

เพื่อให้แน่ใจว่าคำตอบของคุณปรากฏขึ้นโปรดเริ่มคำตอบด้วยหัวข้อโดยใช้เทมเพลต Markdown ต่อไปนี้:

## Language Name, N bytes

ที่Nมีขนาดของส่งของคุณ หากคุณปรับปรุงคะแนนของคุณคุณสามารถเก็บคะแนนเก่าไว้ในพาดหัวโดยการตีพวกเขาผ่าน ตัวอย่างเช่น

## Ruby, <s>104</s> <s>101</s> 96 bytes

หากคุณต้องการรวมหลายตัวเลขไว้ในส่วนหัวของคุณ (เช่นเนื่องจากคะแนนของคุณคือผลรวมของไฟล์สองไฟล์หรือคุณต้องการแสดงรายการบทลงโทษการตั้งค่าสถานะของล่ามแยกต่างหาก) ตรวจสอบให้แน่ใจว่าคะแนนจริงเป็นตัวเลขสุดท้ายในส่วนหัว:

## Perl, 43 + 2 (-p flag) = 45 bytes

คุณยังสามารถตั้งชื่อภาษาให้เป็นลิงค์ซึ่งจะปรากฏในตัวอย่างข้อมูล:

## [><>](http://esolangs.org/wiki/Fish), 121 bytes

/* Configuration */

var QUESTION_ID = 63442; // Obtain this from the url
// It will be like http://XYZ.stackexchange.com/questions/QUESTION_ID/... on any question page
var ANSWER_FILTER = "!t)IWYnsLAZle2tQ3KqrVveCRJfxcRLe";
var COMMENT_FILTER = "!)Q2B_A2kjfAiU78X(md6BoYk";
var OVERRIDE_USER = 41805; // 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 "http://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 "http://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}

#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="//cdn.sstatic.net/codegolf/all.css?v=83c949450c8b">
<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>

Pyth, 37 ไบต์

ฉันวนรอบตัวเลขฟีโบนักชีแทนการสร้างไว้ล่วงหน้าเพราะมันสั้นมากที่จะทำ

K1V100|+*"Fibo"!%=+Z~KZ2*"Nacci"!%Z3Z

ลองออนไลน์

Python 2, 62 ไบต์

a=b=1;exec"print~a%2*'Fibo'+~a%3/2*'Nacci'or a;a,b=b,a+b;"*100

ไม่แตกต่างจาก FizzBuzz มาตรฐานจริงๆ

C ++ 11 metaprogramming 348 ไบต์

#include<iostream>
#define D static const unsigned long long v=
template<int L>struct F{D F<L-1>::v+F<L-2>::v;};template<>struct F<2>{D 1;};template<>struct F<1>{D 1;};template<int Z>struct S:S<Z-1>{S(){auto&s=std::cout;auto l=F<Z>::v;s<<(l%2?"":"Fibo")<<(l%3?"":"Nacci");(l%2&&l%3?s<<l:s)<<"\n";}};template<>struct S<0>{S(){}};int main(){S<100>s;}

เพราะเหตุใด มันคอมไพล์ด้วยwarning C4307: '+': integral constant overflow, ทำงานได้ดี, แต่หมายเลขฟีโบนัชชี 93+ นั้นไม่แสดงอย่างถูกต้อง (เนื่องจากล้น), ดังนั้นนี่คือรายการที่ไม่ถูกต้อง (แต่ฉันไม่สามารถชนะได้ด้วยไบต์จำนวนมาก)

Ungolfed

#include <iostream>
#define D static const unsigned long long v = 
template<int L>struct F { D F<L - 1>::v + F<L - 2>::v; };
template<>struct F<2> { D 1; };
template<>struct F<1> { D 1; };

template<int Z>struct S : S<Z - 1>
{
    S()
    {
        auto&s = std::cout;
        auto l = F<Z>::v;
        s << (l % 2 ? "" : "Fibo")
          << (l % 3 ? "" : "Nacci");
        (l % 2 && l % 3 ? s << l : s) << "\n";
    }
};

template<>struct S<0>
{
    S() { }
};

int main()
{
    S<100>s;
}

C #, 175 171 152 145 ไบต์

class c{static void Main(){for(dynamic a=1m,b=a,c=0;c++<100;b=a+(a=b))System.Console.WriteLine(a%6>0?a%2>0?a%3>0?a:"Nacci":"Fibo":"FiboNacci");}}

ไม่มีการบีบอัด:

class c {
    static void Main()
    {
        for (dynamic a = 1m, b = a, c = 0; c++ < 100; b = a + (a = b))
            System.Console.WriteLine(a%6>0?a%2>0?a%3>0?a:"Nacci":"Fibo":"FiboNacci");
    }
}

Oracle SQL, 212 ไบต์

ไม่ใช่ภาษากอล์ฟ แต่ฉันต้องลอง ...

การต่อแถวทั้งหมดกับ\n:

WITH F(R,P,C)AS(SELECT 1,0,1 FROM DUAL UNION ALL SELECT R+1,C,P+C FROM F WHERE R<100)SELECT LISTAGG(NVL(DECODE(MOD(C,2),0,'Fibo')||DECODE(MOD(C,3),0,'Nacci'),''||C),CHR(13))WITHIN GROUP(ORDER BY R)||CHR(13)FROM F

SQLFIDDLE

หรือมีหนึ่งรายการจากลำดับต่อแถว (162 ไบต์):

WITH F(R,P,C)AS(SELECT 1,0,1 FROM DUAL UNION ALL SELECT R+1,C,P+C FROM F WHERE R<100)SELECT NVL(DECODE(MOD(C,2),0,'Fibo')||DECODE(MOD(C,3),0,'Nacci'),''||C)FROM F

ShapeScript , 83 ไบต์

11'1?1?+'77*2**!""'"%r
"@+@0?2%1<"Fibo"*1?3%1<"Nacci"*+0?_0>"@"*!#%'52*0?**!"'"$""~

ลองออนไลน์!

Java, 407 398 351 308 ไบต์

นำมารวมกันด้วยความช่วยเหลือจาก @Geobits และ @ SamYonnou

กระจายคำ: Verbose == Java

import java.math.*;class A{public static void main(String[]w){BigInteger a=BigInteger.ZERO,b=a.flipBit(0),c,z=a,t=a.flipBit(1),h=t.flipBit(0),s=t.flipBit(2);for(int i=0;i<100;i++){System.out.println(b.mod(s).equals(z)?"FiboNacci":b.mod(t).equals(z)?"Fibo":b.mod(h).equals(z)?"Nacci":b);c=a;a=b;b=c.add(b);}}}

เวอร์ชันที่ไม่ถูกปรับแต่ง:

import java.math.*;

class A
{
  public static void main(String[]w)
  {
    BigInteger a=BigInteger.ZERO,b=a.flipBit(0),c,z=a,t=a.flipBit(1),h=t.flipBit(0),s=t.flipBit‌​(2);
    for(int i=1;i<=100;i++) {
      System.out.println(b.mod(s).equals(z)?"FiboNacci":b.mod(t).equals‌​(z)?"Fibo":b.mod(h).equals(z)?"Nacci":b);                
      c=a;a=b;b=c.add(b);
    }
  }
}

Mathematica, 80 ไบต์

a=b_/;#∣b&;Print/@(Fibonacci@Range@100/.{%@6->FiboNacci,%@2->Fibo,%@3->Nacci})

การปรับโซลูชัน FizzBuzz ที่เก่ากว่าของฉัน

Ruby, 71 66 ไบต์

a=b=1;100.times{puts [b,f='Fibo',n='Nacci',f,b,f+n][~b%6];a=b+b=a}

ungolfed:

a = b = 1 #starting values
100.times{
  # create an array, and selects a value depending on the current number
  puts([b, 'Fibo', 'Nacci', 'Fibo', b, 'FiboNacci'][~b%6])
  a=b+b=a # magic
}

> <> , 116 ไบต์

01:n1&61>.
ao:@+:v
vv?%2:<
">:3%?vv^16<
o>:3%?!v~v<&
bov"ci"< 6 ;
io"   n  6~?
Focv1&<   o=
"o">+:aa*!o^
>^>"aN"ooo^

ลองออนไลน์!

Pyth, 39

Vtu+Gs>2G99U2|+*!%N2"Fibo"*!%N3"Nacci"N

คล้ายกับโซลูชัน fizzbuzz มาตรฐานเพียงแค่มีตัวกำเนิดสำหรับหมายเลขฟีโบนักชี

ลองที่นี่

C #, 498 392 320 ไบต์

ฉันแค่อยากจะทำสิ่งนี้กับ linq ไม่ดีฉันต้องเขียนฟังก์ชันผลรวมของตัวเองสำหรับ BigInteger ที่ฆ่ามันจริง ๆ :-(

using System.Linq;using System.Numerics;using System.Collections.Generic;static class a{static void Main(){var f=new List<BigInteger>(){1,1};while(f.Count<100)f.Add(f.Skip(f.Count-2).Take(2).Aggregate((a,b)=>b+a));f.ForEach(x=>{System.Console.WriteLine(x%6==0?"FiboNacci":x%2==0?"Fibo":x%3==0?"Nacci":x.ToString());});}}

Ungolfed:

using System.Linq;
using System.Numerics;
using System.Collections.Generic;
static class a
{
    static void Main()
    {
        var f=new List<BigInteger>(){1,1};
        while(f.Count<100)
            f.Add(f.Skip(f.Count-2).Take(2).Aggregate((a,b)=>b+a));
        f.ForEach(x=>
        {
            System.Console.WriteLine(x%6==0?"FiboNacci":x%2==0?"Fibo":x%3==0?"Nacci":x.ToString());
        });
    }
}

แก้ไข: ลดลงถึง 320 ไบต์ด้วย LegionMammal978 สำหรับคำแนะนำโดยรวมและขอบคุณคำตอบ C # ของ olegz สำหรับคำแนะนำสั้น ๆ ของ x% 6 สำหรับ x% 6 สำหรับ X% 2 && x% 3 เช่นเดียวกับการใช้ตัวดำเนินการประกอบในคำสั่ง WriteLine เดียว

Python 2, 171 121 ไบต์

"กำลังใกล้เข้ามา"

a=[1,1]
print 1
for _ in"q"*99:print[a[1],"Fibo","Nacci","FiboNacci"][a.append(a.pop(0)+a[0])or(1-a[0]%2)+(a[0]%3<1)*2]

Javascript, 93 90 86 Bytes

for(a=0,b=1,i=100;i--;a=[b,b=a+b][0])console.log((b%2?'':'Fibo')+(b%3?'':'Nacci')||b)

Python 2, 100 ไบต์

x=[1,1]
exec"x+=[x[-1]+x[-2]];"*98
print"\n".join(["Fibo"*(i%2==0)+"Nacci"*(i%3==0)or`i`for i in x])

สำหรับตัวเลขขนาดใหญ่ให้เพิ่ม a Lไปยังท้ายสุดเพื่อแสดงว่าเป็นตัวเลขที่ยาว

หากเป็นปัญหานี่คือวิธีแก้ปัญหา 104 ไบต์

x=[1,1]
exec"x+=[x[-1]+x[-2]];"*98
print"\n".join(["Fibo"*(i%2==0)+"Nacci"*(i%3==0)or str(i)for i in x])

Javascript (ES6), 137 134 ไบต์

g=x=>(a=[1,1],f=(x)=>(a[x]=y=a[x-1]+a[x-2],(y%2&&y%3?y:(!(y%2)?'Fibo':'')+(!(y%3)?'Nacci':''))+'\n'+((++x<99)?f(x):'')),'1\n1\n'+f(2))

ฟังก์ชั่นวนซ้ำที่คำนวณ fibonnacci วางไว้ในอาร์เรย์จากนั้นส่งออก Fibo, Nacci หรือตัวเลขแล้วเรียกตัวเองเพื่อคำนวณถัดไปจนถึง 100

มันหยุดที่ 73 เพราะความแม่นยำของตัวเลขจาวาสคริปต์ วิธีเดียวที่จะหลีกเลี่ยงสิ่งนั้นก็คือการเพิ่มการคำนวณบิตของฉันเอง

QBasic, 144 141 ไบต์

ไม่เล็กโดยเฉพาะ แต่มันเต้น C ++ และ C #

r=1:FOR i=1 TO 046:a$="":q=p+r
IF q MOD 2=0 THEN a$="Fibo"
IF q MOD 3=0 THEN a$=a$+"Nacci"
IF a$="" THEN a$=STR$(q)
PRINT a$:r=p:p=q:NEXT

ไม่มีการประกาศใช้:เป็นไปได้เพราะมันเป็น 1 CRLFไบต์มีราคาถูกกว่า นำหน้า 0 ไปที่ตัวนับลูป: พื้นฐานจะล้นบนอักขระ Fibonacci ลำดับที่ 47 ดังนั้นจึงต้องชดเชยไบต์พิเศษที่ควรมี

แก้ไข: Neil บันทึกฉัน 3 ไบต์: 141 ไบต์

ภาษา Wolfram, 84 ไบต์

Fibonacciชนิดของการโกงแน่นอนเพราะของที่สร้างขึ้นใน

t=Fibonacci@Range@100;g=(t[[#;;;;#]]=#2)&;g[3,Fibo]g[4,Nacci]g[12,FiboNacci]Print/@t

ตัวอย่างคำสั่งเพื่อเรียกใช้สคริปต์

/Applications/Mathematica.app/Contents/MacOS/WolframKernel -script ~/Desktop/fibo.wl

Perl, 74 ไบต์

map{print+(Fibo)[$_%2].(Nacci)[$_%3]||$_ for$a+=$b||1,$b+=$a}1..50

ต้องใช้ตัวเลือกบรรทัดคำสั่งต่อไปนี้: -lMbigintนับเป็น 8

ตัวอย่างการใช้งาน

$ perl -lMbigint fibo-nacci.pl

Perl, 79 ไบต์

use bigint;map{print+(Fibo)[$_%2].(Nacci)[$_%3]||$_,$/for$a+=$b||1,$b+=$a}1..50

เหมือนกับข้างต้นโดยไม่ต้องใช้ตัวเลือกบรรทัดคำสั่งใด ๆ

GolfScript, 47 ไบต์

100,{1.@{.@+}*;..2%!'Fibo'*\3%!'Nacci'*+\or}%n*

คำอธิบาย

100,            # push 0..99
{               # map
  1.@           # push 1 twice, rotate counting var to the top
  {             # apply that many times
    .@+         # copy the top, rotate and add
                # if the stack is [a b], this produces: [a b b] -> [b b a] -> [b b+a]
  }*
  ;..           # discard the top, duplicate twice
  2%!'Fibo'*\   # divisible by 2 ? 'Fibo' : ''
  3%!'Nacci'*   # divisible by 3 ? 'Nacci' : ''
  +\or          # concatenate, if empty use the numeric value instead
}%
n*              # join all with a newline

PARI / GP, 76 73 ไบต์

ที่บันทึกไว้สามไบต์มารยาทของมิทช์ชวาร์ตซ์

for(n=b=!a=1,99,b=a+a=b;print(if(b%2,"",Fibo)if(b%3,if(b%2,b,""),Nacci)))

ตัวอย่างการใช้งาน

$ gp -qf < fibo-nacci.gp

> <>, 128 119 ไบต์

111&v       >:3%0=?v>  v
?;ao>:2%0=?v :3%0=?v :n>:}+&:1+&aa*=
            ^oooo < ^ooooo <
           >"obiF"^>"iccaN"^

ฉันขโมยขโมยโปรแกรม FizzBuzz ที่มีอยู่เดิมอย่างไร้ยางอายไปแล้วและดัดแปลงมันให้ทำงานกับลำดับ Fibo Nacci มันออกตัวเลขตลอดไป ตอนนี้มันได้รับการแก้ไขคือมันจะส่งออกเพียง 100 หมายเลข ลองมันนี่

Pyth, 51 ไบต์

V.Wn100lHaZ+@Z_1@Z_2[1 1)|+*"Fibo"}2JPN*"Nacci"}3JN

สร้างลำดับ Fibonacci จากนั้นตัดสินใจว่าจะพิมพ์อะไร

                    [1 1)                           - H = [1,1]
  Wn100lH                                           - While len(H)!=100 
         aZ+@Z_1@Z_2                                - H.append(H[-1]+H[-2])
V.                                                  - For N in H:
                                    JPN             - Set J to the prime factorization of H
                           *"Fibo"}2J               - If there is a 2 in the factorization, add "Fibo" to a string
                                       *"Nacci"}3J  - If there is a 3 in the factorization, add "Nacci" to a string
                          +                         - Join them together
                         |                        N - If the string isn't empty (If it isn't divisible by 2 or 3), print N
                                                    - Else print the string

ในการทดสอบให้ลองสิ่งนี้ (ทำเพียง 20 หมายเลขแรกเท่านั้น)

V.Wn20lHaZ+@Z_1@Z_2[1 1)|+*"Fibo"}2JPN*"Nacci"}3JN

Clojure, 127 ไบต์

(def f(lazy-cat[1 1](map +' f(rest f))))(doseq[x(take 100 f)](println(str(if(even? x)'Fibo)({0'Nacci}(mod x 3)(if(odd? x)x)))))

Ungolfed:

(def fib (lazy-cat [1 1] (map +' fib (rest fib))))

(doseq [x (take 100 fib)]
  (println (str (if (even? x) 'Fibo)
                ({0 'Nacci}
                 (mod x 3)
                 (if (odd? x) x)))))

เทคนิคบางอย่างที่ใช้:

• สิ่งเล็ก ๆ น้อย ๆdefที่ทำให้ลำดับฟีโบนักชีนั้นถูกขโมยไปจาก Konrad Garusอย่างไร้ยางอาย
• strสามารถใช้สัญลักษณ์เป็นอินพุต บ้าจริงมั้ย
• แผนที่และค่าเริ่มต้นเป็นวิธีที่สั้นที่สุดในการเขียนifในบางกรณี

CJam, 44 ไบต์

XX{_2$+}98*]{_B4bf%:!"Fibo Nacci"S/.*s\e|N}/

ลองใช้ออนไลน์ในล่าม CJam

dc, 100 89 79 ไบต์

[sG[]]sx[dn]s01df[sbdlb+lbrdd2%d[Fibo]r0!=xnr3%d[Nacci]r0!=xn*0!=0APzZ3>o]dsox

แรงบันดาลใจจากhttp://c2.com/cgi/wiki?DeeCee

Javascript (ES2015), 99 ไบต์

f=n=>n<3?1:f(n-1)+f(n-2);for(i=0;i<100;)console.log((f(++i)%2?'':'Fibo')+(f(i)%3?'':'Nacci')||f(i))

Ungolfed:

// fibonacci function
var fibonacci = (n) => n < 3 ? 1 : fibonacci(n-1) + fibonacci(n-2) // (implicit return)

for (var i = 0; i<100;) {
  var output = fibonacci(++i) % 2 !== 0 ? '' : 'Fibo';
  output += fibonacci(i) % 3 !== 0 ? '' : 'Nacci';
  console.log(output || fibonacci(i));
}

F #, 202 163 149 bytes

Seq.unfold(fun(a,b)->printfn"%s"(a%6m|>function|0m->"FiboNacci"|2m|4m->"Fibo"|3m->"Nacci"|_->string a);Some(1,(b,a+b)))(1m,1m)|>Seq.take 100|>Seq.sum

นี่เป็นไฟล์ FSX (สคริปต์ F #)

PHP, 75 ไบต์

<?for(;4e20>$b=bcadd($a,$a=$b)?:1;)echo[Fibo][++$i%3].[Nacci][$i%4]?:$b,~õ;

การแข่งขันที่น่าแปลกใจ ต้องการ PHP v5.5 ขึ้นไป ฉันถือว่าการตั้งค่าเริ่มต้นเนื่องจากไม่มี. ini (คุณอาจปิดการใช้งาน. ini ท้องถิ่นของคุณด้วย-nตัวเลือก)

ตัวอย่างการใช้งาน

$ php -n fibo-nacci.php

ภาษาโปรล็อก 182 ไบต์

f(A,B,X):-X<100,C is A+B,Z is X+1,(Y is B mod 6,Y=0->writeln('FiboNacci');(Y is B mod 2,Y=0->writeln('Fibo');(Y is B mod 3,Y=0->writeln('Nacci');writeln(B)))),f(B,C,Z).
p:-f(0,1,0).

ลองออนไลน์ได้ที่นี่
เพื่อเรียกใช้โปรแกรมใช้แบบสอบถาม:

p.