Minimum fibonacci mücadelesi!


19

Meydan okuma

Bu görevde N (10 6'dan az) bir tam sayı verilir , sadece Fibonacci sayılarını kullanarak N'yi toplayabileceğiniz minimum yolu bulun - bu bölüme Zeckendorf gösterimi denir .

Herhangi bir Fibonacci numarasını bir kereden fazla ve birden fazla gösterim çıktısı varsa kullanabilirsiniz.

Örneğin, giriş 67 ise, olası bir çıkış , toplam 67'yi elde etmek için kullanılabilecek minimum Fibonacci sayıları olan 1.3,8,55 numaralı Fibonacci sayılarını kullanıyor olabilir .

Giriş N tek bir satırda verilir, girişler EOF tarafından sonlandırılır.

Örnekler

Biçimde verilir input: output

0: 0
47: 34+13
3788: 2584+987+144+55+13+5
1646: 1597+34+13+2
25347: 17711+6765+610+233+21+5+2
677: 610+55+8+3+1
343: 233+89+21
3434: 2584+610+233+5+2

Kısıtlamalar

  • Giriş sayısı 106 değeri aşmayacaktır .
  • Programınız tüm girişler için 5 saniyeden fazla çalışmamalıdır.
  • İstediğiniz dili kullanabilirsiniz.
  • En kısa çözüm kazanır!

"Herhangi bir Fibonacci numarası olabilir mi ..." ha? "Giriş sayısı 10 ^ 6 değerini geçemez." Yani asla birlikte 10 ^ 6'dan fazla sayı eklememiz gerekmeyecek mi? Yani girdilerin toplamı 10 ^ 6'yı aşmayacak mı?
mellamokb

7
Spoiler: 1) Açgözlü algoritma (giriş sıfır olana kadar en büyük Fibonacci sayısını çıkarın) en uygun çözümleri üretir. 2) Optimal bir çözümün iki kez bir Fibonacci numarası kullanması gerekmez (1'den sonra gelir). 3) N <= 1000000 için en uygun çözümün en fazla 14 terimi olacaktır.
Joey Adams

6
@Joey: Daha genel olarak, açgözlü algoritma, pozitif tam sayıları ardışık Fibonacci sayılarının kullanılmaması için farklı Fibonacci sayılarının toplamına ayırır (buna Zeckendorf teoremi denir).
Nabb

1
0 1'den başlayan Fibonacci dizisinin spoyler 4: 29 terimleri yeterlidir.
Peter Taylor

@ Nabb: Matematik bölümünü açıkladığınız için teşekkürler.
Quixotic

Yanıtlar:


16

Motorola 68000 montajı - 34 bayt

(GNU birleştirici sözdizimi)

| short min_fib_partition(long N asm("%d2"), long *out asm("%a0"))
min_fib_partition:
    | Generate Fibonacci numbers on the stack (-1, 1, 0, 1, 1, 2, 3, ..., 1134903170).
    moveq #-1, %d0          | A = -1
    moveq #1, %d1           | B = 1
generate_loop:
    move.l %d0, -(%sp)      | Push A to the stack.
    exg.l %d0, %d1          | A' = B
    add.l %d0, %d1          | B' = A + B
    bvc.s generate_loop     | Stop when signed long overflows.

    | Go back up the stack, partitioning N using the greedy algorithm.
    moveq #0, %d0           | Initialize return value (number of terms).
subtract_loop:
    move.l (%sp)+, %d1      | Pop a Fibonacci number F off the stack.
    cmp.l %d1, %d2          | If N < F, continue to smaller Fibonacci number.
    blt.s subtract_loop
    addq.w #1, %d0          | Increment the term count.
    move.l %d1, (%a0)+      | Append F to the output array.
    sub.l %d1, %d2          | N -= F
    bne.s subtract_loop     | Continue if N has not yet reached zero.

    | Clear the stack by searching for that -1.
clear_stack_loop:
    tst.l (%sp)+
    bge clear_stack_loop

done:
    rts

36 → 34: Fibonacci jeneratörün sayımdan ziyade taşma üzerinde durması sağlandı ve 0kasayı [0]yerine çıkacak şekilde sabitledi []. Ancak, Nşimdi olumsuz bir çökme geçiyor .

En üstteki yorum, hangi parametrelerin nereye gittiğini belirlemek için bir dil uzantısı kullanan (varsayılan olarak yığına gider) bu işlevin C prototipidir .

Benim TI-89 , kendi 10MHz işlemcisi ile, 1 bu işlevi çalıştırmak için 5 dakika sürer - 1,000,000.

Makine kodu GolfScript çözümünden (şu anda) daha az bayt olmasına rağmen, bunu en kısa çözüm olarak kabul etmek haksızlık olur çünkü:

TI-89/92 / V200'ünüz varsa, projenin tamamını buradan indirebilirsiniz (eski):

https://rapidshare.com/files/154945328/minfib.zip

RapidShare'e gerçek dosyayı vermek için iyi şanslar. Herkes bu büyük dosyalar için iyi bir ana bilgisayar biliyor mu? 8940 çok fazla bayttır.


Listeye dördüncü bir nokta ekleyebilirsiniz: çözüm çıktıyı doğru biçimde vermez: P Yalnızca dizgi değişmezlerinde 7 karakter kullanıyorum. BTW Giriş 0 için [0] listesini döndürüyor musunuz? Bana boş listeyi döndürdüğün anlaşılıyor. Bu sinir bozucu özel bir durum.
Peter Taylor

@Peter Taylor: Haklısın, bunu kaçırdım. Terim ve terim sayımları karıştı. Yakında bir düzeltme göndereceğim.
Joey Adams

5

Javascript (142)

Bir seferde yalnızca tek bir girdi işleyebilir. Çünkü JavaScript için çok satırlı giriş işe yaramaz.

k=n=prompt(f=[a=b=1])|0;while((b=a+(a=b))<n)f.push(b);for(i=f.length,g=[];i--;)if(f[i]<=k)g.push(f[i]),k-=f[i];alert(n+': '+(n?g.join('+'):0))

http://jsfiddle.net/EqMXQ/


5

C, 244 karakter

#define P printf
int f[30];int main(){f[28]=f[29]=1;int i=28;for(;i>0;--i)f[i-1]=f[i+1]+f[i];int x;while(scanf("%i",&x)!=-1){P(x?"%i: ":"0: 0\n",x);if(x>0){int i=0,a=0;while(x>0){while(f[i]>x)++i;if(a++)P("+");P("%i",f[i]);x-=f[i];}P("\n");}}}

Boşluk ile:

#define P printf
int f[30];
int main(){
    f[28] = f[29] = 1;
    int i = 28;
    for(; i > 0; --i) f[i-1] = f[i+1] + f[i];
    int x;
    while(scanf("%i",&x) != -1) {
        P(x ? "%i: " : "0: 0\n",x);
        if(x > 0) {
            int i = 0, a = 0;
            while(x > 0) {
                while(f[i] > x) ++i;
                if(a++) P("+");
                P("%i",f[i]);
                x -= f[i];
            }
            P("\n");
        }
    }
}

Bu program, standart girdi dışındaki sayıları okuyacak ve standart çıktıya yazacaktır.


5

Golfscript, 43 karakter

~]{:|': '[{0 1{|>!}{.@+}/;|1$-:|}do]'+'*n}%

