ফিবোনাচি নম্বরগুলির মধ্যে

Question

চ্যালেঞ্জ

একটি পূর্ণসংখ্যার ইনপুট দেওয়া হয়েছে, প্রথম ফিবোনাচি নম্বরটি ফিরিয়ে দিন যা সেই ফিবোনাচি সংখ্যার সূচকের সাথে নিজের মধ্যে ইনপুট রয়েছে (আপনাকে সূচকগুলি 0 বা 1 এ শুরু হয় - তবে আপনার উত্তরটিতে কোনটি উল্লেখ করুন)। উদাহরণস্বরূপ, যদি 12 ইনপুট দেওয়া, প্রোগ্রাম ফিরে আসবে 26: 121393যেমন 12 নম্বর (মধ্যে পাওয়া যায় 12 1393) এবং ফিবানচি সংখ্যার সূচক 26 হয়।

উদাহরণ

ইনপুট দেওয়া হয়েছে:

45

আপনার প্রোগ্রাম আউটপুট করা উচিত:

33: 3524578

ইনপুট:

72

আউটপুট:

54: 86267571272

ইনপুট:

0

আউটপুট:

0: 0

ইনপুট:

144

আউটপুট:

12: 144

স্কোরিং

এটি কোড-গল্ফ , তাই প্রতিটি ভাষার সংক্ষিপ্ত উত্তর জিততে পারে।

Comments

আমরা কি এর পরিবর্তে 1-ইনডেক্সিং চয়ন করতে পারি?

— মিঃ এক্সকডার

সদৃশ নয়, তবে এই চ্যালেঞ্জের খুব কাছে ।

— লিন

ফিবোনাকির ক্রমটি স্বাভাবিক কিনা তা নিয়ে গণিতে থ্রোড (এই প্রশ্নটি এটি অনুমান করে)।

— অ্যাডমবর্কবার্ক

আমাদের কি পৃথককারী হিসাবে কোলন ব্যবহার করতে হবে? আমরা কি একটি অ্যারে / তালিকা আউটপুট করতে পারি?

— শেগি

গণিত.এস.এ সম্পর্কিত সম্পর্কিত প্রশ্নটির কোনও এক্স-এর সমাধান রয়েছে কিনা তা নিয়ে

— জেএডি

Answer 1

জেলি , 10 বাইট

0ÆḞ©w¥1#;®

এটি অনলাইন চেষ্টা করুন!

কিভাবে এটা কাজ করে

0ÆḞ©w¥1#;®  Main link. Argument: n

0           Set the return value to 0.
       #    Call the second link to the left with arguments k = 0, 1, 2, ... until
      1     one match has been found.
     ¥        Combine the two links to the left into a dyadich chain.
 ÆḞ             Compute the k-th Fibonacci number...
   ©              and copy it to the register.
    w           Yield 1 if n occurs inside the Fibonacci number, 0 otherwise.
         ®  Yield the value stored in the register.
        ;   Concatenate the index and the Fibonacci number.

Comments

আপনি আমার মত একই কৌশল ব্যবহার করেছেন। :)

— এরিক আউটগল্ফার

পছন্দ করেছেন

— ডেনিস

এটি পোস্ট করেনি, তবে সাধারণত আমিও ব্যবহার করি না D...

— এরিক দ্য আউটগোল্ফার

Answer 2

পাইথন 2 , 56 বাইট

f=lambda n,i=0,a=0,b=1:`n`in`a`and(i,a)or f(n,i+1,b,a+b)

এটি অনলাইন চেষ্টা করুন!

Answer 3

পার্ল 6 , 30 বাইট

{first :kv,/$_/,(0,1,*+*...*)}

এটি অনলাইন চেষ্টা করুন!

firstএমন একটি ক্রিয়া যা একটি ক্রমটির প্রথম উপাদানটি দেয় যা একটি পরীক্ষায় পাস করে, এবং এটি স্বাচ্ছন্দ্যে একটি :kvবিশেষণ নেয় যা এটিকে কী (সূচক) এবং মিলের মান উভয়ই ফিরিয়ে দিতে বলে tells

Comments

