Codegolf — Оценка Биномиального Коэффициента

Alex5463524

На этот вопрос уже есть ответы здесь:

  c(n,0) = c(n,n) = 1 for all n
c(n,1) = c(n,n-1) = n for all n 
c(5,3) = 10
c(13,5) = 1287

such that

c(n,k) := (n!) / (k! * (n-k)!)

Математическая комбинация

0 <= k <= n

(31 ответ)

n,k

Закрыт 5 лет назад. Даны два неотрицательных целых числа , верните биномиальный коэффициент Тестовые случаи

Большинство языков, вероятно, будут иметь встроенную функцию.

Homero111

JavaScript (ES6), 27 байт

                   :     % Take input n implicitly. Range

% STACK: [1 2 ... n]
i:    % Take input k. Range

% STACK: [1 2 ... n], [1 2 ... k]
&G-   % Push n and k again. Subtract

% STACK: [1 2 ... n], [1 2 ... k], n-k
:     % Range

% STACK: [1 2 ... n], [1 2 ... k], [1 2 ... n-k]
h     % Concatenate the top two arrays horizontally

% STACK: [1 2 ... n], [1 2 ... k 1 2 ... n-k]
/     % Element-wise division

% STACK: [1/1 2/2 ... k/k (k+1)/1 (k+2)2 ... n/(n-k)]
p     % Product of array. Implicitly display

% STACK: 1/1 * 2/2 * ... * k/k * (k+1)/1 * (k+2)2 * ... * n/(n-k)

||answer||

MATL, 2 байта

:i:&G-:h/p

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

SalePace44

Желе, 1 байт

{[*] ($^n...0)Z/1..$^p}

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

Mic

CJam, 11 байт

{+combinations $^n,$^p}

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

Объяснение

Здесь используется трюк, который (я думаю) я впервые использовал для конкурса каталонских чисел. В CJam для этого нет встроенной функции, а вычисление трех факториалов обходится слишком дорого. Но биномиальный коэффициент █ is the number of ways we can select k<newline>n из c(n,k) elements. That is, it's equal to the number of permutations of a list of n,k элементы, где .cF of them have one value and the remaining have another.

f=lambda n,k:k<1or n*f(n-1,k-1)/k

||answer||

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

p ||answer||

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

i

Ага. Пример использования: C or pCi i чтобы получить 3!5 10 5!13 1287 .

Doc_Albert

Матлаб, 8 байт

Для этого расчета имеется встроенная функция:

||answer||

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

n*k-k*k<1

Пример использования: k<1||k>=n -> 1287 .

Вариант того же размера для 13#5 test is n#k|k<1||k>=n=1|m<-n-1=m#(k-1)+m#k .

Arbisorgo

Дж, 1 байт

nchoosek

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

1287 ||answer||

Медуза, 6 байт

13~Binomial~5

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

Binomial[13,5] is the built-in for binomial coefficients, the Binomial s заменяются одним входом каждый, n#0=1 0#k=1 n#k=(n-1)#(k-1)*n`div`k prints the result.

Godzillaz

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

l~   e# Read and evaluate input. Dumping n and k on the stack.
S*   e# Get a string of k spaces.
\0e] e# Pad to length n with zeros.
e!   e# Get the unique permutations.
,    e# Count the number of such permutations.

Обратите внимание, что это вернет Истинный если к = 0, который вроде разрешено по умолчанию.

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

Ruifesige

Пиф, 3 байта

k

Программа, которая принимает входные данные в виде n and prints the result.

Тест

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

Это просто складывается n over the input.

Swipdnb

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

Ввод имеет форму k . Попробуйте онлайн!

c(n,k) ||answer||

Перл 6, 23 байта

l~S*\0e]e!,

(Оба основаны на коде, найденном на сайте example.perl6.org, и RosettaCode )

Kemzoft

МАТЛ, 10 байт

Xn

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

Это выполняет вычисления вручную, без встроенной функции:

f=(n,k)=>k?n*f(n-1,k-1)/k:1

Похожие темы	Дата
Codegolf - Фрактал Замка Майнкрафт	19.12.2024, 05:12
Последовательность - Кодекс Качества Предприятия Prime Sieve	19.12.2024, 05:12
Codegolf - Вращение Гиперкуба	19.12.2024, 05:12
Codegolf - Сначала Они Пришли	19.12.2024, 05:12
Codegolf — Насколько Сильно Я Могу Раздавить Свой Массив?	19.12.2024, 05:12
Codegolf — Преобразование Чисел	19.12.2024, 05:12
Codegolf - Определите Eeveelutions	19.12.2024, 05:12
Codegolf — Я Запланирую Ваше Мероприятие, Но Я Не Работаю По Выходным	19.12.2024, 05:12
Codegolf — Создайте Семицветную Радугу С Анимацией	19.12.2024, 05:12
Codegolf — Helolw Rdlo (Задача С Многопоточностью)	19.12.2024, 05:12

Codegolf — Оценка Биномиального Коэффициента

Alex5463524

JavaScript (ES6), 27 байт

MATL, 2 байта

Homero111

Желе, 1 байт

SalePace44

CJam, 11 байт

Объяснение

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

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

Mic

Матлаб, 8 байт

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

Doc_Albert

Дж, 1 байт

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

Медуза, 6 байт

Arbisorgo

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

Godzillaz

Пиф, 3 байта

Ruifesige

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

Перл 6, 23 байта

Swipdnb

МАТЛ, 10 байт

Kemzoft

I AM

Интересно