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シーケンスではありません。

得点：

これはcode-golfで、バイト単位の最低スコアが勝ちます！

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〜[素数、指数]ペアとしての素因数分解。
  F〜平坦化。
   Q〜重複排除。
    ÆP〜それぞれについて、素数かどうかを確認します。Trueの場合は1、Falseの場合は0。
      S〜合計。

Gaia、6バイト

ḋ_uṗ¦Σ

オンラインでお試しください！

• ḋ 素因数分解を[素数、指数]のペアとして計算します。

• _ リストをフラット化します。

• u 重複する要素を削除します。

• ṗ¦要素をマップし、素数が見つかった場合は1を返し、そうでない場合は0を返します。

• Σ リストを合計します。

CJam（13バイト）

{mFe__&:mp1b}

オンラインテストスイート

これは非常に簡単です。多重度で素数を取得し、個別の値に減らし、素数をフィルタリングし、カウントします。

悲しいことにマーティンは、彼はまた以来のことを観察することによって1バイトの節約を提供しなかったが、私のオリジナルの答えで穏やかに面白いトリックによって処理されなかったいくつかの例を指摘mpできます0か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)))

オンラインでお試しください！

Husk、 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バイトバージョン： ḋọ{∋∋ṗ}ᶜ¹

Ruby -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'

手で数えるので笑これがオフか教えてください。

ゴルフの提案はありますか？

退屈な提出：素因数分解表をフラット化して素数を数えます。

パリ/ GP、47バイト

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

オンラインでお試しください！

JavaScript（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}