Otrzymasz ciąg znaków, który będzie zawierał zwykłe znaki az. (Możesz założyć, że tak będzie zawsze w każdym teście, i załóż, że wszystkie litery również będą pisane małymi literami). Musisz określić, ile unikalnych kombinacji można utworzyć z poszczególnych znaków w ciągu, i wydrukować tę liczbę.

Jednak zduplikowane litery można zignorować, licząc możliwe kombinacje. Innymi słowy, jeśli podany ciąg to „hello”, to po prostu zmiana pozycji dwóch ls nie jest liczona jako unikalna fraza i dlatego nie może być liczona do sumy.

Zwycięża najkrótsza liczba bajtów, czekamy na kreatywne rozwiązania w językach innych niż golf!

Przykłady:

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

Python 2 , 50 48 bajtów

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

Wypróbuj online!

Żadnych nudnych wbudowanych funkcji! Ku mojemu zdziwieniu jest to nawet krótsze niż podejście z użyciem brutalnej siły, obliczając wszystkie permutacje itertoolsi biorąc pod uwagę długość.

Ta funkcja korzysta ze wzoru

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

i oblicza go w locie. Silnia w liczniku jest obliczana przez pomnożenie przez len(s)w każdym wywołaniu funkcji. Mianownik jest nieco bardziej subtelny; w każdym wywołaniu dzielimy przez liczbę wystąpień tego elementu w pozostałej części łańcucha, zapewniając, że dla każdego znaku cwszystkie liczby od 1 do liczby wystąpień c(włącznie) zostaną podzielone przez dokładnie jeden raz. Ponieważ dzielimy tylko na samym końcu, gwarantujemy, że nie będziemy mieć problemów z domyślnym podziałem podłogi w Python 2.

05AB1E , 3 bajty

œÙg

Wypróbuj online!

Wyjaśnienie

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

CJam , 4 bajty

le!,

Wypróbuj online!

Wyjaśnienie

Czytaj linię jako ciąg znaków ( l), unikalne permutacje jako tablicę ciągów znaków ( e!), długości ( ,), niejawne wyświetlanie.

R , 69 65 bajtów

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

Wypróbuj online!

4 bajty zapisane dzięki Zahiro Morowi w obu odpowiedziach.

Oblicza bezpośrednio współczynnik wielomianowy.

R , 72 68 bajtów

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

Wypróbuj online!

Korzysta z funkcji rozkładu wielomianowego podanej w dmultinomcelu wyodrębnienia współczynnika wielomianowego.

Pamiętaj, że zwykły (golfista) x<-table(strsplit(s,""))nie działa w dmultinompołączeniu z nieznanego powodu.

JavaScript (Node.js) , 49 bajtów

t=t*służy t*=do uniknięcia błędu zaokrąglania ( |tzaokrągla liczbę w dół), ponieważ t=t*gwarantuje, że wszystkie wyniki pośrednie ( z punktu widzenia operatora) są liczbami całkowitymi.

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

Wypróbuj online!

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 bajtów

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

Wypróbuj online!

Zwraca wynik jako singleton.

Japt , 5 3 bajty

-2 bajty dzięki @Shaggy

á l

Wypróbuj online!

J , 15 , 14 bajtów

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

Wypróbuj online!

-1 bajt dzięki FrownyFrog

Galaretka , 4 bajty

Œ!QL

Wypróbuj online!

Po prostu robi to, o co pytano: znajduj permutacje danych wejściowych, unikaj i drukuj długość.

C # (interaktywny kompilator Visual C #) , 59 bajtów

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

Port odpowiedzi @ArBo na Python 2 .

Wypróbuj online.

Brachylog , 3 bajty

pᶜ¹

Wypróbuj online!

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

pᵘl robi prawie dokładnie to samo.

Python 2 , 57 bajtów

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

Wypróbuj online!

Self-documenting: Zwraca długość zestawu unikalnych permutacji ciągu wejściowego.

Python 3 , 55 bajtów

Uznanie dla ArBo za to:

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

Wypróbuj online!

APL (Dyalog Unicode) , 24 bajty

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

Wypróbuj online!

Prosty Dfn, przyjmuje ciąg znaków jako argument.

W jaki sposób:

⎕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

Rubinowy , 41 bajtów

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

Wypróbuj online!

Perl 5 , 43 bajtów

Używa metody z odpowiedzi Python na @ ArBo.

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

Wypróbuj online!

Perl 6 , 33 30 znaków ( 34 31 bajtów)

Dość prosty Whateverblok. combdzieli ciąg na litery, permutationsuzyskuje wszystkie możliwe kombinacje. Ze względu na sposób, w jaki Setnależy joinnajpierw »zastosować przymus ( dotyczy joinkażdego elementu na liście).

