Tantangan:

Anda diberi string yang hanya berisi digit. Tugas Anda adalah menampilkan jumlah minimum bilangan prima yang harus disatukan untuk membentuk string. Jika ini tidak mungkin, hasilkan 0.

Kasus uji:

Input -> Output:

252 -> 3
235 -> 2
92 -> 0
31149 -> 2

JavaScript (ES6), 123 121 120 byte

f=(s,v)=>(p=n=>--n-1?s%n&&p(n):1)(s)||[...s].map((_,i)=>!(n=i&&(a=f(s.slice(0,i)))&&(b=f(s.slice(i)))&&a+b)|n>v?0:v=n)|v

Menyimpan satu byte berkat @Neil!

Penjelasan

Mengambil string tunggal sebagai input. Karena metode pemeriksaan utama (divisi uji rekursif), jumlah terbesar yang dapat diperiksa dengan aman adalah 13840. Beberapa nomor di atas ini akan gagal karena ukuran tumpukan panggilan maksimum yang terlampaui. Namun, selesai secara instan untuk setiap kasus yang dapat ditangani.

f=(s,v)=>
  (p=n=>--n-1?s%n&&p(n):1)(s) // if s is prime, return 1
  ||[...s].map((_,i)=>        // else for each index in s, split s into 2
    !(n=i&&                   // v = return value (initialised to undefined)
      (a=f(s.slice(0,i)))&&
      (b=f(s.slice(i)))&&
      a+b
    )|n>v?0:v=n               // if i, a, b and n are all > 0 and !(n > v), v = n
  )|v                         // cast v to an integer and return it

// Test
var testCases = [ "252", "235", "92", "3149", "24747" ];
document.write("<pre>" + testCases.map(c => c + ": " + f(c)).join("\n"));

MATL , 26 24 byte

0in:"GUtZq@Z^V10ZA=a?x@.

Diperlukan beberapa detik untuk beberapa kasus uji.

Cobalah online!

Penjelasan

0       % Push 0
in:     % Take input. Generate array [1,2,...,N] where N is input length
"       % For each. In each iteration the number of used primes is increased
  GU    %   Push input. Convert to number
  tZq   %   Duplicate. Array of primes smaller than the input
  @     %   Push number of primes to bes tested in this iteration
  Z^    %   Cartesian power
  V     %   Convert to 2D array. Each row is a combination of primes
  10ZA  %   Convert each row to base 10, disregarding spaces
  =a    %   Do any of the results equal the input number? 
  ?     %   If so
    x   %     Remove the 0 that's at the bottom of the stack
    .   %     Break for each loop
        %   Implicitly end if
        % Implicitly end for each
        % Implicitly display

Pyth, 16 byte

lhaf!f!P_sYT./zY

Suite uji

Penjelasan untuk diikuti.

Pyth - 19 17 16 byte

lhf.AmP_sdTa./zY

Test Suite .

Bash + coreutils, 169 158 149 byte

c()
{
test $1||echo a
for i in `seq ${#1}`
do factor ${1::$i}|grep -q ': \w*$'&&printf b%s\\n `c ${1:$i}`
done
}
c $1|sort|sed '/a/!d;s/..//;q'|wc -c

Kami menghitung secara unary, menghasilkan garis dengan satu buntuk setiap prime dan berakhir apada akhir baris (sehinggaprintf memiliki token untuk bekerja dengan).

Tes primality adalah factor $n | grep -q ': \w*$' , yang menentukan apakah angka tersebut memiliki tepat satu faktor utama.

Kami membagi input secara rekursif; jika setengah kiri adalah prima, kami menyaring hasil dari setengah kanan dengan menambahkan satu ke setiap nilai. Kembalia untuk input panjang nol akan mengakhiri rekursi.

Akhirnya, kami mengambil semua hasil dan mengurutkan untuk menemukan yang terpendek (mengabaikan semua yang tidak memiliki a indikasi keberhasilan); kita harus menghapus dua (untuk yang disisipkana dan untuk baris baru), lalu hitung karakter untuk memberikan hasilnya.

Tes

$ for i in 252 235 92 31149 111; do echo "$i:"$'\t'"$(./77623.sh $i)"; done
252:    3
235:    2
92:     0
31149:  2
111:    0

Saya menambahkan 111ke tes untuk menunjukkan yang 1benar dianggap non-prime.

Mathematica, 142 135 byte

Min[Length/@Select[Join@@@Permutations/@IntegerPartitions@Length[a=#],And@@PrimeQ@*FromDigits/@a~Internal`PartitionRagged~#&]]/.∞->0&

Seperti yang Anda lihat, Mathematica tidak dibuat untuk tugas ini. Mengambil daftar digit.