Bạn được cung cấp một chuỗi, sẽ chứa các ký tự az thông thường. (Bạn có thể cho rằng đây sẽ luôn là trường hợp trong bất kỳ bài kiểm tra nào và giả sử rằng tất cả các chữ cái cũng sẽ là chữ thường). Bạn phải xác định có bao nhiêu kết hợp duy nhất có thể được tạo từ các ký tự riêng lẻ trong chuỗi và in số đó.

Tuy nhiên, các chữ cái trùng lặp có thể được bỏ qua trong việc đếm các kết hợp có thể. Nói cách khác, nếu chuỗi được cung cấp là "xin chào", thì chỉ cần chuyển đổi vị trí của hai ls không được tính là một cụm từ duy nhất và do đó không thể được tính vào tổng số.

Số lượng byte ngắn nhất chiến thắng, mong muốn được thấy một số giải pháp sáng tạo trong các ngôn ngữ không chơi gôn!

Ví dụ:

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

Python 2 , 50 48 byte

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

Hãy thử trực tuyến!

Không có tích hợp nhàm chán! Thật ngạc nhiên, điều này thậm chí còn ngắn hơn so với phương pháp vũ phu, tính toán tất cả các hoán vị với itertoolsvà lấy chiều dài.

Hàm này sử dụng công thức

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

và tính toán nó một cách nhanh chóng. Giai thừa trong tử số được tính bằng cách nhân với len(s)trong mỗi lệnh gọi hàm. Mẫu số là một chút tinh tế hơn; trong mỗi cuộc gọi, chúng tôi chia cho số lần xuất hiện của phần tử đó trong phần còn lại của chuỗi, đảm bảo rằng với mỗi ký tự c, tất cả các số từ 1 đến số lần xuất hiện của c(bao gồm) sẽ được chia chính xác một lần. Vì chúng tôi chỉ phân chia ở cuối, chúng tôi đảm bảo không có bất kỳ vấn đề nào với phân chia tầng mặc định của Python 2.

05AB1E , 3 byte

œÙg

Hãy thử trực tuyến!

Giải trình

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

CJam , 4 byte

le!,

Hãy thử trực tuyến!

Giải trình

Đọc dòng dưới dạng một chuỗi ( l), hoán vị duy nhất dưới dạng một chuỗi các chuỗi ( e!), length ( ,), hiển thị ẩn.

R , 69 65 byte

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

Hãy thử trực tuyến!

4 byte được lưu nhờ Zahiro Mor trong cả hai câu trả lời.

Tính hệ số đa thức trực tiếp.

R , 72 68 byte

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

Hãy thử trực tuyến!

Sử dụng hàm phân phối đa cực được cung cấp bởi dmultinomđể trích xuất hệ số đa cực.

Lưu ý rằng thông thường (golfier) x<-table(strsplit(s,""))không hoạt động trong dmultinomcuộc gọi mà không rõ lý do.

JavaScript (Node.js) , 49 byte

t=t*được sử dụng thay vì t*=để tránh lỗi làm tròn số (làm tròn số |txuống) vì t=t*đảm bảo rằng tất cả các kết quả trung gian (toán tử) là toàn bộ số.

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

Hãy thử trực tuyến!

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 byte

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

Hãy thử trực tuyến!

Trả về kết quả dưới dạng đơn.

Japt , 5 3 byte

-2 byte nhờ @Shaggy

á l

Hãy thử trực tuyến!

J , 15 , 14 byte

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

Hãy thử trực tuyến!

-1 byte nhờ FrownyFrog

Thạch , 4 byte

Œ!QL

Hãy thử trực tuyến!

Đơn giản chỉ cần làm những gì được yêu cầu: tìm hoán vị của đầu vào, xác định và in độ dài.

C # (Trình biên dịch tương tác Visual C #) , 59 byte

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

Cổng câu trả lời Python 2 của @ArBo .

Hãy thử trực tuyến.

Brachylog , 3 byte

pᶜ¹

Hãy thử trực tuyến!

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

pᵘl thực hiện khá nhiều chính xác điều tương tự.

Python 2 , 57 byte

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

Hãy thử trực tuyến!

Tự viết tài liệu: Trả về độ dài của tập hợp hoán vị duy nhất của chuỗi đầu vào.

Python 3 , 55 byte

Tín dụng cho ArBo trên cái này:

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

Hãy thử trực tuyến!

APL (Dyalog Unicode) , 24 byte

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

Hãy thử trực tuyến!

Dfn đơn giản, lấy một chuỗi làm đối số.

Làm sao:

⎕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

Ruby , 41 byte

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

Hãy thử trực tuyến!

Perl 5 , 43 byte

Sử dụng phương thức trong câu trả lời Python của @ ArBo.

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

Hãy thử trực tuyến!

Perl 6 , 33 30 ký tự ( 34 31 byte)

Khá thẳng Whateverkhối phía trước . combchia chuỗi thành các chữ cái, permutationsđược tất cả các kết hợp có thể. Do cách ép buộc Setcần phải được chỉnh sửa jointrước ( »áp dụng joincho từng yếu tố trong danh sách).

