Pour un nombre entier positif donné N, écrivez un programme complet pour trouver le M naturel minimal tel que le produit des chiffres de M soit égal à N. N est inférieur à 1 000 000 000. Si aucun M n'existe, imprimez -1. Dans tous les cas, votre code ne devrait pas prendre plus de 10 secondes.

Sample Inputs
1
3
15
10 
123456789
32
432
1296

Sample Outputs
1
3
35
25
-1
48
689
2899

Golfscript, 45 43 40 caractères

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

Remplace la version qui ne regroupait pas les petits nombres premiers en pouvoirs et enregistre 8 caractères en le faisant. Remarque: 12 = étage (9 log 10 / log 5).

Remerciements: deux personnages sauvés en exécutant une astuce de @mellamokb; 3 enregistré avec un indice de @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/

Edit: idée d'entrée / sortie empruntée à une autre solution et logique de sortie plus courte.

Édition 2: enregistrement de 2 caractères en supprimant les accolades inutiles en forboucle.

Edit 3: 2 caractères enregistrés en réécrivant la whileboucle en tant ifqu'instruction avec i++.

Édition 4: enregistrement de 2 caractères en se déplaçant et en réduisant les opérations i.

Edit 5: Convertir l'instruction if au format ternaire en économisant 2 caractères supplémentaires.

Edit 6: Enregistrez 2 caractères en vous déplaçant i--dans la vraie partie du ternaire, supprimez ++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} alerte (s)

Edit: En utilisant des idées de l'autre JavaScript, je peux le réduire à ceci:

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

Finalement! Une solution à 69 caractères, n'utilise que 1 pour la boucle;)

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

D'accord, rasé une virgule.

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 / = $ _ jusqu'à $ d% $ _} reverse 2..9; print $ d-1? -1: $ m || 1

inspiré par le code javascript de mellamokb; destiné à être exécuté avec un paramètre

GolfScript ( 60 57)

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

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

Éditer

Ok, je pense que cette version donne maintenant une sortie correcte pour chaque cas :-)

Modifier 2

Rasé 3 caractères selon les suggestions de @ 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

Il semble que l'astuce géniale que @mellamokb utilise en javascript pour éviter la boucle imbriquée se traduise bien en perl mais elle sort beaucoup plus verbeuse car vous ne pouvez plus utiliser la foreachboucle de style. Il est également dommage que perl ne pense pas mapqu'une boucle redoserait utile.

scala 106 caractères:

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)

Test et invocation:

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)

Temps de réponse: immédiatement, <1 s sur CPU 2Ghz.

Gelée , 18 13 10 octets

×⁵RDP$€io-

Essayez-le en ligne!

Solution à 13 octets:

×⁵RDP$€iµ’¹¬?

Essayez-le en ligne!

Explication avec entrée 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

Solution à 18 octets:

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

Essayez-le en ligne!

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

Le dernier lien consiste uniquement à remplacer 0 (la valeur de falsey par défaut de Jelly, car toutes les listes sont indexées) par -1. Si vous considérez 0 comme une valeur de falsey OK, le programme est de 8 octets .

Rubis (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 octets

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)

Essayez-le en ligne!

Tout simplement parce qu'il n'y a pas encore de réponse Python. Il est vraiment pénible de ne pas avoir de conversion de type implicite entre chaîne et int.