Codegolf - В Числах Фибоначчи

Вызов

Учитывая целочисленный ввод, верните первое число Фибоначчи, которое содержит входные данные внутри себя, вместе с индексом этого числа Фибоначчи (индексы, начинающиеся с 0 или 1 - на ваше усмотрение, но укажите, какие именно в своем ответе). Например, если ввести число 12, программа вернет

 
 
 
 
 
 
 
 12: 144
 
 
 
 
 
 
 
 

Примеры

Учитывая ввод:

Ваша программа должна вывести:

Вход:

Выход:

Вход:

Выход:

Вход:

Выход:

Подсчет очков

Это , поэтому побеждает самый короткий ответ на каждом языке.

#код-гольф #код-гольф #фибоначчи

Желе, 10 байт

 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 (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))))
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

Попробуйте онлайн!

Как это работает

Питон 2, 56 байт

Попробуйте онлайн!

Перл 6, 30 байт

Попробуйте онлайн!

@f=(0,1);push@f,$f[-1]+$f[-2]while($f[-2]!~/$_/);$_=--$#f." $f[-1]" is a function that returns the first element of a sequence that passes a test, and it conveniently takes a $b[1] = 1; наречие, которое указывает ему возвращать как ключ (индекс), так и соответствующее значение.

Пакетный, 104 байта

Работает для <?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]);?> due to the limited range of Batch's integer arithmetic. Explanation: Batch doesn't have a built-in match test, but it does have an operator that can replace literal strings with other literal strings, so for example _Ŭø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 верно, если _ŬøU}a@[XMgX] is not empty but does not contain !==false . Использование false < -1 is then a trick to substitute false < 0 (вход) в оператор замены, однако false == 0 doesn't work on control flow statements so an intermediate temporary assignment is necessary.

Желе, 15 байт

Попробуйте онлайн!

Javascript ES6, 68 символов

Тест:

Питон 3, 76 байт

Эмодзикод, 133 байта

Попробуйте онлайн!

Диалог APL, 39 байт

Использование хвостовой рекурсии. Не пытайтесь 72, это сломает вашу машину, потому что она пересчитывает Фибоначчи при каждом вызове.

Попробуйте онлайн!

Математика, 119 байт

1-индексированный

Попробуйте онлайн!

На самом деле, 13 байт

Попробуйте онлайн!

Объяснение:

Р, 65 байт

Стандартная рекурсия для генерации фибнумов, но вместо завершения на основе f(0) , terminates when n соответствует регулярному выражению 1 . This actually works surprisingly well. I assumed that using regex with numerics would require a lot of hassle converting them to strings, but that doesn't seem to be necessary :)

Это также должно пропустить рекурсию на 1 шаг, проверив a instead of b а затем вычитание x from b . Это чтобы убедиться n works properly.

Это не работает для большинства значений, когда входные данные превышают f=function(x,n=1,a=1,b=0)`if`(grepl(x,b),c(b,n-1),f(x,n+1,a+b,a)) , because of maxint. If we replace ╗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 и ╗1⌠F$╜@c⌡╓i;F for bigints, this works for higher inputs (current testing is at (T=ToString;If[(h=#)==0,"0:0",a=#&@@Select[k=T/@(Array[Fibonacci,9#]),StringContainsQ[#,T@h]&];Min@Position[k,a]":"a])& )

JavaScript ES6, 79 78 75 байт

-1 байт по Степ Хен

-3 байта Нил

С# (.NET Core), 99 байт

Попробуйте онлайн!

Принимает входные данные как целое число и возвращает строку с выходными данными.

Хаскелл, 84 байта

Попробуйте онлайн!

PHP, 80 байт

Сценарий довольно прост: он просто сохраняет текущий и следующий члены последовательности в $a и $b. Чтобы учесть 0-й член из 0, $a и $b изначально присваиваются значения для -1-го члена (1) и 0-го члена (0) соответственно.

Оба значения пересчитываются в одном выражении, которое представляет собой два присваивания в одном; эффективно:

Если входное значение соответствует началу термина, функция strpos() вернет 0 (что является ложным и даст ложноотрицательный результат), но в чудесном мире PHP, хотя call is true and %1 ложно, call is true! And so, using this comparison saves five bytes compared to l .

Япт, 17 14 байт

Сэкономлено 3 байта благодаря @JustinMariner.

Попробуйте онлайн!

Объяснение

PHP, 163 141 байт

Попробуйте онлайн!

Использование @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% and :kv для начала последовательности Фибо

Перл 5, 67 + 1 (-p) = 68 байт

Попробуйте онлайн!

PHP, 93 байта

Простой цикл по последовательности Фибоначчи. Проверка нашего входного номера выполняется в f=lambda n,i=0,a=0,b=1:`n`in`a`and(i,a)or f(n,i+1,b,a+b) ; the extra space is because 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. вернет false-y, если «игла» находится в начале строки. Мы завершаем работу, если входные данные найдены, и выводим требуемую строку.

Попробуйте онлайн!

Общий Лисп, 105 байт

Попробуйте онлайн!