Codegolf - Показатели Фибоначчи

В этом задании вам нужно вывести результат суммы некоторых чисел. Что это за цифры? Ну, вам даны входные данные, (

 
 
 Input: (1, 2)
Processing: 1**1 + 2**1
Output: 3

Input: (4, 8)
Processing: 4**1 + 5**1 + 6**2 + 7**3 + 8**5
Output: 33156

Input: (-1, 2)
Processing: -1**1 + 0**1 + 1**2 + 2**3
Output: 8

Input: (-4, -1)
Processing: -4**1 + -3**1 + -2**2 + -1**3
Output: -4
 
 
 

Учитывая, что первое число Фибоначчи представлено формулой a != b , the formula is:

Ввод, обработка, вывод

Чтобы прояснить вышеизложенное, вот несколько тестовых примеров, обработка входных данных и ожидаемые выходные данные:

Правила

• Стандартные лазейки не допускаются

• Экспоненты должны быть упорядочены в соответствии с рядом Фибоначчи.

• Код должен работать для приведенных выше тестовых случаев

• Необходимо вернуть только вывод

Критерии победы

Самый короткий код выигрывает!

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

Mathematica, 38 байт 37 байт 31 байт

 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
  v          # for y in...
Ÿ           # [a, ..., b] (implicit input)

m    # push...

y         # current item in list

m    # to the power of...

Åf     # the...

N>       # current index in list...

Åf     # th Fibonacci number

}   # end loop

O  # push sum(stack)

# implicit output
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

Это всего лишь ответ Rahnema1, перенесенный в Mathematica. Ниже мое оригинальное решение:

Объяснение:

b represents the sequence of all the arguments, ŸvyN>Åfm}O представляет первый аргумент, òV ËpMgEÄ represents the second argument. When called with two arguments -x и $e=1;$args[0]..$args[1]|%{$s+=("$_*"*$e+1|iex);$e,$f=($e+$f),$e};$s , (74) -> f(1,2) (74) 3 Type: Fraction Integer (75) -> f(4,8) (75) 33156 Type: Fraction Integer (76) -> f(-1,2) (76) 8 Type: Fraction Integer (77) -> f(-4,-1) (77) - 4 Type: Fraction Integer (78) -> f(3,1) >> Error detected within library code: reducing over an empty list needs the 3 argument form protected-symbol-warn called with (NIL) дам список f(a,b)==reduce(+,[i^fibonacci(j)for i in a..b for j in 1..b-a+1]) and function f($a,$b,$x=1,$y=1){return$a>$b?0:$a**$x+f($a+1,$b,$y,$x+$y);} даст список одинаковой длины for($b=$argv[$$x=0}=1]; # $"" to 1st Fibonacci and base to 1st argument $b<=$argv[2]; # loop $b up to argument2 inclusive ${$x=!$x} # 5. toggle $x, 6. store to $1/$"" =${""}+${1} # 4. compute next Fibonacci number ) $s+=$b++** # 2. add exponential to sum, 3. post-increment base $$x; # 1. take current Fibonacci from $""/$1 as exponent echo$s; # print result . Since -nr является for($b=$argv[$$x=1];$b<=$argv[2];${$x=!$x}=${""}+${1})$s+=$b++**$$x;echo$s; , _4 дам список первых -4 Fibonacci numbers. Since _ является [1,30] , calling it on two lists of equal length will thread it over the lists. Then ?sf?sa0dsbsg1sc[lblcdlfrdsb^lg+sg+sclf1+dsfla!<d]dsdxlgp берет сумму.

Изменить: сохранен 1 байт благодаря Мартину Эндеру.

Питон, 49 байт

Рекурсивная лямбда, которая принимает x=scan();for(i in x[1]:x[2])F=F+i^gmp::fibnum((T<-T+1)-1);F and gmp::fibnum в качестве отдельных аргументов (также можно задать первые два числа Фибоначчи, T and numbers::fibonacci , как хотите - не нарочно, но приятная особенность):

Попробуйте онлайн! (включая набор тестов)

Предложения по игре в гольф приветствуются.

Перл 6, 32 30 байт

