도전

이 작업에는 정수 N (10 ⁶ 미만)이 주어지며 피보나치 수만 사용하여 N을 합할 수있는 최소 방법을 찾으십시오.이 파티션을 Zeckendorf 표현 이라고 합니다.

피보나치 수를 두 번 이상 사용할 수 있으며 둘 이상의 표현 출력이있는 경우 사용할 수 있습니다.

예를 들어, 입력이 있으면 (67) 하나 개의 가능한 출력이 피보나치 수열 사용할 수 후 1,3,8,55 또한 합 얻기 위해 사용될 수 피보나치 수의 최소 수있다 (67) .

입력 N은 한 줄로 주어지며 입력은 EOF로 종료됩니다.

예

형식으로 주어진 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

제약

• 입력 수는 10 ⁶ 값을 초과하지 않습니다 .
• 모든 입력에 대해 프로그램이 5 초 이상 실행되지 않아야합니다.
• 원하는 언어를 사용할 수 있습니다.
• 최단 솔루션이 승리합니다!

Motorola 68000 어셈블리-34 바이트

(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 : 피보나치 발생기가 카운팅이 아니라 오버플로에서 멈추게하고 0케이스가 [0]아닌 출력되도록 고정했습니다 []. 그러나 N이제 부정을 전달하면 충돌이 발생합니다.

맨 위의 주석은 언어 확장 을 사용하여 어떤 매개 변수가 어디로 갈 것인지 (기본적으로 스택으로 이동)를 식별 하는이 함수의 C 프로토 타입입니다 .

내 TI-89은 , 그것의 10MHz의 프로세서, 1에서이 기능을 실행하는 데 5 분 소요 - 1,000,000.

머신 코드는 현재 GolfScript 솔루션보다 바이트 수가 적지 만 다음과 같은 이유로이를 가장 짧은 솔루션으로 받아들이는 것은 불공평 할 것입니다.

• 머신 코드는 일반적으로 "소스 코드"로 계산되지 않습니다. 소스 코드와 달리 머신 코드는 일반적으로 기호 복잡성이 높으며 더 중요한 것은 인쇄 할 수 없습니다. " 실행 가능한 바이너리가 코드 골프에 대한 합리적인 솔루션으로 간주되어야합니까? "를 참조하십시오.
• 이 솔루션은 다중 입력이 아닌 단일 숫자 만 입력으로 사용합니다.
• 이 솔루션은 프로그램이 아니라 기능입니다.

TI-89 / 92 / V200을 사용하는 경우 여기에서 전체 프로젝트를 다운로드 할 수 있습니다 (오래된).

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

RapidShare를 동원하여 실제 파일을 제공합니다. 누구 든지이 큰 파일에 대한 좋은 호스트를 알고 있습니까? 8940은 많은 바이트입니다.

자바 스크립트 (142)

한 번에 하나의 입력 만 처리합니다. 여러 줄 입력은 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/

C, 244 자

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

공백으로 :

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

이 프로그램은 표준 입력에서 숫자를 읽고 표준 출력에 씁니다.

골프 스크립트, 43 자

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

나는 이것을 더 많은 노력으로 3 ~ 5 자 줄일 수 있다고 생각합니다. 예를 들어 펼쳐서 배열을 버리는 것은 낭비 적이라고 느낍니다.

F 번호 - 282 252 241 자

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

파이썬-183 문자

코드의 대다수는 여러 입력을 처리합니다. (

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

매스 매 티카 88

n = RandomInteger[10000, 10];

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

출력 예

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

EXCEL : 고유 코드의 89 자 :

스칼라-353 자 (여러 입력을 처리하기위한 100 자)

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

파이썬 3 (170 자)

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)

여러 줄 입력, 빈 줄에서 멈춤

C, 151 자

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

읽을 수있는 버전 :

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

제 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으로

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

R (460 자)

R을 사용하는 다른 버전.
"input"파일에서 읽고 "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)

"입력"예

0
47
3788
1646
25347
677
343
3434

"출력"예

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

더 읽기 쉬운 버전 :

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)

D (196 자)

으로 실행합니다 rdmd --eval=…. 이 편리의 보일러 숨 깁니다 import x, y, z;과 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")

자바 사용하기

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