Фонтан является расположение монет в строках , так что каждая монета касается двух монет в строке ниже ее, или находится в нижнем ряду, а нижний ряд соединен. Вот фонтан из 21 монеты:

Ваша задача состоит в том, чтобы подсчитать, сколько разных фонтанов можно сделать с заданным количеством монет.

В качестве входных данных вы получите положительное целое число n. Вы должны вывести количество различных nфонтанов-монет, которые существуют.

Стандартные правила ввода / вывода, стандартные лазейки запрещены. Решения должны быть в состоянии рассчитать n = 10в течение минуты.

Желаемый вывод для n = 1 ... 10:

1, 1, 2, 3, 5, 9, 15, 26, 45, 78

Эта последовательность OEIS A005169 .

Это код гольф. Побеждает несколько байтов.

Python, 57 байт

f=lambda n,i=0:sum(f(n-j,j)for j in range(1,i+2)[:n])or 1

Как отмечалось в OEIS , если вы сдвигаете каждую строку на полшага относительно строки под ней, размеры столбцов образуют последовательность натуральных чисел с максимальным шагом вверх 1.

Функция f(n,i)считает последовательности с суммой nи последним числом i. Они могут быть рекурсивно суммированы для каждого выбора следующего размера столбца от 1до i+1, то есть range(1,i+2). Усечение до range(1,i+2)[:n]препятствует тому, чтобы столбцы использовали больше монет, чем осталось, избегая необходимости говорить, что отрицательный nдает 0. Более того, он избегает явного базового случая, поскольку пустая сумма 0рекурсивна, а не рекурсивна, но вместо этого ее f(0)необходимо установить 1, для чего or 1достаточно (как было бы +0**n).

Mathematica, 59 байт

SeriesCoefficient[1-Fold[1-x^#2/#&,Range[#,0,-1]],{x,0,#}]&

Основано на программе Mathematica по OEIS Жана-Франсуа Альковера.

Haskell, 60 48 байтов

Спасибо @nimi за более короткое решение!

n#p|p>n=0|p<n=sum$map((n-p)#)[1..p+1]|1<2=1
(#1)

Старая версия.

t n p|p>n=0|p==n=1|p<n=sum[t (n-q) q|q<-[1..p+1]]
s n=t n 1

Функция вычисления значения: sреализация рекурсивной формулы, найденная здесь: https://oeis.org/A005169

Haskell, 43 байта

n%i=sum[(n-j)%j|j<-take n[1..i+1]]+0^n
(%0)

Смотрите Python ответ для объяснения.

Та же самая длина с minчем take:

n%i=sum[(n-j)%j|j<-[1..min(i+1)n]]+0^n
(%0)

Pyth, 21 20 байт

Ms?>GHgL-GHShHqGHgQ1

Попробуйте онлайн. Тестирование.

Это прямая реализация рекурсивной формулы на странице OEIS , как и ответ Matlab .

Matlab, 115 105 байт

function F=t(n,varargin);p=1;if nargin>1;p=varargin{1};end;F=p==n;if p<n;for q=1:p+1;F=F+t(n-p,q);end;end

Реализация рекурсивной формулы найдена здесь: https://oeis.org/A005169

function F=t(n,varargin);
p=1;
if nargin>1
    p=varargin{1};
end;
F=p==n;
if p<n;
    for q=1:p+1;
        F=F+t(n-p,q);
    end;
end;

Юлия, 44 43 байта

f(a,b=1)=a>b?sum(i->f(a-b,i),1:b+1):1(a==b)

Это использует рекурсивную формулу на OEIS.

объяснение

function f(a, b=1)
    if a > b
        # Sum of recursing
        sum(i -> f(a-b, i), 1:b+1)
    else
        # Convert bool to integer
        1 * (a == b)
    end
end

Кто-нибудь еще заметил, что удар через 44 - это обычный 44 ??

Python 3, 88 байт

f=lambda n,p:sum([f(n-p,q)for q in range(1,p+2)])if p<n else int(p==n)
t=lambda n:f(n,1)

JavaScript (ES6), 63

Реализация рекурсивной формулы на странице OEIS

F=(n,p=1,t=0,q=0)=>p<n?eval("for(;q++<=p;)t+=F(n-p,q)"):p>n?0:1