给定一个整数n，返回可以将n写入质数列表的方式数。例如，2323可以书面(2,3,23)，(23,23)或(2,3,2,3)或者(23,2,3)，所以你会输出4。如果无法以这种方式编写，则应输出0。

质数，例如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)

这是代码高尔夫球，因此每种语言中以字节为单位的最短答案都胜出！

编辑：现在我知道为什么我下次应该使用沙箱

Haskell，96 89字节

H.PWiz的素数测试节省了5个字节

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。看到此问题时，我想到的第一件事就是使用动态编程。但是，动态编程会占用字节数，因此使用“伪动态编程”算法。在动态编程中，您将有向无环图存储在内存中，在这里我们只使用递归并在需要时重新计算每个节点。它失去了动态编程的所有时间优势，但这是代码高尔夫，所以谁在乎。（尽管比蛮力搜索更好）

该算法如下，我们构造了一个有向非循环图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字节感谢Dennis

说明

ŒṖḌÆ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以递归方式创建分区（它将字符串作为输入，但输出整数列表的列表）。其余大多数代码仅用于实现“是d素数？”。

盖亚 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

在线尝试！