与えられた正の整数Nに対して、Mの数字の積がNに等しくなるような最小の自然Mを見つける完全なプログラムを作成します。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 log 10 / log 5）。

謝辞：@mellamokbのトリックをニックにすることで保存された2つのキャラクター。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：forループ内の不要な中括弧を削除して2文字を保存しました。

編集3：whileループをでifステートメントとして書き換えて、2文字を保存しましたi++。

編集4：を移動して操作を減らすことで、2文字を節約i。

編集5： ifステートメントを3進形式に変換して、さらに2文字を節約します。

編集6：i-- 3項の真の部分に移動して2文字を節約し、を削除し++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ループのみを使用します;）

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

さて、カンマを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}

パール（75）（72）

$ d = shift; map {$ m = $ _。$ m、$ d / = $ _ until $ d％$ _} reverse 2..9; print $ d-1？-1：$ m || 1

mellamokbのJavaScriptコードに触発されました。パラメータ付きで実行することを意図

GolfScript（60 57）

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

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

編集する

わかりました、このバージョンは今すべてのケースに対して正しい出力を与えると思います:-)

編集2

@Peterの提案ごとに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]

パール（68）

$x=pop;map{$_-=11;$x/=$_,$@=-$_.$@until$x%$_}1..9;print!$x?-1:$@||1

@mellamokbがネストされたループを回避するためにJavaScriptで使用する素晴らしいトリックのようにperlにうまく変換されるようですが、foreachスタイルループをもう使用できないため、はるかに冗長になります。perlがmapループだと思っていないのも残念ですredo。

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

応答時間：直ちに、2Ghz CPUで1秒未満。

ゼリー、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（すべてのリストが1インデックスであるので、Jellyのデフォルトの偽の値）を-1に置き換えるだけです。0をOKの偽の値と見なすと、プログラムは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の答えがまだないからといって。stringとintの間の暗黙の型変換が欠けているのは本当に痛いです。