나는 PPCG에서 또 다른 주요 도전이 오는 것을 보았고 , 나는 소수를 좋아합니다. 그런 다음 소개 텍스트를 잘못 읽고 창의적 두뇌가 무엇을 생각하는지 궁금했습니다.

제기 된 질문은 사소한 것으로 판명되었지만, 내가 읽은 질문에 대해서도 같은지 궁금합니다.

6은 2 ^ 1 * 3 ^ 1로 나타낼 수 있고 50은 2 ^ 1 * 5 ^ 2로 나타낼 수 있습니다 (여기서 ^는 지수를 나타냄).

당신의 작업 :

이 숫자 표현 에 몇 개의 고유 한 소수가 있는지 판별하는 프로그램 또는 함수를 작성하십시오 .

입력:

1 <n <10 ^ 12 인 정수 n은 일반적인 방법으로 가져옵니다.

산출:

n 의 고유 소수 를 나타내는 데 필요한 고유 소수의 수입니다 .

테스트 사례 :

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)

이것은 OEIS 시퀀스가 ​​아닙니다.

채점 :

이것은 코드 골프바이트 단위의 최저 점수가 승리합니다!

Mathematica, 39 바이트

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

온라인으로 사용해보십시오!

마틴 엔더 덕분에 (-11 바이트)

05AB1E , 9 7 바이트

Kevin Cruijssen 덕분에 2 바이트 절약

ÓsfìÙpO

온라인으로 사용해보십시오!

설명

Ó        # 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 바이트

&YFhuZpz

온라인으로 사용해보십시오!

젤리 ,  9  7 바이트

ÆFFQÆPS

온라인으로 사용해보십시오! 또는 테스트 스위트를 확인하십시오.

어떻게?

ÆFFQÆPS ~ 전체 프로그램.

ÆF ~ [prime, exponent] 쌍으로 소수를 분해합니다.
  F ~ 평평.
   Q ~ 중복 제거.
    ÆP ~ 각각에 대해 소수인지 확인하십시오. True이면 1, False이면 0
      S ~ 합계

가이아 , 6 바이트

ḋ_uṗ¦Σ

온라인으로 사용해보십시오!

• ḋ 소인수 분해를 [prime, exponent] 쌍 으로 계산합니다 .

• _ 목록을 평평하게합니다.

• u 중복 요소를 제거합니다.

• ṗ¦요소 반환을 통해지도 한 소수가 발견되면 0 , 그렇지 않으면.

• Σ 목록을 합산합니다.

CJam (13 바이트)

{mFe__&:mp1b}

온라인 테스트 스위트

이것은 매우 간단합니다. 다중성을 가진 소수를 얻고, 고유 한 값으로 줄이고, 소수를 필터링하고, 계산하십시오.

슬프게도 Martin 은 원래의 대답에서 약간 흥미로운 흥미로운 트릭으로 처리되지 않은 일부 사례를 지적했지만, 그 이후로 mp제공 0하거나 1필터링하지 않고 매핑 할 수 있음 을 관찰하여 1 바이트 절약을 제공 했습니다.

옴 v2 , 6 5 바이트

@ Mr.Xcoder 덕분에 -1 바이트

ä{UpΣ

온라인으로 사용해보십시오!

실제로 7 바이트

w♂i╔♂pΣ

온라인으로 사용해보십시오!

설명:

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

파이썬 (2) , 142 (135) 119 바이트

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

온라인으로 사용해보십시오!

껍질 ,  11  10 바이트

#ṗuS+omLgp

온라인으로 사용해보십시오!

편집 : Zgarb 덕분에 1 바이트가 절약되었습니다 .

Brachylog , 7 바이트

ḋọcdṗˢl

온라인으로 사용해보십시오!

           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 바이트 버전 : ḋọ{∋∋ṗ}ᶜ¹

루비 -rprime , 66 바이트

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

온라인으로 사용해보십시오!

Pyth , 15 바이트

smP_d{+PQlM.gkP

여기 사용해보십시오!

R + 숫자, 92 바이트

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

온라인으로 사용해보십시오!

J, 20 바이트

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

손으로 계산하기 때문에 이것이 꺼져 있는지 알려주세요.

골프 제안이 있으십니까?

지루한 제출 : 소인수 분해 표를 평탄화하고 소수를 계산합니다.

Pari / GP , 47 바이트

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

온라인으로 사용해보십시오!

자바 스크립트 (ES6), 145 바이트

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}