ধরে নেওয়া যাক আপনি একটি পেয়ার অবজেক্ট ফিরিয়ে দিতে পারবেন , আপনি এর :pপরিবর্তে অ্যাডভার্টটি ব্যবহার করতে পারেন :kv।

— ব্র্যাড গিলবার্ট 2

Answer 4

ব্যাচ, 104 বাইট

@set/an=x=0,y=1
:l
@call set t=%%x:%1=%%
@if "%t%"=="%x%" set/an+=1,x+=y,y=x-y&goto l
@echo %n%: %x%

n=0..45ব্যাচের পূর্ণসংখ্যার গাণিতিকের সীমাবদ্ধতার কারণে কাজ করে । ব্যাখ্যা: ব্যাচ নেই একটি বিল্ট-ইন ম্যাচ পরীক্ষা, কিন্তু এটা একটি অপারেটর আছে যা অন্য আক্ষরিক স্ট্রিং সঙ্গে আক্ষরিক স্ট্রিং প্রতিস্থাপন করতে পারেন আছে, তাই উদাহরণস্বরূপ if "%s:l=%"=="%s%"সত্য হলে %s%খালি না থাকে কিন্তু ধারণ করে না l। callএরপরে ব্যবহারটি হ'ল %1প্রতিস্থাপন অপারেটরে (ইনপুট) প্রতিস্থাপনের কৌশল, তবে callনিয়ন্ত্রণ ফ্লো স্টেটমেন্টগুলিতে কাজ করে না সুতরাং মধ্যবর্তী অস্থায়ী অ্যাসাইনমেন্ট প্রয়োজন।

Answer 5

জেলি , 15 বাইট

³DẇÆḞ¬
0‘Ç¿µ,ÆḞ

এটি অনলাইন চেষ্টা করুন!

Comments

43 সেকেন্ড খুব দেরী

— নোহ ক্রিশ্চিনো

Answer 6

জাভাস্ক্রিপ্ট ES6, 68 টি অক্ষর

n=>eval('for(q=x=0,y=1;!`${x}`.match(n);++q)[x,y]=[y,x+y];q+": "+x')

টেস্ট:

f=n=>eval('for(q=x=0,y=1;!`${x}`.match(n);++q)[x,y]=[y,x+y];q+": "+x')
console.log([45,72,0,144].map(f).join`
`)

Answer 7

পাইথন 3, 76 বাইট

f=lambda n,l=[1,0]:str(n)in str(l[1])and(len(l)-2,l[1])or f(n,[l[0]+l[1]]+l)

Answer 8

ইমোজিকোড , 133 বাইট

🐖🔢🍇🍮a 0🍮b 1🍮i 0🔁☁️🔍🔡a 10🔡🐕10🍇🍮b➕a b🍮a➖b a🍮i➕1i🍉😀🔡i 10😀🔡a 10🍉

এটি অনলাইন চেষ্টা করুন!

Answer 9

ডায়ালগ এপিএল, 39 বাইট

{⍺←0⋄∨/(⍕⍵)⍷⍕x←1∧+∘÷/0,⍺/1:⍺,x⋄(1+⍺)∇⍵}

লেজ পুনরাবৃত্তি ব্যবহার। Attempt২ চেষ্টা করবেন না, এটি আপনার মেশিনটি ভেঙে দেবে কারণ এটি প্রতিটি কলটিতে ফিনোনাচি পুনরায় গণনা করে।

এটি অনলাইন চেষ্টা করুন!

Answer 10

গণিত, 119 বাইট

1-ইন্ডেক্স