+*.comb.permutations».join.Set

Hãy thử trực tuyến!

(câu trả lời trước được sử dụng .uniquenhưng Sets đảm bảo tính duy nhất và đánh số giống nhau, vì vậy nó tiết kiệm được 3).

K (oK) , 12 byte

Giải pháp:

#?x@prm@!#x:

Hãy thử trực tuyến!

Giải trình:

Sử dụng oK tích hợp prm:

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

... mà x^/:xvề cơ bản là tạo ra các hoán vị của "helo"không "hello", do đó chúng ta cần tạo ra các hoán vị của 0 1 2 3 4, sử dụng chúng để lập chỉ mục "hello"và sau đó lấy số đếm duy nhất.

#?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 byte

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

Cổng câu trả lời Python 2 của @ArBo .
-1 byte nhờ @ OlivierGrégoire bằng cách lặp lại thay vì đệ quy.

Hãy thử trực tuyến.

Trên thực tế, việc tạo ra tất cả các hoán vị duy nhất trong Tập hợp và nhận kích thước của nó sẽ là 221 byte :

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

Hãy thử trực tuyến.

MATL , 9 byte

jY@XuZy1)

Hãy thử trực tuyến!

Giải trình:

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

Octave / MATLAB, 35 byte

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

Hàm ẩn danh lấy một vectơ ký tự và tạo ra một số.

Trong MATLAB, điều này có thể được rút ngắn thành size(unique(perms(s),'ro'),1)(33 byte).

Hãy thử trực tuyến!

Giải trình

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

Võng mạc 0.8.2 , 73 byte

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

Hãy thử trực tuyến! Sử dụng công thức @ ArBo, nhưng đánh giá từ phải sang trái vì điều này có thể được thực hiện bằng số học số nguyên trong khi vẫn giảm thiểu kích thước của các giá trị đơn nguyên liên quan. Giải trình:

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

Đối với mỗi ký tự, hãy đếm xem có bao nhiêu trùng lặp còn lại và có bao nhiêu ký tự nữa, thêm một ký tự để đưa ký tự hiện tại vào tài khoản và phân tách các giá trị để chúng tôi biết những giá trị nào sẽ được chia và nhân nào sẽ được nhân .

^
1

Tiền tố 1 để tạo ra một biểu thức hoàn chỉnh.

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

Liên tục nhân số cuối cùng và số thứ ba trong khi chia cho số cuối thứ hai. Điều này thay thế ba số cuối.

1

Chuyển đổi thành số thập phân.

K, 27 byte

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

K, 16 byte - không phải là câu trả lời thực sự

#?(999999#0N)?\:

Lấy 999999 hoán vị ngẫu nhiên của chuỗi đầu vào, lấy tập hợp duy nhất của chúng và đếm chiều dài. Hầu hết thời gian nó sẽ đưa ra câu trả lời đúng, cho các chuỗi ngắn.

Được cải thiện nhờ @Sriotchilism O'Z cổ, @Selcuk

Ngôn ngữ Wolfram (Mathicala) , 32 byte

Characters/*Permutations/*Length

Hãy thử trực tuyến!

Giải thích: Bố /*cục bên phải với việc áp dụng ba toán tử lần lượt cho toán tử hàm này, từ trái sang phải:

• Characters chuyển đổi chuỗi đầu vào thành một danh sách các ký tự.

• Permutations tạo một danh sách tất cả các hoán vị duy nhất của danh sách nhân vật này.

• Length trả về độ dài của danh sách các hoán vị duy nhất này.

Phương pháp này rất lãng phí cho các chuỗi dài: các hoán vị duy nhất thực sự được liệt kê và tính, thay vì sử dụng a Multinomialđể tính số của chúng mà không liệt kê.

F # (Mono) , 105 byte

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

Hãy thử trực tuyến!

Bình thường , 5 4 byte

l{.p

Hãy thử trực tuyến!

Giả định đầu vào là một chuỗi python bằng chữ. Nếu đầu vào phải là văn bản thô, phiên bản 5 byte này sẽ hoạt động:

l{.pz

Dù bằng cách nào, nó chỉ tính toán tất cả các hoán vị của đầu vào dưới dạng một danh sách, sao chép nó và lấy số phần tử trong đó, và in ngầm số đó.

-1 byte nhờ @ hakr14

J , 14  13 byte

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

Hãy thử trực tuyến!

1 byte nhờ dặm

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

PHP , 77 byte

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

Hãy thử trực tuyến!

Về cơ bản, đây chỉ là một bản PHP của câu trả lời Python giành chiến thắng @ ArBo, thông minh hơn nhiều so với câu trả lời đệ quy mà tôi có ban đầu. Bravo!

Ohm v2 , 4 byte

ψD∩l

Hãy thử trực tuyến!

Giải trình

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

Stax , 3 byte

═1╪

Chạy và gỡ lỗi nó