PPCG'de bir başka asal zorluğun geldiğini gördüm ve bana bazı asalları seviyorum. Sonra tanıtım metnini yanlış okudum ve buradaki yaratıcı beyinlerin ne bulduğunu merak ettim.

Ortaya çıkan sorunun önemsiz olduğu ortaya çıktı, ama aynı soru okuduğum soru için de doğru mu merak ediyorum:

6, 2 ^ 1 * 3 ^ 1 ile temsil edilebilir ve 50, 2 ^ 1 * 5 ^ 2 ile temsil edilebilir (burada ^, üstel değeri gösterir).

Senin görevin:

Bir sayının bu gösteriminde kaç farklı asal sayı olduğunu belirlemek için bir program veya işlev yazın .

Giriş:

Herhangi bir normal yöntemle alınan 1 <n <10 ^ 12 olacak şekilde n tamsayısı.

Çıktı:

N'nin benzersiz asal faktörlerini temsil etmek için gerekli olan ayrı primerlerin sayısı .

Test senaryoları:

Input      Factorisation      Unique primes in factorisation representation
24         2^3*3^1            2 (2, 3)
126        2^1*3^2*7^1        3 (2, 3, 7)
8          2^3                2 (2, 3)
64         2^6                1 (2) (6 doesn't get factorised further)
72         2^3*3^2            2 (2, 3)
8640       2^6*3^3*5^1        3 (2, 3, 5)
317011968  2^11*3^5*7^2*13^1  6 (2, 3, 5, 7, 11, 13)
27         3^3                1 (3)

Bu bir OEIS dizisi değildir.

puanlama:

Bu kod golf, bayt en düşük puan kazanır!

Mathematica, 39 bayt

Count[Union@@FactorInteger@#,_?PrimeQ]&

Çevrimiçi deneyin!

Martin Ender sayesinde (-11 bayt)

05AB1E , 9 7 bayt

Kevin Cruijssen sayesinde 2 bayt kurtardı

ÓsfìÙpO

Çevrimiçi deneyin!

açıklama

Ó        # push the prime factor exponents of the input
 sfì     # prepend the prime factors of the input
    Ù    # remove duplicates
     p   # check each if it is prime
      O  # sum

MATL , 8 bayt

&YFhuZpz

Çevrimiçi deneyin!

Jöle ,  9  7 bayt

ÆFFQÆPS

Çevrimiçi deneyin! veya Test Paketine göz atın.

Nasıl?

ÆFFQÆPS ~ Tam program.

~F ~ [asal, üs] çiftleri olarak birincil çarpanlara ayırma.
  F ~ Düzleştirin.
   Q ~ Veri tekilleştirme.
    ~P ~ Her biri için asal olup olmadığını kontrol edin. 1 Doğru ise, 0 Yanlışsa.
      S ~ Toplam.

Gaia , 6 bayt

ḋ_uṗ¦Σ

Çevrimiçi deneyin!

• ḋ asal çarpanlarına ayırma işlemini [asal, üs] çiftleri olarak hesaplar .

• _ listeyi düzleştirir.

• u yinelenen öğeleri kaldırır.

• ṗ¦elementler ve döner aracılığıyla haritalar 1 asal bulunursa, 0 aksi.

• Σ listeyi toplar.

CJam (13 bayt)

{mFe__&:mp1b}

Çevrimiçi test takımı

Bu oldukça basittir: çokluklu primerler alın, farklı değerlere azaltın, primerleri filtreleyin, sayın.

Ne yazık ki Martin o da beri bu gözlemleyerek bir 1 baytlık tasarrufu sağlayan rağmen, benim orijinal cevap hafif ilginç hile ile ele alınmamış bazı vakaları işaret mpverir 0ya 1da eşleştirilmiş yerine filtre edilebilir.

Ohm v2 , 6 5 bayt

@ Mr.Xcoder sayesinde -1 bayt

ä{UpΣ

Çevrimiçi deneyin!

Aslında 7 bayt

w♂i╔♂pΣ

Çevrimiçi deneyin!

Açıklama:

w♂i╔♂pΣ
w        factor into [prime, exponent] pairs
 ♂i      flatten to 1D list
   ╔     unique elements
    ♂p   for each element: 1 if prime else 0
      Σ  sum

Python 2 , 142 135 119 bayt

f=lambda n,d=2:n-1and(n%d and f(n,d+1)or[d]+f(n/d))or[]
p=f(input())
print sum(f(n)==[n]for n in set(p+map(p.count,p)))

Çevrimiçi deneyin!

Kabuk ,  11  10 bayt

#ṗuS+omLgp

Çevrimiçi deneyin!

EDIT: Zgarb sayesinde 1 bayt kaydedildi .

Brachylog , 7 bayt

ḋọcdṗˢl

Çevrimiçi deneyin!

           The output
      l    is the length of
  c        the concatenated
 ọ         list of pairs [value, number of occurrences]
ḋ          from the prime factorization of
           the input
   d       with duplicates removed
    ṗˢ     and non-primes removed.

9 baytlık eğlenceli bir sürüm: ḋọ{∋∋ṗ}ᶜ¹

Ruby -rprime , 66 bayt

->n{Prime.prime_division(n).flatten.uniq.count{|i|Prime.prime? i}}

Çevrimiçi deneyin!

Pyth , 15 bayt

smP_d{+PQlM.gkP

Burada deneyin!

R + sayıları, 92 bayt

function(n)sum(1|unique((x=c((r=rle(primeFactors(n)))$l,r$v))[isPrime(x)]))
library(numbers)

Çevrimiçi deneyin!

J, 20 bayt

3 :'+/1 p:~.,__ q:y'

El lol sayılan, bu yüzden bu kapalı olduğunu söyle.

Golf önerileriniz var mı?

Sıkıcı sunum: asal çarpanlara ayırma tablosunu düzleştirin ve asal sayıları sayın.

Pari / GP , 47 bayt

n->#Set(select(isprime,concat(Vec(factor(n)))))

Çevrimiçi deneyin!

Javascript (ES6), 145 bayt

n=>{for(a=[b=l=0],q=n,d=2;q>=2;)q%d?(b&&(a.push(0),l++),d++,b=0):(q/=d,a[l]++,b=1);for(i in a){for(d=1,e=a[i];e%d;d++);e-d||n%e&&l++};return l+1}