ฉันเห็นความท้าทายที่สำคัญอีกอย่างหนึ่งที่มาจาก PPCG และฉันรักฉันในช่วงเวลาที่เหมาะสม จากนั้นฉันก็อ่านข้อความเกริ่นนำผิดและสงสัยในสิ่งที่สมองสร้างสรรค์ได้เกิดขึ้น

ปรากฎว่าคำถามที่ถูกวางเป็นเรื่องเล็กน้อย แต่ฉันสงสัยว่าเหมือนกันกับคำถามที่ฉันอ่านผิด (mis):

6 สามารถแทนด้วย 2 ^ 1 * 3 ^ 1 และ 50 สามารถแทนได้ด้วย 2 ^ 1 * 5 ^ 2 (โดยที่ ^ หมายถึง exponention)

งานของคุณ:

เขียนโปรแกรมหรือฟังก์ชั่นเพื่อกำหนดจำนวนช่วงเวลาที่แตกต่างกันในการแทนตัวเลข

การป้อนข้อมูล:

จำนวนเต็ม n เช่นที่ 1 <n <10 ^ 12 ถ่ายโดยวิธีปกติ

เอาท์พุท:

จำนวนเฉพาะช่วงเวลาที่จำเป็นต้องใช้เพื่อแสดงถึงปัจจัยเฉพาะที่สำคัญของ 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]&

ลองออนไลน์!

ขอบคุณ Martin Ender (-11 ไบต์)

05AB1E , 9 7 ไบต์

บันทึก 2 ไบต์ขอบคุณKevin Cruijssen

Ó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 ~ โปรแกรมเต็มรูปแบบ

factorF ~ การแยกตัวประกอบเฉพาะเป็นคู่ [นายก, เลขชี้กำลัง]
  F ~ แผ่
   Q ~ ซ้ำซ้อน
    eachP ~ สำหรับแต่ละคนให้ตรวจสอบว่ามันยอดเยี่ยมหรือไม่ 1 ถ้าเป็นจริง, 0 ถ้าเป็นเท็จ
      S ~ Sum

Gaiaขนาด 6 ไบต์

ḋ_uṗ¦Σ

ลองออนไลน์!

• ḋ คำนวณตัวประกอบที่สำคัญเช่น[นายกตัวแทน]คู่

• _ ทำให้รายการเรียบ

• u ลบองค์ประกอบที่ซ้ำกัน

• ṗ¦แม็พผ่านอิลิเมนต์และส่งคืน1หากพบไพรม์, 0 เป็นอย่างอื่น

• Σ สรุปรายการ

CJam (13 ไบต์)

{mFe__&:mp1b}

ชุดทดสอบออนไลน์

นี่ตรงไปตรงมา: รับจำนวนเฉพาะด้วยหลายหลากลดค่าที่แตกต่างกำหนดช่วงกรองนับ

Sadly Martinชี้ให้เห็นบางกรณีที่ไม่ได้รับการจัดการโดยเคล็ดลับที่น่าสนใจอย่างอ่อนโยนในคำตอบดั้งเดิมของฉันแม้ว่าเขาจะให้การประหยัด 1 ไบต์โดยการสังเกตว่าตั้งแต่mpให้0หรือ1สามารถแมปแทนที่จะกรอง

โอห์ม v2 , 6 5 ไบต์

-1 ไบต์ต้องขอบคุณ @ Mr.Xcoder

ä{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

Python 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

ลองออนไลน์!

แก้ไข:บันทึก 1 ไบต์ขอบคุณที่Zgarb

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

ลองออนไลน์!

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}