Size, normal az karakterleri içeren bir dize verilir. (Bunun herhangi bir testte her zaman geçerli olacağını ve tüm harflerin de küçük harf olacağını varsayabilirsiniz). Dizedeki tek tek karakterlerden kaç tane benzersiz kombinasyon yapılabileceğini belirlemeli ve bu sayıyı yazdırmalısınız.

Ancak, olası kombinasyonlar sayılırken yinelenen harfler yok sayılabilir. Başka bir deyişle, verilen dize "merhaba" ise, iki ls'nin konumlarını değiştirmek benzersiz bir ifade olarak sayılmaz ve bu nedenle toplama sayılmaz.

En kısa bayt sayısı kazanır, golf dışı dillerde yaratıcı çözümler görmeyi dört gözle bekler!

Örnekler:

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

Python 2 , 50 48 bayt

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

Çevrimiçi deneyin!

Sıkıcı yerleşik yok! Şaşırtıcı bir şekilde, bu kaba kuvvet yaklaşımından bile daha kısadır, tüm permütasyonları hesaplar itertoolsve uzunluğu alır.

Bu işlev formülü kullanır

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

ve anında hesaplar. Paydaki faktöryel, len(s)her fonksiyon çağrısında çarpılarak hesaplanır . Payda biraz daha incedir; her çağrıda, dizenin solundaki öğenin oluşum sayısına böleriz ve her karakter için c1 arasındaki tüm sayıların ve c(dahil) oluşumlarının tam olarak bir kez bölünmesini sağlarız. Yalnızca en sonunda böldüğümüz için, Python 2'nin varsayılan kat bölümü ile ilgili herhangi bir sorun yaşamamamız garanti edilir.

05AB1E , 3 bayt

œÙg

Çevrimiçi deneyin!

açıklama

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

CJam , 4 bayt

le!,

Çevrimiçi deneyin!

açıklama

Satırı bir dize ( l), bir dizi ( e!), uzunluk ( ,), örtük ekran olarak benzersiz permütasyonlar olarak okuyun .

R , 69 65 bayt

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

Çevrimiçi deneyin!

Her iki cevapta da Zahiro Mor sayesinde 4 bayt tasarruf etti .

Multinom katsayısını doğrudan hesaplar.

R , 72 68 bayt

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

Çevrimiçi deneyin!

Çok dmultinomterimli katsayıyı çıkarmak için sağlanan çok terimli dağıtım işlevini kullanır .

Her zamanki (golfçü) bilinmeyen bir nedenden ötürü çağrı x<-table(strsplit(s,""))içinde çalışmaz dmultinom.

JavaScript (Node.js) , 49 bayt

t=t*tüm ara (operatör açısından) sonuçların tam sayı olmasını garanti ettiği t*=için yuvarlama hatasını ( |tsayı aşağı yuvarlar) önlemek için kullanılır t=t*.

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

Çevrimiçi deneyin!

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 bayt

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

Çevrimiçi deneyin!

Sonucu tekliton olarak döndürür.

Japt , 5 3 bayt

@Shaggy sayesinde -2 bayt

á l

Çevrimiçi deneyin!

J , 15 , 14 bayt

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

Çevrimiçi deneyin!

FrownyFrog sayesinde -1 bayt

Jöle , 4 bayt

Œ!QL

Çevrimiçi deneyin!

Basitçe sorulan şeyi yapar: giriş permütasyonlarını bulun, ayırın ve uzunluğu yazdırın.

C # (Görsel C # Etkileşimli Derleyici) , 59 bayt

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

Limanı @ArBo 's Python 2 cevap .

Çevrimiçi deneyin.

Brachylog , 3 bayt

pᶜ¹

Çevrimiçi deneyin!

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

pᵘl hemen hemen aynı şeyi yapıyor.

Python 2 , 57 bayt

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

Çevrimiçi deneyin!

Kendi kendine belgeleme: Giriş dizesinin benzersiz permütasyonlar kümesinin uzunluğunu döndürün.

Python 3 , 55 bayt

Kredi bu konuda ArBo'ya gidiyor :

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

Çevrimiçi deneyin!

APL (Dyalog Unicode) , 24 bayt

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

Çevrimiçi deneyin!

Basit Dfn, bir dizgeyi bağımsız değişken olarak alır.

Nasıl:

⎕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 bayt

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

Çevrimiçi deneyin!

Perl 5 , 43 bayt

@ ArBo'nun Python cevabındaki yöntemi kullanır.

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

Çevrimiçi deneyin!

Perl 6 , 33 30 karakter ( 34 31 bayt)

