Для заданого натурального цілого числа 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

Гольфскрипт, 45 43 40 символів

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

Замінює версію, яка не групувала невеликі лінійки у владу і економила 8 символів, роблячи це. Примітка: 12 = поверх (9 log 10 / log 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цикл як ifвисловлювання з i++.

Редагувати 4: Збережено 2 символи, переміщаючи та зменшуючи операції i.

Редагувати 5: Перетворити, якщо оператор у потрійний формат, заощадивши ще 2 символи.

Редагування 6: Збережіть 2 символи, перемістившись i--у справжню частину потрійного, видаліть ++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} попередження

Редагувати: Використовуючи ідеї з іншого 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; карта {$ m = $ _. $ m, $ d / = $ _ до $ d% $ _} зворотній 2..9; надрукуйте $ d-1? -1: $ m || 1

натхненний кодом javascript mellamokb; призначений для запуску з параметром

GolfScript ( 60 57)

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

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

Редагувати

Гаразд, я думаю, що ця версія дає правильний вихід для кожного випадку зараз :-)

Редагувати 2

Поголив 3 символи на пропозиції @ Петра.

Хаскелл

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 в процесорі 2 ГГц.

Желе , 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 значенням ОК фальси, програма становить 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.