Tôi đã thấy một thách thức chính khác xảy ra trong PPCG, và tôi yêu tôi một số nguyên tố. Sau đó, tôi đọc sai văn bản giới thiệu, và tự hỏi những gì bộ não sáng tạo ở đây đã nghĩ ra.

Hóa ra câu hỏi được đặt ra là tầm thường, nhưng tôi tự hỏi liệu điều đó có đúng với câu hỏi tôi (mis) đọc không:

6 có thể được biểu thị bằng 2 ^ 1 * 3 ^ 1 và 50 có thể được biểu thị bằng 2 ^ 1 * 5 ^ 2 (trong đó ^ biểu thị số mũ).

Nhiệm vụ của bạn:

Viết chương trình hoặc hàm để xác định có bao nhiêu số nguyên tố khác nhau trong biểu diễn số này.

Đầu vào:

Một số nguyên n sao cho 1 <n <10 ^ 12, được lấy bởi bất kỳ phương thức bình thường nào.

Đầu ra:

Số lượng các số nguyên tố riêng biệt được yêu cầu để biểu diễn các thừa số nguyên tố duy nhất của n.

Các trường hợp thử nghiệm:

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)

Đây không phải là một chuỗi OEIS.

Ghi điểm:

Đây là môn đánh gôn , điểm số thấp nhất tính bằng byte!

Toán học, 39 byte

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

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

cảm ơn Martin Ender (-11 byte)

05AB1E , 9 7 byte

Đã lưu 2 byte nhờ Kevin Cruijssen

ÓsfìÙpO

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

Giải trình

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

&YFhuZpz

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

Thạch ,  9  7 byte

ÆFFQÆPS

Hãy thử trực tuyến! hoặc Kiểm tra bộ thử nghiệm.

Làm sao?

FFQÆPS ~ Chương trình đầy đủ.

ÆF ~ Hệ số nguyên tố là cặp [số nguyên tố, số mũ].
  F ~ Làm phẳng.
   Q ~ Không trùng lặp.
    P ~ Đối với mỗi, kiểm tra xem nó có phải là số nguyên tố không. 1 nếu đúng, 0 nếu sai.
      S ~ Tổng.

Gaia , 6 byte

ḋ_uṗ¦Σ

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

• ḋ tính toán thừa số nguyên tố, như các cặp [số nguyên tố, số mũ] .

• _ làm phẳng danh sách.

• u loại bỏ các yếu tố trùng lặp.

• ṗ¦ánh xạ qua các phần tử và trả về 1 nếu tìm thấy một số nguyên tố, 0 nếu không.

• Σ tổng hợp danh sách.

CJam (13 byte)

{mFe__&:mp1b}

Bộ kiểm tra trực tuyến

Điều này khá đơn giản: lấy các số nguyên tố với bội số, giảm đến các giá trị riêng biệt, các số nguyên tố lọc, số đếm.

Đáng buồn thay Martin đã chỉ ra một số trường hợp không được xử lý bởi thủ thuật khá thú vị trong câu trả lời ban đầu của tôi, mặc dù anh ta cũng cung cấp tiết kiệm 1 byte bằng cách quan sát rằng từ khi mpđưa ra 0hoặc 1nó có thể được ánh xạ thay vì được lọc.

Ohm v2 , 6 5 byte

-1 byte nhờ @ Mr.Xcoder

ä{UpΣ

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

Trên thực tế , 7 byte

w♂i╔♂pΣ

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

Giải trình:

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 byte

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

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

Husk ,  11  10 byte

#ṗuS+omLgp

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

EDIT: Đã lưu 1 byte nhờ Zgarb .

Brachylog , 7 byte

ḋọcdṗˢl

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

           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.

Phiên bản 9 byte thú vị: ḋọ{∋∋ṗ}ᶜ¹

Ruby -rprime , 66 byte

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

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

Bình thường , 15 byte

smP_d{+PQlM.gkP

Hãy thử nó ở đây!

Số R +, 92 byte

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

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

J, 20 byte

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

Đếm bằng tay lol, vì vậy hãy cho tôi biết nếu điều này được tắt.

Bất kỳ đề nghị chơi golf?

Bored nộp: làm phẳng bảng thừa số nguyên tố và đếm số nguyên tố.

Pari / GP , 47 byte

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

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

Javascript (ES6), 145 byte

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}