Schreiben Sie für eine gegebene positive ganze Zahl N ein vollständiges Programm, um das minimale natürliche M zu finden, so dass das Produkt der Ziffern von M gleich N ist. N ist kleiner als 1.000.000.000. Wenn kein M vorhanden ist, drucken Sie -1. Ihr Code sollte auf keinen Fall länger als 10 Sekunden dauern.

Sample Inputs
1
3
15
10 
123456789
32
432
1296

Sample Outputs
1
3
35
25
-1
48
689
2899

Golfscript, 45 43 40 Zeichen

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

Ersetzt die Version, bei der kleine Primzahlen nicht in Potenzen gruppiert wurden, und spart dabei 8 Zeichen. Hinweis: 12 = Etage (9 log 10 / log 5).

Danksagung: zwei Zeichen, die durch einen Trick von @mellamokb gespeichert wurden; 3 mit einem Hinweis von @Nabb gespeichert.

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/

Bearbeiten: Ausgeliehene Eingabe / Ausgabe-Idee von einer anderen Lösung und kürzere Ausgabelogik.

Bearbeiten 2: 2 Zeichen gespeichert, indem nicht benötigte Klammern in der forSchleife entfernt werden.

Bearbeiten 3: 2 Zeichen durch Umschreiben der whileSchleife als ifAnweisung mit gespeichert i++.

Bearbeiten 4: 2 Zeichen gespeichert, indem Sie sich bewegen und Operationen weiter reduzieren i.

Bearbeiten 5: Konvertieren Sie die if-Anweisung in ein ternäres Format, wobei Sie 2 weitere Zeichen sparen.

Bearbeiten 6: Speichern Sie 2 Zeichen, indem Sie i--in den wahren Teil des Ternärs wechseln, und entfernen Sie ihn ++i.

JavaScript, 88 72 78 74 69 68

für (s = '', i = 2, m = n = prompt (); i <m; i ++) während (! (n% i)) {if (i> 9) {alert (-1); E ( )} n / = i; s + = i} Warnung (en)

Bearbeiten: Mit Ideen aus dem anderen JavaScript kann ich es auf Folgendes reduzieren:

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

Schließlich! Eine 69-stellige Lösung verwendet nur 1 für Schleife;)

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

Okay, ein Komma abgeschabt.

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

inspiriert von Mellamokbs Javascript-Code; soll mit einem Parameter ausgeführt werden

GolfScript ( 60 57)

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

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

Bearbeiten

Ok, ich denke diese Version liefert jetzt für jeden Fall die richtige Ausgabe :-)

Bearbeiten 2

3 Zeichen pro @ Peters Vorschläge rasiert.

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

Es scheint, als würde der großartige Trick, den @mellamokb in Javascript verwendet, um die verschachtelte Schleife zu vermeiden, gut in Perl übersetzt, aber er ist viel ausführlicher, da Sie die foreachStilschleife nicht mehr verwenden können. Es ist auch schade, dass Perl nicht glaubt, dass mapeine Schleife sonst redonützlich wäre.

Scala 106 Zeichen:

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 & Aufruf:

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)

Reaktionszeit: sofort <1s auf 2-GHz-CPU.

Gelee , 18 13 10 Bytes

×⁵RDP$€io-

Probieren Sie es online aus!

13-Byte-Lösung:

×⁵RDP$€iµ’¹¬?

Probieren Sie es online aus!

Erklärung mit Eingabe 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-Byte-Lösung:

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

Probieren Sie es online aus!

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

Der letzte Link ersetzt nur 0 (Jellys Standard-Falsey-Wert, da alle Listen einsindiziert sind) durch -1. Wenn Sie 0 als OK-Falsey-Wert betrachten, beträgt das Programm 8 Byte .

Rubin (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 Bytes

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)

Probieren Sie es online aus!

Nur weil es noch keine Python-Antwort gibt. Es ist wirklich schmerzhaft, keine implizite Typkonvertierung zwischen string und int zu haben.