Widziałem kolejne główne wyzwanie w PPCG i bardzo mi się podobają. Potem źle przeczytałem tekst wprowadzający i zastanawiałem się, co wymyślili tutaj twórczy mózg.

Okazuje się, że postawione pytanie było trywialne, ale zastanawiam się, czy to samo dotyczy pytania, które (źle) przeczytałem:

6 może być reprezentowane przez 2 ^ 1 * 3 ^ 1, a 50 może być reprezentowane przez 2 ^ 1 * 5 ^ 2 (gdzie ^ oznacza eksponencję).

Twoje zadanie:

Napisz program lub funkcję, aby określić, ile różnych liczb pierwszych znajduje się w tej reprezentacji liczby.

Wejście:

Liczba całkowita n taka, że ​​1 <n <10 ^ 12, przyjęta dowolną normalną metodą.

Wynik:

Liczba różnych liczb pierwszych wymaganych do reprezentowania unikalnych czynników pierwszych n.

Przypadki testowe:

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)

To nie jest sekwencja OEIS.

Punktacja:

To jest golf-golf, najniższy wynik w bajtach wygrywa!

Mathematica, 39 bajtów

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

Wypróbuj online!

dzięki Martinowi Enderowi (-11 bajtów)

05AB1E , 9 7 bajtów

Zaoszczędzono 2 bajty dzięki Kevinowi Cruijssenowi

ÓsfìÙpO

Wypróbuj online!

Wyjaśnienie

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

&YFhuZpz

Wypróbuj online!

Galareta ,  9  7 bajtów

ÆFFQÆPS

Wypróbuj online! lub Sprawdź pakiet testowy.

W jaki sposób?

ÆFFQÆPS ~ Pełny program.

ÆF ~ Pierwotne faktoryzacja jako pary [liczba pierwsza, wykładnik].
  F ~ Spłaszcz.
   Q ~ deduplikacja.
    ÆP ~ Dla każdego sprawdź, czy jest to liczba pierwsza. 1 jeśli prawda, 0 jeśli fałsz.
      S ~ Sum.

Gaia , 6 bajtów

ḋ_uṗ¦Σ

Wypróbuj online!

• ḋ oblicza pierwszą faktoryzację jako pary [liczba pierwsza, wykładnik] .

• _ spłaszcza listę.

• u usuwa zduplikowane elementy.

• ṗ¦odwzorowuje elementy i zwraca 1, jeśli zostanie znaleziona liczba pierwsza, 0 w przeciwnym razie.

• Σ podsumowuje listę.

CJam (13 bajtów)

{mFe__&:mp1b}

Zestaw testów online

Jest to dość proste: uzyskaj liczby pierwsze z wielokrotnościami, zredukuj do różnych wartości, filtruj liczby pierwsze, policz.

Niestety Martin wskazał na niektóre przypadki, które nie zostały rozwiązane przez dość interesującą sztuczkę w mojej oryginalnej odpowiedzi, chociaż zapewnił również 1-bajtową oszczędność, obserwując, że od czasu mpdaje 0lub 1można go zmapować, a nie filtrować.

Ohm v2 , 6 5 bajtów

-1 bajt dzięki @ Mr.Xcoder

ä{UpΣ

Wypróbuj online!

Właściwie 7 bajtów

w♂i╔♂pΣ

Wypróbuj online!

Wyjaśnienie:

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

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

Wypróbuj online!

Łuska ,  11  10 bajtów

#ṗuS+omLgp

Wypróbuj online!

EDYCJA: Zaoszczędził 1 bajt dzięki Zgarb .

Brachylog , 7 bajtów

ḋọcdṗˢl

Wypróbuj online!

           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.

Zabawna 9-bajtowa wersja: ḋọ{∋∋ṗ}ᶜ¹

Rubin -rprime , 66 bajtów

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

Wypróbuj online!

Pyth , 15 bajtów

smP_d{+PQlM.gkP

Wypróbuj tutaj!

R + liczby, 92 bajty

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

Wypróbuj online!

J, 20 bajtów

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

Liczone ręcznie lol, więc powiedz mi, czy to jest wyłączone.

Wszelkie sugestie dotyczące gry w golfa?

Nudne poddanie: spłaszcz tabelę faktoryzacji liczb pierwszych i policz liczby pierwsze.

Pari / GP , 47 bajtów

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

Wypróbuj online!

JavaScript (ES6), 145 bajtów

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}