(T=ToString;If[(h=#)==0,"0:0",a=#&@@Select[k=T/@(Array[Fibonacci,9#]),StringContainsQ[#,T@h]&];Min@Position[k,a]":"a])&

এটি অনলাইন চেষ্টা করুন!

Answer 11

আসলে , 13 বাইট

╗1⌠F$╜@c⌡╓i;F

এটি অনলাইন চেষ্টা করুন!

ব্যাখ্যা:

╗1⌠F$╜@c⌡╓i;F
╗              save input in register 0
 1⌠F$╜@c⌡╓     smallest non-negative integer n where the following function returns truthy:
   F$            nth Fibonacci number, stringified
     ╜@c         count occurrences of input
          i;F  flatten the list, duplicate the index, and push the Fibonacci number at that index

Answer 12

আর, 65 বাইট

f=function(x,n=1,a=1,b=0)`if`(grepl(x,b),c(b,n-1),f(x,n+1,a+b,a))

ফিবনুমস জেনারেট করার জন্য স্ট্যান্ডার্ড পুনরাবৃত্তি, তবে ভিত্তি করে টার্মিনেট পরিবর্তে পরিবর্তিত হয় n, যখন রেজেক্সের সাথে bমেলে x। এটি আসলে আশ্চর্যজনকভাবে ভাল কাজ করে। আমি ধরে নিয়েছি যে সংখ্যার সাথে রেজেেক্স ব্যবহার করার জন্য তাদের স্ট্রিংয়ে রূপান্তর করতে প্রচুর ঝামেলা দরকার হবে, তবে এটি প্রয়োজনীয় মনে হয় না :)

এই, 1 ধাপে পুনরাবৃত্তির অতিরিক্ত বাড়াবাড়ি করে ফেলা উপর চেক করে গেছে bপরিবর্তে aএবং তারপর substracting 1থেকে n। এটি f(0)সঠিকভাবে কাজ করে তা নিশ্চিত করা ।

1001ম্যাকিন্টের কারণে ইনপুট ছাড়িয়ে গেলে এটি বেশিরভাগ মানের জন্য ব্যর্থ হয় । আমরা যদি প্রতিস্থাপন করি aএবং বড় bচিহ্নগুলির জন্য, এটি উচ্চতর ইনপুটগুলির জন্য কাজ করে (বর্তমান পরীক্ষাটি এখানে রয়েছে x = 11451)

f=function(x,n=1,a=gmp::as.bigz(1),b=gmp::as.bigz(0))`if`(grepl(x,b),c(b,n-1),f(x,n+1,a+b,a))

Answer 13

জাভাস্ক্রিপ্ট ES6, 79 78 75 বাইট

-1 বাইট স্টেপ হেন

নীল দ্বারা -3 বাইট

i=>eval('d=a=b=1;while(!~(a+"").indexOf(i)){c=b;b=a+b;a=c;‌​d++};d+": "+a')

Comments

আপনি বাইট সংরক্ষণ করার eval()পরিবর্তে ব্যবহার করতে পারেন { return}এবং t=যেহেতু আপনি পুনরাবৃত্তি ব্যবহার করছেন না আপনি তা বাদ দিতে পারেন :i=>eval('d=a=b=1;while(!~(a+"").indexOf(i+""){c=b;b=a+b;a=c;d++};d+": "+a')

— স্টিফেন

String.prototype.indexOfএর পরামিতিটি স্বয়ংক্রিয়ভাবে স্ট্রিংয়ে রূপান্তরিত হয়, এটি স্পষ্টভাবে করার দরকার নেই। এছাড়াও আপনি @ স্টেপহেনের টাইপগুলি অনুলিপি করেছেন বলে মনে হচ্ছে (আপনার (s এর চেয়ে বেশি )এস রয়েছে)।

— নিল

@ নীল আমার খারাপ কাজ করেছে

— স্টিফেন

Answer 14

সি # (.নেট কোর) , 99 বাইট

n=>{int a=0,b=1,c,d=0;for(;b.ToString().IndexOf(n.ToString())<0;c=a,a=b,b+=c,d++);return d+": "+b;}

এটি অনলাইন চেষ্টা করুন!

পূর্ণসংখ্যা হিসাবে ইনপুট নেয়, আউটপুট সহ একটি স্ট্রিং প্রদান করে।

Answer 15

হাস্কেল , 84 বাইট

import Data.List
f=0:scanl(+)1f
g n=filter(isInfixOf(show n).show.snd)(zip[0..]f)!!0

এটি অনলাইন চেষ্টা করুন!

Answer 16

পিএইচপি, 80 বাইট

<?php for($a=1,$b=$n=0;strpos($a=-$a+$b=$a+$b,"$argv[1]")<-1;$n++);echo"$n: $a";

স্ক্রিপ্টটি বেশ সোজাসাপ্টা, কেবলমাত্র ক্রমটির বর্তমান এবং পরবর্তী শর্তাদি $ a এবং $ b জুড়ে সংরক্ষণ করে। 0 এর 0 তম মেয়াদের জন্য অনুমতি দেওয়ার জন্য, প্রথমে and a এবং $ b যথাক্রমে -1 তম (1) এবং 0 তম শব্দ (0) এর জন্য নির্ধারিত মানগুলি নির্ধারিত হয়।

উভয় মানই একক অভিব্যক্তিতে পুনরায় গণনা করা হয়, যা একটিতে দুটি কার্য; কার্যকরভাবে:

$b = $a + $b; // The next term is the sum of the two previous terms
$a = $b - $a; // The current term is now recalculated from the next and the previous

যদি ইনপুট মানটি শুরুর সাথে মিলে যায় তবে স্ট্রপোজ () ফাংশনটি 0 (যা মিথ্যা এবং মিথ্যা নেতিবাচক দেয়) ফিরে আসবে, তবে পিএইচপি-র ওয়ান্ডারফুল ওয়ার্ল্ডে যদিও false == 0সত্য এবং false < 0মিথ্যা, false < -1সত্য! এবং সুতরাং, এই তুলনাটি ব্যবহার করে তুলনা করে পাঁচটি বাইট সাশ্রয় করে !==false।

Answer 17

জাপট , 17 14 বাইট

@ জাস্টিনমারিনারে ধন্যবাদ 3 বাইট সংরক্ষণ করা হয়েছে

_ŬøU}a@[XMgX]

এটি অনলাইন চেষ্টা করুন!

ব্যাখ্যা

_ŬøU}a@[XMgX]      Implicit: U = input integer
      a@            For each integer X in [0, 1, 2, ...]:
        [XMgX]        take [X, Fibonacci(X)].
