Untuk bilangan bulat positif N yang diberikan, tulislah program lengkap untuk menemukan M natural minimal sehingga produk digit M sama dengan N. N kurang dari 1.000.000.000. Jika tidak ada M, cetak -1. Kode Anda tidak boleh lebih dari 10 detik untuk kasus apa pun.

Sample Inputs
1
3
15
10 
123456789
32
432
1296

Sample Outputs
1
3
35
25
-1
48
689
2899

Golfscript, 45 43 40 karakter

~9{{1$1$%!{\1$/1$}*}12*(}8*>{];-1}*]$1or

Mengganti versi yang tidak mengelompokkan bilangan prima kecil menjadi kekuatan dan menyimpan 8 karakter saat melakukannya. Catatan: 12 = lantai (9 log 10 / log 5).

Ucapan Terima Kasih: dua karakter disimpan dengan membuat trik dari @mellamokb; 3 disimpan dengan petunjuk dari @Nabb.

Javascript ( 84 78 76 74 72 70 68)

n=prompt(m="");for(i=9;i-1;)n%i?i--:(m=i+m,n/=i);alert(n-1?-1:m?m:1)

http://jsfiddle.net/D3WgU/7/

Sunting: Gagasan input / output yang dipinjam dari solusi lain, dan logika output yang lebih pendek.

Sunting 2: Disimpan 2 karakter dengan menghapus kawat gigi yang tidak dibutuhkan dalam forlingkaran.

Sunting 3: Disimpan 2 karakter dengan menulis ulang whilelingkaran sebagai ifpernyataan dengan i++.

Sunting 4: Disimpan 2 karakter dengan bergerak di sekitar dan mengurangi operasi i.

Sunting 5: Konversikan jika pernyataan ke format terner menyimpan 2 karakter lagi.

Sunting 6: Simpan 2 karakter dengan pindah i--ke bagian terner yang sebenarnya, hapus ++i.

JavaScript, 88 72 78 74 69 68

untuk (s = '', i = 2, m = n = prompt (); i <m; i ++) sementara (! (n% i)) {if (i> 9) {alert (-1); E ( )} n / = i; s + = i} lansiran

Sunting: Menggunakan ide dari JavaScript lain, saya dapat menguranginya menjadi ini:

for(s='',i=9,n=prompt();i>1;i--)for(;!(n%i);n/=i)s=i+s;alert(n-1?-1:s?s:1)

Akhirnya! Solusi 69 karakter, hanya menggunakan 1 untuk loop;)

for(s='',i=9,n=prompt();i>1;n%i?i--:[n/=i,s=i+s]);alert(n-1?-1:s?s:1)

Oke, mencukur satu koma.

for(i=9,n=prompt(s='');i>1;n%i?i--:[n/=i,s=i+s]);alert(n-1?-1:s?s:1)

awk ( 63 61 59 58 57)

{for(i=9;i>1;$1%i?i--:($1/=i)<o=i o);print 1<$1?-1:o?o:1}

Perl (75) (72)

$ d = shift; peta {$ m = $ _. $ m, $ d / = $ _ hingga $ d% $ _} terbalik 2..9; cetak $ d-1? -1: $ m || 1

terinspirasi oleh kode javascript mellamokb; dimaksudkan untuk dijalankan dengan parameter

GolfScript ( 60 57)

~[{9,{)}%{\.@%!},)\;.@@/.9>2$1>&}do])[.])@@{1>},+\9>[-1]@if$

~{9,{)}%{\.@%!},)\;.@@/.9>2$1>&}do])[.])@@{1>},+$\9>-1@if

Edit

Ok, saya pikir versi ini memberikan output yang benar untuk setiap kasus sekarang :-)

Edit 2

Mencukur 3 karakter per saran dari Peter.

Haskell

f n=head([m|m<-[1..10^9],product(map(read.return)$show m)==n]++[-1])

Windows PowerShell, 87

if(($n="$args")-le1){$n;exit}(-1,-join(9..2|%{for(;!($n%$_)){$_;$n/=$_}}|sort))[$n-eq1]

Perl (68)

$x=pop;map{$_-=11;$x/=$_,$@=-$_.$@until$x%$_}1..9;print!$x?-1:$@||1

Ini tampaknya seperti trik mengagumkan yang menggunakan @mellamokb di javascript untuk menghindari loop bersarang akan menerjemahkan dengan baik untuk perl tetapi keluar jauh lebih verbose karena Anda tidak dapat menggunakan foreachgaya lingkaran lagi. Sayang sekali bahwa perl tidak berpikir mapbahwa loop lain redoakan berguna.

scala 106 chars:

def p(n:Int,l:Int=9):List[Int]=if(n<=9)List(n)else
if(l<2)List(-1)else
if(n%l==0)l::p(n/l,l)else
p(n,l-1)

Tes & Doa:

scala> val big=9*9*9*8*8*8*7*7*7*5*3 
big: Int = 1920360960

scala> p(big)                        
res1: List[Int] = List(9, 9, 9, 8, 8, 8, 7, 7, 7, 5, 3)

Waktu respons: segera, <1dt pada 2Ghz CPU.

Jelly , 18 13 10 byte

×⁵RDP$€io-

Cobalah online!

Solusi 13-byte:

×⁵RDP$€iµ’¹¬?

Cobalah online!

Penjelasan dengan input N:

׳R              create a range from 1 to N * 100 (replace ³ with ⁵ for a faster execution time)
   DP$           define a function ($) to get the product of the digits of a number,
      €          apply that function to each element in the list,
       iµ        get the index of the input N in the list (or 0 if it's not there), and yeild it as the input to the next link,
         ’¹¬?    conditional: if the answer is 0, then subtract one to make it -1, otherwise, yeild the answer

Solusi 18-byte:

D×/
×⁵RÇ€i
Ç⁾-1¹¬?

Cobalah online!

D×/        product of digits function, takes input M
D          split M into digits,
 ×/        reduce by multiplication (return product of digits)

×⁵RÇ€i     range / index function
×⁵R        make a range from 1 to N*10,
   ǀ      run the above function on each of the range elements,
     i     get the index of N in the result, or 0 if it's not there

Ç⁾-1¹¬?    main function:
Ç    ¬?    run the line above and check if the answer is null (0)
 ⁾-1       if it is, return "-1",
    ¹      otherwise, return the answer (identity function).

Tautan terakhir hanya untuk mengganti 0 (nilai falsey default Jelly, karena semua daftar diindeks satu) dengan -1. Jika Anda menganggap 0 nilai falsey OK, programnya adalah 8 byte .

Ruby (100)

n=gets.to_i;(d=1..9).map{|l|[*d].repeated_combination(l){|a|a.reduce(:*)==n&&(puts a*'';exit)}};p -1

Python 2 , 89 byte

f=lambda n,a=0,u=1,i=9:n<2and(a or 1)or-(i<2)or n%i<1and f(n/i,a+i*u,u*10)or f(n,a,u,i-1)

Cobalah online!

Hanya karena belum ada jawaban Python. Benar-benar menyakitkan karena tidak memiliki konversi tipe implisit antara string dan int.