+*.comb.permutations».join.Set

Wypróbuj online!

(poprzednia użyta odpowiedź, .uniqueale Sets gwarantuje unikatowość i numeruje to samo, więc oszczędza 3).

K (oK) , 12 bajtów

Rozwiązanie:

#?x@prm@!#x:

Wypróbuj online!

Wyjaśnienie:

Wykorzystuje wbudowane OK prm:

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

... który w x^/:xzasadzie generuje permutacje "helo"nie "hello", dlatego musimy wygenerować permutacje 0 1 2 3 4, użyć ich do indeksowania, "hello"a następnie policzyć unikalność.

#?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 bajtów

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

Port odpowiedzi @ArBo na Python 2 .
-1 bajt dzięki @ OlivierGrégoire poprzez iterację zamiast rekurencji.

Wypróbuj online.

W rzeczywistości wygenerowanie wszystkich unikalnych permutacji w zestawie i uzyskanie jego rozmiaru wynosi 221 bajtów :

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);}

Wypróbuj online.

MATL , 9 bajtów

jY@XuZy1)

Wypróbuj online!

Wyjaśnienie:

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

Octave / MATLAB, 35 bajtów

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

Anonimowa funkcja, która pobiera wektor znaków i tworzy liczbę.

W MATLAB można to skrócić do size(unique(perms(s),'ro'),1)(33 bajtów).

Wypróbuj online!

Wyjaśnienie

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

Retina 0.8.2 , 73 bajty

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

Wypróbuj online! Wykorzystuje formułę @ ArBo, ale ocenia od prawej do lewej, ponieważ można tego dokonać w arytmetyce liczb całkowitych, jednocześnie minimalizując wielkość zaangażowanych wartości jednostkowych. Wyjaśnienie:

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

Dla każdego znaku policz, ile pozostało duplikatów i ile jest kolejnych znaków, dodaj po jednym do każdego z nich, aby uwzględnić bieżący znak, i rozdziel wartości, abyśmy wiedzieli, które z nich mają zostać podzielone, a które należy pomnożyć .

^
1

Przedrostek 1, aby uzyskać pełne wyrażenie.

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

Kilkakrotnie pomnóż ostatnią i trzecią ostatnią liczbę, dzieląc ją przez drugą ostatnią liczbę. Zastępuje to ostatnie trzy liczby.

1

Konwertuj na dziesiętny.

K, 27 bajtów

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

K, 16 bajtów - nie jest to prawdziwa odpowiedź

#?(999999#0N)?\:

Weź 999999 losowych kombinacji łańcucha wejściowego, weź ich unikalny zestaw i policz długość. Przez większość czasu daje właściwą odpowiedź, w przypadku krótkich łańcuchów.

Poprawiono dzięki @Sriotchilism O'Zaic, @Selcuk

Wolfram Language (Mathematica) , 32 bajty

Characters/*Permutations/*Length

Wypróbuj online!

Objaśnienie: Kompozycja po prawej stronie /*stosuje te trzy operatory jeden po drugim do argumentu funkcji, od lewej do prawej:

• Characters konwertuje wejściowy ciąg znaków na listę znaków.

• Permutations tworzy listę wszystkich unikalnych kombinacji tej listy znaków.

• Length zwraca długość tej listy unikalnych permutacji.

Ta metoda jest bardzo marnotrawna w przypadku długich ciągów: unikatowe permutacje są faktycznie wyświetlane i liczone, zamiast używać a Multinomialdo obliczania ich liczby bez wyświetlania.

F # (mono) , 105 bajtów

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))

Wypróbuj online!

Pyt , 5 4 bajtów

l{.p

Wypróbuj online!

Zakłada się, że dane wejściowe to literał ciągu znaków w języku Python. Jeśli dane wejściowe muszą być surowym tekstem, ta 5-bajtowa wersja będzie działać:

l{.pz

Tak czy inaczej, po prostu oblicza wszystkie permutacje danych wejściowych jako listę, deduplikuje je, pobiera liczbę elementów i domyślnie drukuje tę liczbę.

-1 bajt dzięki @ hakr14

J , 14  13 bajtów

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

Wypróbuj online!

1 bajt dzięki milom

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

PHP , 77 bajtów

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

Wypróbuj online!

To jest po prostu port PHP zwycięskiej odpowiedzi Pythona @ ArBo, która jest śmiesznie mądrzejsza niż rekurencyjna odpowiedź, którą pierwotnie miałem. Brawo!

Ohm v2 , 4 bajty

ψD∩l

Wypróbuj online!

Wyjaśnienie

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

Stax , 3 bajty

═1╪

Uruchom i debuguj