_    }a             Return the first pair where
 Å                    all but the first item
  ¬                   joined on the empty string (simply returns Fibonacci(X) as a string)
   øU                 contains U.
                    Implicit: output result of last expression

Comments

14 বাইট: _ŬøU}a@[XMgX]। s1 q শেষ আইটেমটি পেতে ব্যবহার করা হচ্ছে, যা<space>s

— জাস্টিন মেরিনার

@ জাস্টিনমারিনার এটি ... এটি প্রতিভা :-)

— ইটিএইচ প্রডাকশন

Answer 18

পিএইচপি , 163 141 বাইট

<?php $x=fgets(STDIN);$b=[0,1];if($x<1)$b=[0];for(;($c=count($b)-1)&&strpos($b[$c],$x)===false;){$b[]=$b[$c]+$b[$c-1];}die($c.': '.$b[$c]);?>

এটি অনলাইন চেষ্টা করুন!

ব্যবহার $b[0] = 0;এবং $b[1] = 1;fib ক্রম শুরু করার জন্য

Answer 19

পার্ল 5 , 67 + 1 (-পি) = 68 বাইট

@f=(0,1);push@f,$f[-1]+$f[-2]while($f[-2]!~/$_/);$_=--$#f." $f[-1]"

এটি অনলাইন চেষ্টা করুন!

Answer 20

পিএইচপি , 93 বাইট

for($a[0]=$a[1]++;!strpos(" $a[$i]","$argv[1]");$a[$i+2]=$a[$i+1]+$a[$i++]);echo"$i: $a[$i]";

ফিবোনাচি সিকোয়েন্সের মাধ্যমে সরল লুপ। আমাদের ইনপুট নম্বরটির জন্য চেক করা হয়েছে strpos(" $a[$i]","$argv[1]"); অতিরিক্ত স্থান হ'ল কারণ strposযদি 'সুই' স্ট্রিংয়ের শুরুতে পাওয়া যায় তবে মিথ্যা-ওয়াই ফিরে আসবে। আমরা শেষ করি যদি ইনপুট পাওয়া যায় এবং প্রয়োজনীয় স্ট্রিং প্রতিধ্বনি হয়।

এটি অনলাইন চেষ্টা করুন!

Answer 21

কমন লিস্প, 105 বাইট

(lambda(x)(do((a 0 b)(b 1(+ a b))(i 0(1+ i)))((search(#1=format()"~a"x)(#1#()"~a"a))(#1#()"~a: ~a"i a))))

এটি অনলাইন চেষ্টা করুন!