Вам надається рядок, який буде містити звичайні символи az. (Ви можете припустити, що це завжди буде в будь-якому тесті, і припустити, що всі літери будуть також малі). Ви повинні визначити, скільки унікальних комбінацій може бути складено з окремих символів у рядку та надрукувати це число.

Однак дублюючі літери можна ігнорувати при підрахунку можливих комбінацій. Іншими словами, якщо заданий рядок є "привіт", то просто перемикання позицій двох 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

Спробуйте в Інтернеті!

Просто робимо те, що було запропоновано: знаходити перестановки введення, уніфікувати та друкувати довжину.

C # (Visual C # Interactive Compiler) , 59 байт

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

Порт відповіді Python 2 @ArBo .

Спробуйте в Інтернеті.

Брахілог , 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але Setгарантує унікальність, і чисельність однакова, тому вона економить 3).

K (oK) , 12 байт

Рішення:

#?x@prm@!#x:

Спробуйте в Інтернеті!

Пояснення:

Використовується вбудований oK prm:

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

... що, в x^/:xосновному, генерує перестановки "helo"не "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;}

Порт відповіді Python 2 @ArBo .
-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

Мова Вольфрама (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

Стакс , 3 байти

═1╪

Запустіть і налагоджуйте його