Вам дана строка, которая будет содержать обычные символы z. (Вы можете предположить, что это всегда будет иметь место в любом тесте, и предположить, что все буквы также будут строчными). Вы должны определить, сколько уникальных комбинаций можно сделать из отдельных символов в строке, и распечатать это число.

Однако дублирующие буквы можно игнорировать при подсчете возможных комбинаций. Другими словами, если заданная строка является «привет», то просто переключение позиций двух ls не считается уникальной фразой и, следовательно, не может быть засчитано в общую сумму.

Побеждает самое короткое число байтов, с нетерпением ждем новых креативных решений на неигровых языках!

Примеры:

hello -> 60
aaaaa -> 1
abcde -> 120

Python 2 , 50 48 байтов

f=lambda s:s==''or len(s)*f(s[1:])/s.count(s[0])

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

Нет скучных встроенных модулей! К моему удивлению, это даже короче, чем метод грубой силы, вычисляющий все перестановки с itertoolsучетом длины.

Эта функция использует формулу

$\text{# of unique permutations} = \frac{\text{(# of elements)!}}{\prod_{\text{unique elements}}{\text{(# of occurences of that element)!}}}$

и вычисляет это на лету. Факториал в числителе рассчитывается путем умножения на len(s)в каждом вызове функции. Знаменатель немного более тонкий; в каждом вызове мы делим на число вхождений этого элемента в том, что осталось от строки, обеспечивая, чтобы для каждого символа cвсе числа между 1 и количеством вхождений c(включительно) были разделены ровно один раз. Поскольку мы делим только в самом конце, у нас гарантированно не возникнет никаких проблем с делением по умолчанию в Python 2.

05AB1E , 3 байта

œÙg

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

объяснение

  g  # length of the list
 Ù   # of unique
œ    # permutations
     # of the input

CJam , 4 байта

le!,

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

объяснение

Чтение строки в виде строки ( l), уникальные перестановки в виде массива строк ( e!), длина ( ,), неявное отображение.

R , 69 65 байт

function(s,`!`=factorial)(!nchar(s))/prod(!table(strsplit(s,"")))

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

4 байта сохранены благодаря Захиро Мор в обоих ответах.

Вычисляет коэффициент многочлена напрямую.

R , 72 68 байт

function(s,x=table(strsplit(s,"")))dmultinom(x,,!!x)*sum(1|x)^sum(x)

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

Использует полиномиальную функцию распределения, предоставленную dmultinomдля извлечения полиномиального коэффициента.

Обратите внимание, что обычный (игрок в гольф) x<-table(strsplit(s,""))не работает внутри dmultinomзвонка по неизвестной причине.

JavaScript (Node.js) , 49 байт

t=t*используется вместо того, t*=чтобы избежать ошибки округления (округления |tдо числа), поскольку t=t*гарантирует, что все промежуточные (операторные) результаты являются целыми числами.

a=>[...a].map(g=x=>t=t*y++/(g[x]=-~g[x]),t=y=1)|t

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

a=>
 [...a].map(        // Loop over the characters
  g=x=>
   t=t*             // using t*= instead may result in rounding error 
    y++             // (Length of string)!
    /(g[x]=-~g[x])  // divided by product of (Count of character)!
  ,t=y=1            // Initialization
 )
 |t

APL (Dyalog Unicode) , 14 байтов

!∘⍴÷⊂×.(!∘⍴∩)∪

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

Возвращает результат в виде синглтона.

Japt , 5 3 байта

-2 байта благодаря @Shaggy

á l

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

J , 15 , 14 байтов

[:#@=i.@!@#A.]

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

-1 байт благодаря FrownyFrog

Желе , 4 байта

Œ!QL

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

Просто делает то, что было задано: найти перестановки ввода, uniquify и распечатать длину.

C # (интерактивный компилятор Visual C #) , 59 байт

f=s=>s==""?1:s.Length*f(s.Substring(1))/s.Count(c=>c==s[0])

Порт ответа @ArBo 's Python 2 .

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

Брахилог , 3 байта

pᶜ¹

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

       The output is
 ᶜ¹    the number of unique
p      permutations of
       the input.

pᵘl делает в точности то же самое.

Python 2 , 57 байт

lambda s:len(set(permutations(s)))
from itertools import*

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

Самодокументирование: возвращает длину набора уникальных перестановок входной строки.

Python 3 , 55 байт

Кредит идет на ArBo на этом:

lambda s:len({*permutations(s)})
from itertools import*

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

APL (Dyalog Unicode) , 24 байта

⎕CY'dfns'
{≢∪↓⍵[pmat≢⍵]}

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

Простой Dfn, принимает строку в качестве аргумента.

Как:

⎕CY'dfns'      ⍝ Copies the 'dfns' namespace.
{≢∪↓⍵[pmat≢⍵]} ⍝ Main function
          ≢⍵   ⍝ Number of elements in the argument (⍵)
      pmat     ⍝ Permutation Matrix of the range [1..≢⍵]
    ⍵[      ]  ⍝ Index the argument with that matrix, which generates all permutations of ⍵
   ↓           ⍝ Convert the matrix into a vector of strings
  ∪            ⍝ Keep only the unique elements
 ≢             ⍝ Tally the number of elements

Рубин , 41 байт

f=->s{s.chars.permutation.to_a.uniq.size}

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

Perl 5 , 43 байта

Использует метод в ответе Python @ ArBo.

sub c{!@_||@_*c(@_[1..$#_])/grep/$_[0]/,@_}

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

Perl 6 , 33 30 символов ( 34 31 байт)

Довольно прямолинейный Whateverблок. combразбивает строку на буквы, permutationsполучает все возможные комбинации. Из-за способа принуждения Setнужно joinсначала »редактировать ( применяется joinк каждому элементу в списке).

+*.comb.permutations».join.Set

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

(использовался предыдущий ответ, .uniqueно Sets гарантирует уникальность и нумерует то же самое, поэтому сохраняет 3).

K (ок) , 12 байт

Решение:

#?x@prm@!#x:

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

Объяснение:

Использует встроенный ОК prm:

{[x]{[x]$[x;,/x ,''o'x ^/:x;,x]}@$[-8>@x;!x;x]}

... который, в x^/:xосновном, генерирует перестановки "helo"not "hello", следовательно, нам нужно генерировать перестановки 0 1 2 3 4, использовать их для индексации, "hello"а затем считать количество уникальных.

#?x@prm@!#x: / the solution
          x: / store input as x
         #   / count (#) length
        !    / range (!) 0..n
    prm@     / apply (@) to function prm
  x@         / apply permutations to input x
 ?           / take the distinct (?)
#            / count (#)

Java 8, 103 102 байта

s->{int r=1,i=s.length();for(;i>0;)r=r*i/~-s.substring(--i).split(s.charAt(i)+"",-1).length;return r;}

Порт ответа @ArBo 's Python 2 .
-1 байт благодаря @ OlivierGrégoire , сделав его итеративным, а не рекурсивным.

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

Фактически генерация всех уникальных перестановок в наборе и получение его размера будет 221 байт :

import java.util.*;s->{Set S=new HashSet();p(s,S,0,s.length()-1);return S.size();}void p(String s,Set S,int l,int r){for(int i=l;i<=r;p(s.replaceAll("(.{"+l+"})(.)(.{"+(i++-l)+"})(.)(.*)","$1$4$3$2$5"),S,l+1,r))S.add(s);}

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

MATL , 9 байт

jY@XuZy1)

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

Объяснение:

j input as string
Y@ get permutations
Xu unique members
Zy size matrix
1) first member of size matrix

Октава / MATLAB, 35 байт

@(s)size(unique(perms(s),'rows'),1)

Анонимная функция, которая принимает символьный вектор и создает число.

В MATLAB это можно сократить до size(unique(perms(s),'ro'),1)(33 байта).

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

объяснение

@(s)                                  % Anonymous function with input s
                perms(s)              % Permutations. Gives a char matrix
         unique(        ,'rows')      % Deduplicate rows
    size(                       ,1)   % Number of rows

Сетчатка 0.8.2 , 73 байта

(.)(?=(.*?\1)*)
/1$#2$*1x1$.'$*
^
1
+`1(?=1*/(1+)x(\1)+$)|/1+x1+$
$#2$*
1

Попробуйте онлайн! Использует формулу @ ArBo, но оценивает справа налево, поскольку это можно сделать в целочисленной арифметике, при этом минимизируя размер участвующих унарных значений. Объяснение:

(.)(?=(.*?\1)*)
/1$#2$*1x1$.'$*

Для каждого символа подсчитайте, сколько осталось дубликатов и сколько еще символов, добавьте по одному каждому для учета текущего символа и разделите значения, чтобы мы знали, какие из них следует разделить, а какие - умножить. ,

^
1

Префикс 1 для создания полного выражения.

+`1(?=1*/(1+)x(\1)+$)|/1+x1+$
$#2$*

Повторно умножайте последние и третьи последние числа, делясь на второе последнее число. Это заменяет последние три числа.

1

Преобразовать в десятичную.

К, 27 байт

*/[1+!#:x]%*/{*/1+!x}'#:'x:

К, 16 байт - не реальный ответ

#?(999999#0N)?\:

Возьмите 999999 случайных перестановок входной строки, возьмите их уникальный набор и посчитайте длину. В большинстве случаев это даст правильный ответ для коротких строк.

Улучшено благодаря @Sriotchilism O'Zaic, @Selcuk

Wolfram Language (Mathematica) , 32 байта

Characters/*Permutations/*Length

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

Объяснение: Композиция справа с /*применяет эти три оператора один за другим к аргументу функции слева направо:

• Characters преобразует входную строку в список символов.

• Permutations делает список всех уникальных перестановок этого списка символов.

• Length возвращает длину этого списка уникальных перестановок.

Этот метод очень расточителен для длинных строк: уникальные перестановки фактически перечислены и подсчитаны, вместо того, чтобы использовать их Multinomialдля вычисления их числа без перечисления.

F # (моно) , 105 байт

let rec f s=if s=""then 1 else s.Length*(f(s.Substring 1))/(s|>Seq.sumBy(fun c->if c=s.[0]then 1 else 0))

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

Pyth , 5 4 байта

l{.p

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

Это предполагает, что ввод является строковым литералом Python. Если ввод должен быть необработанным текстом, эта 5-байтовая версия будет работать:

l{.pz

В любом случае, он просто вычисляет все перестановки входных данных в виде списка, дедуплицирует его, получает количество элементов в нем и неявно печатает это число.

-1 байт благодаря @ hakr14

J , 14  13 байт

#(%*/)&:!#/.~

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

1 байт благодаря милям

#                  length
         #/.~      counts of each unique character
 (%*/)             divide left by the product of right
      &:!          after applying ! to both

PHP , 77 байт

function f($s){return!$s?:strlen($s)*f(substr($s,1))/substr_count($s,$s[0]);}

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

По сути, это всего лишь порт PHP с победившим Python-ответом @ ArBo, который до смешного умнее, чем рекурсивный ответ, который у меня был изначально. Браво!

Ом v2 , 4 байта

ψD∩l

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

объяснение

   l    output the lenght of
  ∩     the set intersection between
ψD      two copies of all possible permutation of input

Stax , 3 байта

═1╪

Запустите и отладьте его