Oldukça düz ileri Whateverblok. combdizgiyi harflere böler, permutationstüm olası kombinasyonları alır. Önce zorlamanın düzenlenmesi Setgerektiği için join( listedeki her bir öğe için »geçerlidir join).

+*.comb.permutations».join.Set

Çevrimiçi deneyin!

(önceki yanıt kullanıldı, .uniqueancak Setbenzersizliği garanti ediyor ve aynısını sayısallaştırıyor, böylece 3 kaydediyor).

K (ok) , 12 bayt

Çözüm:

#?x@prm@!#x:

Çevrimiçi deneyin!

Açıklama:

Dahili OK kullanır prm:

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

... x^/:xtemelde "helo"değil "hello", sadece permütasyonları üretir , bu yüzden permütasyonları üretmemiz 0 1 2 3 4, bunları endekslemek için kullanmamız "hello"ve benzersiz olanın sayısını almamız gerekir.

#?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, 103102 bayt

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

Bağlantı Noktası @ArBo 's Python 2 cevap . @ OlivierGrégoire'a özyinelemeli yerine yinelemeli olarak
-1 bayt .

Çevrimiçi deneyin.

Aslında bir Sette tüm benzersiz permütasyonları üretmek ve boyutunu elde etmek 221 bayt olacaktır :

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

Çevrimiçi deneyin.

MATL , 9 bayt

jY@XuZy1)

Çevrimiçi deneyin!

Açıklama:

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

Oktav / MATLAB, 35 bayt

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

Bir karakter vektörü alan ve bir sayı üreten anonim işlev.

MATLAB'de bu size(unique(perms(s),'ro'),1)(33 bayt) kısaltılabilir .

Çevrimiçi deneyin!

açıklama

@(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 bayt

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

Çevrimiçi deneyin! @ ArBo formülünü kullanır, ancak sağdan sola doğru değerlendirir, çünkü bu, tamsayı aritmetiğinde yapılabilirken, ilgili tek değerlerin boyutunu en aza indirir. Açıklama:

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

Her karakter için, kalan kopyaların sayısını ve kaç tane daha karakter olduğunu sayın, mevcut karakteri dikkate almak için her birine bir tane ekleyin ve değerleri ayırın, böylece hangilerinin bölüneceğini ve hangilerinin çarpılacağını biliyoruz .

^
1

Tam bir ifade üretmek için a 1 önekini ekleyin.

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

Son ikinci sayıya bölünürken son ve üçüncü son sayıları tekrar tekrar çarpın. Bu, son üç sayının yerini alır.

1

Ondalık biçime dönüştür.

K, 27 bayt

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

K, 16 bayt - gerçek bir cevap değil

#?(999999#0N)?\:

Giriş dizesinin 999999 rasgele permütasyonunu alın, benzersiz kümesini alın ve uzunluğu sayın. Çoğu zaman kısa devre dizeleri için doğru cevabı verecektir.

@Sriotchilism O'Zaic, @Selcuk sayesinde geliştirildi

Wolfram Dili (Mathematica) , 32 bayt

Characters/*Permutations/*Length

Çevrimiçi deneyin!

Açıklama: Sağ kompozisyon, /*bu üç operatörü birbiri ardına fonksiyon argümanına soldan sağa uygular:

• Characters giriş dizesini bir karakter listesine dönüştürür.

• Permutations bu karakter listesinin tüm benzersiz permütasyonlarının bir listesini yapar.

• Length bu benzersiz permütasyonlar listesinin uzunluğunu döndürür.

Bu yöntem uzun dizeler için çok israftır: benzersiz permütasyonlar, Multinomialnumaralarını listeleme olmadan hesaplamak için a kullanmak yerine, aslında listelenir ve sayılır .

F # (Mono) , 105 bayt

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

Çevrimiçi deneyin!

Pyth , 5 4 bayt

l{.p

Çevrimiçi deneyin!

Bu, girdinin bir python dizesi değişmezi olduğunu varsayar. Girişin ham metin olması gerekiyorsa, bu 5 baytlık sürüm çalışır:

l{.pz

Her iki şekilde de, girdinin tüm permütasyonlarını bir liste olarak hesaplar, tekilleştirir ve içindeki eleman sayısını alır ve bu sayıyı dolaylı olarak yazdırır.

@ Hakr14 sayesinde -1 bayt

J , 14  13 bayt

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

Çevrimiçi deneyin!

Mil sayesinde 1 bayt

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

PHP , 77 bayt

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

Çevrimiçi deneyin!

Bu temelde @ ArBo'nun kazanan Python cevabının sadece bir PHP portu . Bravo!

Ohm v2 , 4 bayt

ψD∩l

Çevrimiçi deneyin!

açıklama

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

Stax , 3 bayt

═1╪

Çalıştır ve hata ayıkla