สำหรับจำนวนเต็มบวกที่กำหนด N ให้เขียนโปรแกรมที่สมบูรณ์เพื่อหาค่า M ธรรมชาติน้อยที่สุดซึ่งผลคูณของ M เท่ากับ N N น้อยกว่า 1,000,000,000 หากไม่มี M ให้พิมพ์ -1 รหัสของคุณไม่ควรเกิน 10 วินาทีไม่ว่ากรณีใด ๆ

Sample Inputs
1
3
15
10 
123456789
32
432
1296

Sample Outputs
1
3
35
25
-1
48
689
2899

Golfscript, 45 43 40 ตัวอักษร

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

แทนที่เวอร์ชันที่ไม่ได้จัดกลุ่มช่วงเวลาเล็ก ๆ ให้เป็นพลังและบันทึก 8 ตัวอักษรในขณะที่ทำเช่นนั้น หมายเหตุ: 12 = floor (9 บันทึก 10 / บันทึก 5)

กิตติกรรมประกาศ: บันทึกตัวละครสองตัวโดยการหลอกลวงจาก @mellamokb; 3 บันทึกด้วยคำใบ้จาก @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/

แก้ไข:แนวคิดอินพุต / เอาต์พุตที่ยืมมาจากโซลูชันอื่นและตรรกะเอาต์พุตที่สั้นลง

แก้ไข 2:บันทึก 2 ตัวอักษรโดยลบวงเล็บปีกกาที่ไม่ต้องการในforลูป

แก้ไข 3:บันทึกไว้ 2 ตัวอักษรโดยการเขียนใหม่whileห่วงเป็นคำสั่งที่มีifi++

แก้ไข 4:บันทึกไว้ 2 ตัวอักษรโดยการย้ายไปรอบ ๆ iและลดการดำเนินงาน

แก้ไข 5:แปลงถ้าคำสั่งเป็นรูปแบบที่ประกอบไปด้วยประหยัดอีก 2 ตัวอักษร

แก้ไข 6:บันทึกตัวอักษร 2 โดยการย้ายi--เข้ามาเป็นส่วนหนึ่งที่แท้จริงของ ternary ++iลบ

JavaScript, 88 72 78 74 69 68

สำหรับ (s = '', I = 2 m = n = พรอมต์ (); ฉัน <มผม ++) ในขณะที่ {if (i ((n% i)!)> 9) {alert (-1); E ( )} n / = ฉัน; s + = i} การแจ้งเตือน (s)

แก้ไข: การใช้แนวคิดจาก JavaScript อื่นฉันสามารถลดความคิดลงในสิ่งนี้:

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

ที่สุด! โซลูชัน 69 อักขระใช้ 1 สำหรับลูปเท่านั้น)

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

ตกลงโกนคอมมาหนึ่งอันแล้ว

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 / = $ _ จนกระทั่ง $ d% $ _} ย้อนกลับ 2..9; พิมพ์ $ d-1? -1: $ m || 1

แรงบันดาลใจจากรหัสจาวาสคริปต์ของ mellamokb; ตั้งใจที่จะทำงานกับพารามิเตอร์

GolfScript ( 60 57)

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

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

แก้ไข

ตกลงฉันคิดว่ารุ่นนี้ให้ผลลัพธ์ที่ถูกต้องสำหรับทุกกรณีทันที :-)

แก้ไข 2

ลบ 3 ตัวอักษรตามคำแนะนำของ @ 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

มันดูเหมือนเช่นเคล็ดลับที่น่ากลัวที่ใช้ @mellamokb ใน JavaScript เพื่อหลีกเลี่ยงวงซ้อนกันจะแปลดีเพื่อ Perl แต่มันออกมามากขึ้นอย่างละเอียดเพราะคุณไม่สามารถใช้foreachห่วงลักษณะใด ๆ อีกต่อไป นอกจากนี้ยังเป็นที่น่าเสียดายที่ perl ไม่คิดว่าmapเป็นวงอื่นredoจะมาสะดวก

สกาล่า 106 ตัวอักษร:

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)

ทดสอบและขอร้อง:

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)

เวลาตอบสนอง: ทันที <1 วินาทีบน CPU 2Ghz

เยลลี่ , 18 13 10 ไบต์

×⁵RDP$€io-

ลองออนไลน์!

วิธีแก้ปัญหา 13 ไบต์:

×⁵RDP$€iµ’¹¬?

ลองออนไลน์!

คำอธิบายด้วยอินพุต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

โซลูชัน 18 ไบต์:

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

ลองออนไลน์!

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

ลิงก์สุดท้ายใช้เพื่อแทนที่ 0 เท่านั้น (ค่า falsey เริ่มต้นของ Jelly เนื่องจากรายการทั้งหมดเป็นดัชนีเดียว) ด้วย -1 หากคุณพิจารณา 0 ค่า falsey ตกลงโครงการคือ8 ไบต์

ทับทิม (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 ไบต์

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)

ลองออนไลน์!

เพียงเพราะยังไม่มีคำตอบของ Python มันเจ็บปวดจริงๆที่ขาดการแปลงชนิดโดยนัยระหว่างสตริงและ int