x=scan();sum((x[1]:x[2])^numbers::fibonacci(diff(x)+1,T)) and int n(int a, int b) { int x = 1, y = 1, z = 0, s = 0; while (a <= b) { s += Math.pow(a++, x); z = x + y; x = y; y = z; } return s; } — два аргумента функции; int n(int a, int b){int x=1,y=1,z=0,s=0;while(a<=b){s+=Math.pow(a++,x);z=x+y;x=y;y=z;}return s;} is the range of numbers from ->a,b{n=s=0;m=1;a.upto(b){|x|s+=x**n=m+m=n};s} к rJÆḞ*@rS - Main link. Takes a on the left and b on the right r - Range from a to b J - Length range of that ÆḞ - n'th Fibonacci number of each r - Range from a to b *@ - Raise each to the power of the Fib numbers S - Sum , which is zipped with exponentiation by rJÆḞ*@rS с последовательностью Фибоначчи, .= Rangify input (inclusive) z^ Zipped with exponentiation to [1 1{+ The fibonacci sequence, closing }] implied Then take the sum .

Спасибо Брэду Гилберту за сокращение двух байтов.

Максима, 32 байта

Пайк, 11 байт

Попробуйте здесь!

JavaScript (ES7), 42 байта

Прямой порт превосходного ответа @FlipTack на Python.

Хаскель, 35 байт

Использование:

05AB1E, 9 байт

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

Не работает на TIO при больших расхождениях между &: % Binary range between the two implicit inputs: [a a+1 ... b] ll % Push 1, 1. These are the first two Fibonacci numbers &G % Push a, b again w- % Swap, subtract: gives b-a XJ % Copy to cilipboard J q: % Array [1 2 ... b-a-1] " % For each (repeat b-a-1 times) yy % Duplicate the top two numbers in the stack + % Add ] % End J % Push b-a Q % Add 1: gives b-a+1 $ % Specify that the next function takes b-a+1 inputs h % Concatenate that many elements (Fibonacci numbers) into a row vector ^ % Power, element-wise: each entry in [a a+1 ... b] is raised to the % corresponding Fibonacci number s % Sum of array. Implicitly display and &:ll&Gw-XJq:"yy+]JQ$h^s (НАПРИМЕР. a..b ).

Но, похоже, это работает для больших чисел, чем средний ответ здесь.

Неэффективно, поскольку вычисляет последовательность Фибоначчи с точностью до n , which is more than is needed to compute the answer, where n! длина последовательности [a..b].length() > 25 .

МАТЛ, 23 байта

Попробуйте онлайн! Или проверить все тестовые случаи.

Шелуха, 6 байт

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

Объяснение

Р, 51 байт

Анонимная функция.

Желе, 13 байт

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

Шепот v3, 87 байт

К сожалению, Whispers v3 отсутствует на TryItOnline!, поэтому нет онлайн-интерпретатора, который мог бы это проверить, кроме загрузки репозитория и его локального запуска.

Арн h1: - range(low, high+1) F ) - for i in ^: oh - (o++)+1 .b - nth_fib(^) ^ - i ** ^ s - sum(^) , 11 8 байт

Попробуйте!

Объяснено

Распаковано: f(a,b):=sum(x^fib(x-a+1),x,a,b);

Желе, 9 8 байт

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

-1 байт благодаря ЖивойМаг

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

Рубин, 46 байт

Ничего особенно умного или оригинального здесь нет. Извини.

Java 7, 96 байт

Гольф:

Негольфед:

Р, 57 байт

Довольно просто. {sum $^a..$^b Z**(1,&[+]...*)} is a shorter built-in, but it doesn't support returning the entire sequence up to f=lambda a,b,x=1,y=1:a<=b and a**x+f(a+1,b,y,x+y) , который y does by adding the argument x .

Сначала у меня было более сложное решение с b which ended up 2 bytes longer than this solution.

постоянный ток, 56 байт

Отделка для ввода Listable in 51 seconds. Takes the two inputs on two separate lines once executed and negative numbers with a leading подчеркивать ( Power ) instead of a dash (i.e b-a+1 будет введено как Fibonacci@Range[#2-#+1] ).

PHP, 77 75 байт

принимает границы из аргументов командной строки. Беги с Fibonacci .
демонстрация PHP переменные переменные снова (и что я о них узнал.

авария

Ответ FlipTack портированный на PHP имеет размер 70 байт:

Аксиома, 65 байт

тестовый код и результаты

PowerShell, 67 байт

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

Нашел немного лучший способ выполнить последовательность, но PowerShell не сравнится с другими языками в этом плане :)

Япт a , 9 байты

Попробуйте это

05AB1E, 10 байт

Попробуйте онлайн! Принимает две строки ввода, первая строка ## and the second line being Tr[Range@##^Fibonacci@Range[#2-#+1]]& .