Belirli bir pozitif N tamsayı için, M rakamlarının çarpımı N'nin eşit olacağı şekilde minimum doğal M'yi bulmak için tam bir program yazın. N 1.000.000.000'dan az olacaktır. M yoksa, -1 yazdırın. Kodunuz hiçbir durumda 10 saniyeden fazla sürmemelidir.

Sample Inputs
1
3
15
10 
123456789
32
432
1296

Sample Outputs
1
3
35
25
-1
48
689
2899

Golfscript, 45 43 40 karakter

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

Küçük asalları güçlere gruplamayan sürümü değiştirir ve bunu yaparken 8 karakter kaydeder. Not: 12 = zemin (9 log 10 / log 5).

Teşekkür: @mellamokb'dan bir numara kesilerek kaydedilen iki karakter; 3 @ Nabb'dan bir ipucu ile kaydedildi.

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: Diğer çözümden ödünç alınan giriş / çıkış fikri ve daha kısa çıkış mantığı.

Düzenleme 2: Döngüde olmayan parantezleri kaldırarak 2 karakter kaydedildi for.

Düzenleme 3:while Döngüyü ifdeyim olarak yeniden yazarak kaydedilen 2 karakter i++.

Düzenleme 4: Hareket ederek ve işlemleri azaltarak kaydedilen 2 karakter i.

Edit 5: If ifadesini 2 karakter daha kaydederek üçlü formata dönüştürün.

Edit 6: Üçlünün i--gerçek kısmına geçerek 2 karakter kaydedin , kaldırın ++i.

JavaScript, 88 72 78 74 69 68

için (s = '', i = 2, m = n = () istem i <m, i ++) ise {(i ((n,% i!))> 9) {uyarı (1); E ( )}, n / i = s + = i} uyarısı (lar)

Düzenleme: Diğer JavaScript fikirleri kullanarak, ben bunu azaltabilir:

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

En sonunda! 69 karakterlik bir çözüm, döngü için yalnızca 1 kullanır;)

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

Tamam, bir virgülle traş ettim.

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 = üst karakter; harita {$ m = $ _. $ m, $ d / = $ _ $ d% $ _} tersine 2..9; $ d-1? -1: $ m || 1 yazdır

mellamokb'un javascript kodundan esinlenilmiştir; bir parametre ile çalıştırılmak istenen

GolfScript ( 60 57)

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

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

Düzenle

Tamam, bu sürümün şimdi her durum için doğru çıktı verdiğini düşünüyorum :-)

Düzenle 2

@ Peter'ın önerisi başına 3 karakter çıkarıldı.

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

O görünüyor javascript @mellamokb kullandığı Perlde iyi tercüme ediyorum iç içe döngü önlemek için müthiş numara gibi ama kullanamıyorum çünkü çok daha ayrıntılı çıkıyor foreachartık stil döngü. Ayrıca perl mapbaşka bir döngü redokullanışlı olacağını düşünmüyor yazık .

scala 106 karakter:

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 ve Çağrı:

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)

Tepki süresi: hemen, 2Ghz CPU üzerinde <1s.

Jöle , 18 13 10 bayt

×⁵RDP$€io-

Çevrimiçi deneyin!

13 baytlık çözelti:

×⁵RDP$€iµ’¹¬?

Çevrimiçi deneyin!

Giriş ile açıklama 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 baytlık çözelti:

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

Çevrimiçi deneyin!

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

Son bağlantı yalnızca 0'ı (tüm listeler tek dizinli olduğu için Jelly'in varsayılan falsey değeri) -1 ile değiştirmektir. 0'ın uygun bir falsey değeri olduğunu düşünüyorsanız, program 8 bayttır .

Yakut (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 bayt

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)

Çevrimiçi deneyin!

Henüz Python yanıtı olmadığı için. String ve int arasında örtük tip dönüşümünün olmaması gerçekten acı vericidir.