Bu muhtemelen daha fazla çaba ile 3 ila 5 karakter azaltılabilir düşünüyorum. Örneğin diziyi atmak için açılımı boşa harcıyor.


3

F # - 282252241 karakter

let mutable d=int(stdin.ReadLine())
let q=d
let rec f x=if x<2 then 1 else f(x-2)+f(x-1)
let s x=
 d<-d-x
 x
printf"%d: %s"q (Core.string.Join("+",[for i in List.filter(fun x->x<d)[for i in 28..-1..0->f i]do if d-i>=0 then yield s i]))

3

Python - 183 Karakter

Kodun çoğunluğu birden fazla girişi işliyor :(

f=lambda a,b,n:b>n and a or f(b,a+b,n)
g=lambda n:n>0and"%d+%s"%(f(0,1,n),g(n-f(0,1,n)))or""
try:
 while 1:
  n=input()
  print "%d: %s"%(n,n<1and"0"or g(n).strip("+"))
except:0

Bir n=input()önceki satırın sonuna koyabilir misiniz ?
mbomb007

Bende öyle tahmin ediyorum. : \
st0le

Ayrıca, sonraki boşluğu kaldırarak bir karakteri kaydedebilirsinizprint
mbomb007

2

Mathematica 88

n = RandomInteger[10000, 10];

Print[k=#,For[i=99;l={},k>0,If[#<=k,k-=#;l~AppendTo~#]&@Fibonacci@i--];":"l~Row~"+"]&/@n

Çıktı örneği

3999: 2584+987+377+34+13+3+1
9226: 6765+1597+610+233+21
7225: 6765+377+55+21+5+2
9641: 6765+2584+233+55+3+1
6306: 4181+1597+377+144+5+2
4507: 4181+233+89+3+1
8848: 6765+1597+377+89+13+5+2
6263: 4181+1597+377+89+13+5+1
2034: 1597+377+55+5
6937: 6765+144+21+5+2


1

Scala - 353 karakter (birden çok girişi işlemek için 100 karakter)

def h(m:Int){lazy val f={def g(a:Int,b:Int):Stream[Int]=a #:: g(b,a+b);g(0,1);};if(m==0)println(m+": "+m)else{var s=0;var t= f.takeWhile(_ <= m);var w="";while(s!= m){s+=t.last;w+=t.last+"+";t=t.takeWhile(_<=m-s);};println(m+": "+w.take(w.length-1))}}
Iterator.continually(Console.readLine).takeWhile(_ != "").foreach(line => h(Integer.parseInt(line)))

Iterator.continually(Console.readLine).takeWhile(_ != "").foreach(line => h(Integer.parseInt(line)))io.Source.stdin.getLines.foreach(l=>h(Integer.parseInt(l)))40 ish karakteri kaydetmek için kısaltılabilir .
Gareth

1

Python 3 (170 karakter)

while 1:
 s=input()
 if not s:break
 s=n=int(s);f=[1];t=[]
 while f[-1]<n:f+=[sum(f[-2:])]
 for i in f[::-1]:
  if s>=i:s-=i;t+=[i]
 print(n,'=','+'.join(map(str,t))or 0)

Çok satırlı giriş, boş satırda durma


1

C, 151 karakter

main() {int i=1,n,f[30]={1,1};for(;i++<30;)f[i]=f[i-1]+f[i-2];while(scanf("%d",&n))for(i=30;;--i)if(f[i]<=n){printf("%d\n",f[i]);if(!(n-=f[i]))break;}}

okunabilir versiyon:

main() {
    int i=1,n,f[30]={1,1};
    for(;i++<30;)f[i]=f[i-1]+f[i-2];
    while(scanf("%d",&n))
        for(i=30;;--i)
            if(f[i]<=n) {
                printf("%d\n",f[i]);
                if (!(n-=f[i])) break;
            }
}

1

R, 170

x=scan();Filter(function(i)cat(unlist(Map(function(d)if(i>=d&&i){i<<-i-d;d},rev(lapply(Reduce(function(f,x)c(f[2],sum(f)),1:94,c(0,1),F,T),head,n=1)))),sep='+',fill=T),x)

STDOUT için çoklu girişleri ve kedinin sonucunu işler

> x=scan();Filter(function(i)cat(unlist(Map(function(d)if(i>=d&&i){i<<-i-d;d},rev(lapply(Reduce(function(f,x)c(f[2],sum(f)),1:94,c(0,1),F,T),head,n=1)))),sep='+',fill=T),x)
1: 100
2: 200
3: 300
4: 
Read 3 items
89+8+3
144+55+1
233+55+8+3+1
numeric(0)
>

1

R (460 karakter)

R kullanarak başka bir sürüm.
"İnput" dosyasından okuma, "output" dosyasına çıktı

d=as.list(as.integer(scan("input","",sep="\n")));n=36;f=rep(1,n);for(i in 3:n){f[i]=f[i-2]+f[i-1]};d2=lapply(d,function(x){a=vector("integer");i=1;while(x>0){id=which(f>=x)[1];if(x==f[id]){x=x-f[id];a[i]=f[id]}else{x=x-f[id-1];a[i]=f[id-1]}i=i+1}a});d=mapply(c,d,d2,SIMPLIFY=0);for(i in 1:length(d)){t=d[[i]];l=length(t);if(l==1){d[[i]]=paste(t[1],t[1],sep=": ")}else{d[[i]]=paste(t[1],": ",paste(t[2:l],collapse="+"),sep="")}}lapply(d,write,"output",append=1)

"giriş" örneği

0
47
3788
1646
25347
677
343
3434

"çıktı" örneği

0: 0
47: 34+13
3788: 2584+987+144+55+13+5
1646: 1597+34+13+2
25347: 17711+6765+610+233+21+5+2
677: 610+55+8+3+1
343: 233+89+21
3434: 2584+610+233+5+2

Daha okunabilir versiyon:

dt <- as.list(as.integer(scan(file = "input", what = "", sep = "\n")))
n <- 36
fib <- rep(1, n)
for(i in 3:n){fib[i] <- fib[i-2] + fib[i-1]}
dt2 <- lapply(dt, function(x){answ <- vector(mode = "integer")
                               i <- 1
                               while(x > 0){
                                   idx <- which(fib>=x)[1]
                                   if(x == fib[idx]){
                                       x <- x - fib[idx]
                                       answ[i] <- fib[idx]
                                   } 
                                   else {
                                       x <- x - fib[idx-1]
                                       answ[i] <- fib[idx-1]
                                   }
                                   i <- i + 1
                               }
                               answ})
dt <- mapply(FUN = c, dt, dt2, SIMPLIFY = FALSE)
for(i in 1:length(dt)){
    t1 <- dt[[i]]
    t1.len <- length(t1)
    if(t1.len == 1){
        dt[[i]] <- paste(t1[1], t1[1], sep=": ")
    } else {
        dt[[i]] <- paste(t1[1], ": ", paste(t1[2:t1.len], collapse = "+"), sep="")
    }
}
lapply(dt, write, "output", append=TRUE)

0

D (196 karakter)

İle çalıştırın rdmd --eval=…. Bu elverişli bir klişe gizler import x, y, z;ve void main() {…}:

int f(int i){return i-->1?f(i--)+f(i):i+2;}int n;foreach(x;std.stdio.stdin.byLine.map!(to!int))writeln(x,": ",x?n=x,reduce!((r,i)=>f(i)<=n?n-=f(i),r~="+"~f(i).text:r)("",29.iota.retro)[1..$]:"0")

0

Java Kullanımı

package org.mindcraft;

import java.util.Scanner;

public class Fibbo {
    public static void main(String[] args) {
    String number = null;
    int tmp, sum;
    int i = 1, j = 1;
    Scanner in = new Scanner(System.in);
    number = in.nextLine();
    String[] arr = number.split(" ");
    for (int it = 0; it < arr.length; it++) {
        tmp = Integer.parseInt(arr[it]);
        String value = tmp+" : ";
        while (tmp > 0) {
            i = 1;
            j = 1;
            for (int k = 0; k < 10000; k++) {
                sum = i + j;
                if (sum > tmp) {
                    //if (value == null) {
                    char ch=value.charAt(value.length()-2);
                    if(ch==':')
                    {
                        value = value+" "+ j + "";
                    } else {
                        value = value + " + " + j;
                    }

                    tmp = tmp - j;
                    break;
                }
                i = j;
                j = sum;
            }
        }
        System.out.println(value);
    }
}
}

Bu kod golf, bu yüzden cevabınızı golf emin olun.
KSFT

1
PPCG'ye Hoşgeldiniz! KSFT'nin dediği gibi, bu bir kod golf mücadelesi. Lütfen bu soruyu mümkün olduğunca az bayt kodla cevaplamak için biraz çaba gösterin. En azından gereksiz boşlukları kaldırabilir ve tek harfli sınıf / yöntem / değişken adları kullanabilirsiniz. Bunu yaptıktan sonra, lütfen cevabınıza bayt sayısını da ekleyin.
Martin Ender
Sitemizi kullandığınızda şunları okuyup anladığınızı kabul etmiş olursunuz: Çerez Politikası ve Gizlilik Politikası.
Licensed under cc by-sa 3.0 with attribution required.