O desafio mínimo de fibonacci!

19

Desafio

Nesta tarefa, você receberia um número inteiro N (menor que 10 6 ), encontre a maneira mínima pela qual você poderia somar N usando apenas números de Fibonacci - essa partição é chamada representação Zeckendorf .

Você pode usar qualquer número de Fibonacci mais de uma vez e, se houver mais de uma representação, qualquer saída.

Por exemplo, se a entrada for 67 , uma saída possível poderia ser usar os números de Fibonacci 1,3,8,55, que também é o número mínimo de números de Fibonacci que poderiam ser usados ​​para obter a soma 67 .

A entrada N é fornecida em uma única linha, as entradas são terminadas por EOF.

Exemplos

Dado no formato 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

Restrições

  • O número de entradas não excederia 10 6 valores.
  • Seu programa não deve executar mais de 5 segundos para todas as entradas.
  • Você pode usar qualquer idioma de sua escolha.
  • A solução mais curta vence!
Quixotesco
fonte
"Você poderia qualquer número de Fibonacci ..." eh? "O número de entradas não excederia 10 ^ 6 valores." Portanto, nunca precisaremos adicionar mais de 10 ^ 6 números? Você quer dizer que a soma das entradas não excederia 10 ^ 6?
Mellamokb
7
Spoilers: 1) O algoritmo ganancioso (subtrai o maior número de Fibonacci até a entrada ser zero) produz soluções ideais. 2) Uma solução ideal não precisa usar o número de Fibonacci duas vezes (que segue de 1). 3) Uma solução ideal, para N <= 1000000, terá no máximo 14 termos.
Joey Adams
6
@ Joey: De maneira mais geral, o algoritmo ganancioso decompõe números inteiros positivos em somas de números distintos de Fibonacci, de modo que números consecutivos de Fibonacci não sejam usados ​​(isso é chamado de teorema de Zeckendorf).
Nabb 27/05
11
Os termos Spoiler 4: 29 da sequência de Fibonacci iniciando em 0 1 são suficientes.
Peter Taylor
@ Nabb: Obrigado por explicar a parte da matemática.
Quixotic

Respostas:

16

Montagem do Motorola 68000 - 34 bytes

(Sintaxe do montador GNU)

| 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: O gerador de Fibonacci parou o estouro em vez de contar e corrigiu o 0gabinete para que ele produzisse[0] vez de []. No entanto, passando uma Nfalha negativa agora.

O comentário no topo é o protótipo C dessa função, usando um extensão de idioma para identificar quais parâmetros vão para onde (por padrão, eles ficam na pilha).

Minhas TI-89 , com seu processador de 10 MHz, leva 5 minutos para executar esta função em 1 a 1.000.000.

Embora o código da máquina (atualmente) seja menos bytes que a solução GolfScript, provavelmente seria injusto aceitar isso como a solução mais curta, porque:

Se você possui uma TI-89/92 / V200, pode fazer o download do projeto completo aqui (desatualizado):

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

Boa sorte persuadindo o RapidShare a fornecer o arquivo real. Alguém sabe de um bom host para arquivos deste tamanho? 8940 é uma quantidade enorme de bytes.

Joey Adams
fonte
Você pode adicionar um quarto ponto à lista: a solução não fornece a saída no formato correto: P Estou usando 7 caracteres apenas em literais de string. BTW Você retorna a lista [0] para a entrada 0? Parece-me que você retorna a lista vazia. É um caso especial e irritante.
Peter Taylor
@ Peter Taylor: Você está certo, eu senti falta disso. Eu tenho termos e contagens de termos misturados. Vou postar uma correção em breve.
Joey Adams
5

Javascript (142)

Lida apenas com entrada única por vez. Como a entrada de várias linhas é inútil para JavaScript.

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/

mellamokb
fonte
5

C, 244 caracteres

#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");}}}

Com espaço em branco:

#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");
        }
    }
}

Este programa lê números fora da entrada padrão e grava na saída padrão.

ughoavgfhw
fonte
5

Golfscript, 43 caracteres

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

Eu acho que isso provavelmente pode ser reduzido em 3 a 5 caracteres com mais esforço. Por exemplo, o desenrolar para depois jogar fora a matriz parece um desperdício.

Peter Taylor
fonte
3

F # - 282252241 caracteres

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]))
nharren
fonte
3

Python - 183 caracteres

A maioria do código está lidando com várias entradas :(

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
st0le
fonte
Você pode colocar o n=input()no final da linha anterior?
Mbomb007
Eu suponho que sim. : \
st0le 27/02
Você também pode salvar um personagem removendo o espaço apósprint
mbomb007 27/02
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

Exemplo de saída

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
ybeltukov
fonte
2

EXCEL: 89 caracteres em código único:

insira a descrição da imagem aqui

user14011
fonte
1

Scala - 353 caracteres (100 caracteres para manipular várias entradas)

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)))
Lalith
fonte
Iterator.continually(Console.readLine).takeWhile(_ != "").foreach(line => h(Integer.parseInt(line)))pode ser reduzido para io.Source.stdin.getLines.foreach(l=>h(Integer.parseInt(l)))salvar 40 caracteres ish.
Gareth
1

Python 3 (170 caracteres)

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)

Entrada multilinha, pare na linha vazia

AMK
fonte
1

C, 151 caracteres

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;}}

versão legível:

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;
            }
}
vmrob
fonte
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)

Lida com várias entradas e o resultado é STDOUT

> 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)
>
MickyT
fonte
1

R (460 caracteres)

Outra versão usando R.
Lendo do arquivo "input", saída para o arquivo "output"

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)

exemplo "input"

0
47
3788
1646
25347
677
343
3434

exemplo "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

Versão mais legível:

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)
AndriusZ
fonte
0

D (196 caracteres)

Corra com rdmd --eval=…. Isso oculta convenientemente o clichê de import x, y, z;e 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")
mleise
fonte
0

Usando Java

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);
    }
}
}
Manoj Gupta
fonte
Este é um código de golfe, portanto, certifique-se de colocar sua resposta em golfe.
KSFT 27/02
11
Bem-vindo ao PPCG! Como o KSFT disse, este é um desafio do código-golfe . Por favor, mostre algum esforço para responder a essa pergunta no menor número possível de bytes de código. No mínimo, você pode remover espaços em branco desnecessários e usar nomes de classe / método / variável com uma letra. Depois de fazer isso, inclua também a contagem de bytes na sua resposta.
Martin Ender