กำหนดจำนวนเต็มnส่งคืนจำนวนวิธีที่ n สามารถเขียนเป็นรายการของจำนวนเฉพาะ ยกตัวอย่างเช่น2323สามารถเขียนเป็น(2,3,23), (23,23)หรือ(2,3,2,3)หรือดังนั้นคุณจะเอาท์พุท(23,2,3) หากไม่สามารถเขียนในลักษณะนี้คุณควรเอาท์พุท40

จำนวนเฉพาะเช่น019หรือ00000037เป็นจำนวนเฉพาะที่ถูกต้องสำหรับปัญหานี้

กรณีทดสอบ:

5 -> 1
55 -> 1 
3593 -> 4 (359 and 3, or 3 and 593, or 3 and 59 and 3, or 3593)
3079 -> 2 (3 and 079, or 3079)
119 -> 0 
5730000037 -> 7 (5,7,3,000003,7, 5,7,3,0000037, 5,73,000003,7, 5,73,0000037, 5,73000003,7, 5,7,30000037, 5730000037)
0-> undefined (you do not have to handle this case)

นี่คือโค้ดกอล์ฟดังนั้นคำตอบที่สั้นที่สุดเป็นไบต์ในแต่ละภาษาชนะ!

แก้ไข: ตอนนี้ฉันรู้ว่าทำไมฉันควรใช้ sandbox ในครั้งต่อไป

Haskell , 96 89 ไบต์

บันทึก 5 ไบต์ด้วยการทดสอบแบบดั้งเดิมของ H.PWiz

p x=[1|0<-mod x<$>[2..x]]==[1]
f[]=1
f b=sum[f$drop i b|i<-[1..length b],p$read$take i b]

ลองออนไลน์!

คำอธิบาย

สิ่งแรกที่ทำคือการสร้างฟังก์ชั่นการทดสอบที่สำคัญโดยใช้ทฤษฎีบทของวิลสันโดยใช้ความหมายของนายก

p x=[1|0<-mod x<$>[2..x]]==[1]

fจากนั้นเริ่มต้นกำหนด สิ่งแรกที่ฉันคิดว่าเมื่อฉันเห็นปัญหานี้คือการใช้การเขียนโปรแกรมแบบไดนามิก อย่างไรก็ตามการเขียนโปรแกรมแบบไดนามิกค่าใช้จ่ายไบต์ดังนั้นสิ่งนี้ใช้อัลกอริทึม "การเขียนโปรแกรม psuedo-dynamic" ในขณะที่การเขียนโปรแกรมแบบไดนามิกคุณจะเก็บกราฟ Directed Acyclic ในหน่วยความจำที่นี่เราเพียงแค่ใช้การเรียกซ้ำและคำนวณใหม่แต่ละโหนดทุกครั้งที่เราต้องการ มันเสียประโยชน์ตลอดเวลาของการเขียนโปรแกรมแบบไดนามิก แต่นี่คือcode-golfดังนั้นใครสนใจ (ยังดีกว่าการค้นหาแบบ brute force)

อัลกอริทึมดังต่อไปนี้เราสร้างกราฟ Acyclic Directed, Lซึ่งแต่ละโหนดแสดงซับสตริงของตัวเลข โดยเฉพาะL _iหมายถึงตัวเลขiหลักสุดท้ายของอินพุตของเรา (เรียกว่าn )

เรากำหนดL ₀ให้มีค่า 1 และค่าอื่น ๆ ในLเพื่อให้ได้ผลรวมของแต่ละL _jเช่นนั้นj <iและซับสตริงของnจากiถึงjเป็นไพรม์

หรือในสูตร:

จากนั้นเราจะกลับค่าที่ดัชนีที่ใหญ่ที่สุดที่ใหญ่ที่สุดของL ( L _kโดยที่kคือจำนวนหลักของn )

เยลลี่ 8 ไบต์

ŒṖḌÆPẠ€S

ลองออนไลน์!

-1 ไบต์ขอบคุณ Leaky Nun
-1 ไบต์ขอบคุณเดนนิส

คำอธิบาย

ŒṖḌÆPẠ€S  Main Link
ŒṖ        List Partitions (automatically converts number to decimal digits)
  Ḍ       Convert back to integers (auto-vectorization)
   ÆP     Are they primes? (auto-vectorization)
     Ạ€   For each, are they all truthy (were the numbers all primes?); 1/0 for truthy/falsy
       S  Sum; gets number of truthy elements

Brachylogขนาด 10 ไบต์

ṫ{~cịᵐṗᵐ}ᶜ

ลองออนไลน์!

ก่อนอื่นṫแปลงอินพุตเป็นสตริง นับจำนวนของผลที่เป็นไปได้สำหรับ{…}ᶜ…

ภายใน{…}การส่งออกของจะถูกป้อนเข้าṫ ~cเอาต์พุตของเพรดิเคตนี้เป็นไปตามที่พอใจเมื่อตัดแบ่งแล้วเท่ากับอินพุต นี่ถูกป้อนเข้าịᵐซึ่งระบุว่าเอาต์พุตของมันคืออินพุตกับแต่ละสตริงที่แปลงเป็นจำนวนเต็ม ṗᵐระบุว่าการป้อนข้อมูลประกอบด้วยจำนวนเฉพาะ

Pyth , 13 ไบต์

lf.AmP_sdT./`

ชุดทดสอบ

Python 2 , 105 95 91 ไบต์

f=lambda n:sum(0**k|f(n%10**k)for k in range(n)if sum(n/10**k%j<1for j in range(1,n+2))==2)

นี้เป็นมากช้า

ลองออนไลน์!

Python 2 , 161 ไบต์

lambda n:sum(all(d>1and all(d%i>0for i in range(2,d))for d in v)for v in g(`n`))
g=lambda s:[[int(s[:i])]+t for i in range(1,len(s))for t in g(s[i:])]+[[int(s)]]

ลองออนไลน์!

ฟังก์ชันgสร้างพาร์ติชันแบบเรียกซ้ำ (ใช้สตริงเป็นอินพุต แต่เอาต์พุตรายการรายการ int) รหัสที่เหลือส่วนใหญ่จะใช้เพื่อเป็น 'is dprime?'

Gaiaขนาด 12 ไบต์

₸B¦ṗ¦Π
$ḍ↑¦Σ

ลองออนไลน์!

ทำความสะอาด , 199 141 131 ไบต์

import StdEnv
?n|n<2=0|and[gcd n i<2\\i<-[2..n-1]]=1=0
@n#s=toString n
#f=toInt o(%)s
= ?n+sum[@(f(0,i))\\i<-[0..n]| ?(f(i+1,n))>0]

ลองออนไลน์!

J , 65 64 ไบต์

(1#.[:*/"1*/@>)@(#`(1,.[:#:[:i.2^#-1:)@.(1<#)(1:p:&.>".);.1])@":

ลองออนไลน์!

Pyth, 12 ไบต์

lf*FmP_sdT./    

รับอินพุตเป็นจำนวนเต็มเอาต์พุต TrueหรือFalse

ลองออนไลน์!