系统会为您提供一个字符串，其中将包含普通的az字符。（您可以假设在任何测试中都是如此，并假设所有字母也都为小写）。您必须确定可以对字符串中的各个字符进行多少个唯一组合，然后打印该数字。

但是，在计算可能的组合时，可以忽略重复的字母。换句话说，如果给定的字符串为“ hello”，则仅切换两个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,"")))

在线尝试！

感谢Zahiro Mor在两个答案中节省了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

在线尝试！

Ĵ，15，14个字节

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

在线尝试！

-1字节感谢FrownyFrog

果冻，4字节

Œ!QL

在线尝试！

只需执行要求的操作即可：查找输入的排列，统一并打印长度。

C＃（Visual C＃交互式编译器），59字节

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

@ArBo的Python 2答案端口。

在线尝试。

Brachylog，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 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个字节

使用@ArBo的Python答案中的方法。

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"not 的排列"hello"，因此我们需要生成of的排列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 (#)

爪哇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的Python 2答案端口。
-1字节感谢@OlivierGrégoire，使其成为迭代而不是递归。

在线尝试。

实际上，在Set中生成所有唯一排列并获取其大小将为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

转换为十进制。

K，27个字节

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

K，16个字节-不是真正的答案

#?(999999#0N)?\:

对输入字符串进行999999个随机排列，选择它们的唯一集合并计算长度。大多数情况下，对于字符串不足的问题，它会给出正确的答案。

由于@Sriotchilism O'Zaic，@ Selcuk而有所改善

Wolfram语言（Mathematica），32字节

Characters/*Permutations/*Length

在线尝试！

说明：右组成与从左到右/*将这三个运算符一个接一个地应用于函数参数：

• Characters 将输入字符串转换为字符列表。

• Permutations 列出此字符列表的所有唯一排列。

• Length 返回此唯一排列列表的长度。

此方法对于长字符串非常浪费：实际上会列出并计数唯一的排列，而不是使用a 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端口 @ArBo获奖的Python答案这比我最初的递归答案要聪明得多。太棒了！

欧姆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╪

运行并调试