Đối với một số nguyên dương N đã cho, hãy viết một chương trình hoàn chỉnh để tìm M tự nhiên tối thiểu sao cho tích của các chữ số của M bằng N. N nhỏ hơn 1.000.000.000. Nếu không có M tồn tại, in -1. Mã của bạn không nên mất hơn 10 giây cho bất kỳ trường hợp nào.

Sample Inputs
1
3
15
10 
123456789
32
432
1296

Sample Outputs
1
3
35
25
-1
48
689
2899

Golfscript, 45 43 40 ký tự

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

Thay thế phiên bản không nhóm các số nguyên tố nhỏ thành sức mạnh và lưu 8 ký tự trong khi thực hiện. Lưu ý: 12 = sàn (9 log 10 / log 5).

Lời cảm ơn: hai nhân vật được lưu bằng cách đặt biệt danh cho một mánh khóe từ @mellamokb; 3 lưu với một gợi ý từ @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/

Chỉnh sửa: Ý tưởng đầu vào / đầu ra mượn từ giải pháp khác và logic đầu ra ngắn hơn.

Chỉnh sửa 2: Đã lưu 2 ký tự bằng cách loại bỏ các dấu ngoặc không cần thiết trong forvòng lặp.

Chỉnh sửa 3: Đã lưu 2 ký tự bằng cách viết lại whilevòng lặp dưới dạng ifcâu lệnh với i++.

Chỉnh sửa 4: Đã lưu 2 ký tự bằng cách di chuyển xung quanh và giảm các thao tác trên i.

Chỉnh sửa 5: Chuyển đổi nếu câu lệnh thành định dạng ternary tiết kiệm thêm 2 ký tự.

Chỉnh sửa 6: Lưu 2 ký tự bằng cách di chuyển i--vào phần thực của ternary, xóa ++i.

JavaScript, 88 72 78 74 69 68

for (s = '', i = 2, m = n = prompt (); i <m; i ++) while (! (n% i)) {if (i> 9) {alert (-1); E ( )} n / = i; s + = i} cảnh báo

Chỉnh sửa: Sử dụng ý tưởng từ JavaScript khác, tôi có thể giảm ý tưởng này:

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

Cuối cùng! Một giải pháp 69 ký tự, chỉ sử dụng 1 cho vòng lặp;)

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

Được rồi, cạo đi một dấu phẩy.

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; map {$ m = $ _. $ m, $ d / = $ _ cho đến khi $ d% $ _} đảo ngược 2..9; in $ d-1? -1: $ m || 1

lấy cảm hứng từ mã javascript của mellamokb; có nghĩa là được chạy với một tham số

GolfScript ( 60 57)

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

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

Biên tập

Ok, tôi nghĩ phiên bản này cung cấp đầu ra chính xác cho mọi trường hợp ngay bây giờ :-)

Chỉnh sửa 2

Cạo sạch 3 ký tự cho mỗi đề xuất của @ 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

Có vẻ như thủ thuật tuyệt vời mà @mellamokb sử dụng trong javascript để tránh vòng lặp lồng nhau sẽ dịch tốt sang perl nhưng nó xuất hiện dài dòng hơn nhiều vì bạn không thể sử dụng foreachvòng lặp kiểu nữa. Thật đáng tiếc khi perl không nghĩ rằng mapmột vòng lặp khác redosẽ có ích.

Scala 106 ký tự:

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)

Kiểm tra & Gọi:

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)

Thời gian đáp ứng: ngay lập tức, <1s trên CPU 2Ghz.

Thạch , 18 13 10 byte

×⁵RDP$€io-

Hãy thử trực tuyến!

Giải pháp 13 byte:

×⁵RDP$€iµ’¹¬?

Hãy thử trực tuyến!

Giải thích với đầu vào 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

Giải pháp 18 byte:

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

Hãy thử trực tuyến!

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

Liên kết cuối cùng chỉ để thay thế 0 (giá trị falsey mặc định của Jelly, vì tất cả các danh sách đều được lập chỉ mục một) bằng -1. Nếu bạn coi 0 là một giá trị falsey OK, chương trình là 8 byte .

Hồng ngọc (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)

Hãy thử trực tuyến!

Chỉ vì chưa có câu trả lời của Python. Thật sự đau đớn khi thiếu chuyển đổi kiểu ngầm giữa chuỗi và int.