Sumac 시퀀스는 두 개의 정수 t ₁ 과 t _{2로 시작} 합니다.

다음 항 t ₃ , = t ₁ -t ₂

보다 일반적으로, t _n = t _n-2 -t _n-1

시퀀스는 t _n <0 일 때 종료됩니다 .

도전 과제 : t ₁ 과 t _2로 시작하여 Sumac 시퀀스의 길이를 인쇄하는 프로그램이나 함수를 작성하십시오 .

• t ₁ 및 t ₂ 는 언어 범위 내의 정수입니다.
• 표준 허점이 적용됩니다.

테스트 사례

t1  t2       sumac_len(t1,t2)

120  71      5
101  42      3
500  499     4
387  1       3

보너스 거리 크리드 :

3    -128    1
-314 73      2

이것은 코드 골프이므로 바이트 단위의 최단 답변이 이깁니다.

껍질 , 8 바이트

→V<¡oG-↔

입력을 2 요소 목록으로 사용합니다. 온라인으로 사용해보십시오!

설명

→V<¡oG-↔  Implicit input, say p=[101,42]
   ¡      Iterate on p:
       ↔    Reverse: [42,101]
    oG-     Cumulative reduce by subtraction: [42,59]
          Result is infinite list [[101,42],[42,59],[59,-17],[-17,76],[76,-93]...
 V<       Find the first index where adjacent pairs are lexicographically increasing.
          In our example [42,59] < [59,-17], so this gives 2.
→         Increment: 3

하스켈 , 22 바이트

a#b|b<0=1|c<-a-b=1+b#c

온라인으로 사용해보십시오!

음수에 패턴 일치하는 방법이 있었으면 좋겠다 ...

설명

a#b|b<0=1|c<-a-b=1+b#c

a#b                     -- define a function (#) that takes two arguments a and b
   |b<0                 -- if b is negative...
       =1               -- return 1
         |              -- otherwise...
          c<-a-b        -- assign a-b to c...
                =  b#c  -- and return the result of (#) applied to b and c...
                 1+     -- incremented by 1

껍질 , 12 11 바이트

V<0t¡ȯF-↑2↔

온라인으로 사용해보십시오!

그 가치가있는 무엇이든을 위해 보너스 거리의 신조를 취합니다.

설명

    ¡ȯ       Repeatedly apply the function to the right to the list of all
             previous values and collect the results in an infinite list.
          ↔  Reverse the list of previous results.
        ↑2   Take the first two values (last two results).
      F-     Compute their difference (using a fold).
   t         Discard the first element.
V<0          Find the first index of a negative value.

루비 , 29 바이트

->a,b{(1..a).find{a<b=a-a=b}}

온라인으로 사용해보십시오!

MATL , 13 바이트

`yy-y0<~]N2-&

부정적인 입력을 처리합니다 (마지막 두 테스트 사례).

온라인으로 사용해보십시오! 또는 모든 테스트 사례를 확인하십시오 .

설명

`        % Do...while
  yy     %   Duplicate top two elements. Implicit inputs first time
  -      %   Subtract
  y      %   Duplicate from below: push previous term
  0<~    %   Is it 0 or greater? This is the loop condition
]        % End. Proceed with next iteration if top of the stack is true
N        % Push number of elements in stack
2-       % Subtract 2
&        % Specify that the next function, namely implicit display, should
         % only display the top of the stack

Brain-Flak , 142 90 바이트

((()){{}<(({}({}))[({}[{}])({})])([(({})<(())>)](<>)){({}())<>}{}{((<{}>))<>{}}{}<>{}>}<>)

온라인으로 사용해보십시오!

그리 짧지 않습니다. 뒤로 입력을받습니다.

설명

(
 (())   #Push 1
 {      #Until 0
  {}    #Pop (+1 to counter)
  <(({}({}))[({}[{}])({})])  #tn = tn-1 - tn-2
  ([(({})<(())>)](<>)){({}())<>}{}{((<{}>))<>{}}{}<>{}>  #Greater than 0?
 }      #End loop
 <>     #Get rid of everything
)       #Push result

05AB1E , 11 바이트

[DŠ-D0‹#]NÌ

온라인으로 사용해보십시오!

설명

다음과 같이 입력을받습니다. t2, t1

[             # start a loop
 DŠ           # duplicate top of stack and move it down 2 positions
   -          # subtract the top 2 values
    D0‹#      # if a copy of the top value is negative, break loop
        ]     # end loop
         NÌ   # push iteration index+2

수학, 55 바이트

(t=1;While[Last@LinearRecurrence[{-1,1},#,t++]>0];t-2)&

온라인으로 사용해보십시오!

그리고 이제 @totallyhuman의 일반적인 지루한 접근법

Mathematica, 25 바이트

If[#2<0,1,1+#0[#2,#-#2]]&

온라인으로 사용해보십시오!

J , 22 바이트

[:#({:,-/)^:(0<{:)^:a:

작동 방식 :

                  ^:a: - Repeat until the result stops changing, store the results in a list
          ^:(0<{:)     - repeat if the second term is positive
   ({:,-/)             - makes a tuple (second, first minus second)
[:#                    - number of elements in the list ([: caps the fork)

온라인으로 사용해보십시오!

C (gcc) , 32 27 26 바이트

전적으로 인간의 gcc 남용으로 인해 -5 바이트 (tcc에서도 작동하는 것으로
간주 됨) -Polka 덕분에 -1 바이트

f(a,b){a=b<0?:1+f(b,a-b);}

온라인으로 사용해보십시오!

파이썬 2 , 29 바이트

f=lambda a,b:b<0 or-~f(b,a-b)

온라인으로 사용해보십시오!

1 대신 True를 반환합니다 .

자바 스크립트 (ES6), 24 바이트

1 대신 true를 반환 합니다 .

f=(a,b)=>b<0||1+f(b,a-b)

테스트 사례

f=(a,b)=>b<0||1+f(b,a-b)

console.log(f(120,  71  )) //    5
console.log(f(101,  42  )) //    3
console.log(f(500,  499 )) //    4
console.log(f(387,  1   )) //    3

console.log('Bonus street cred:')
console.log(f(3,    -128)) //    1
console.log(f(-314, 73 ))  //    2

Pyth , 11 바이트

이 2 개 개의 인수를 취하는 재귀 함수입니다, G하고 H. 주어진 입력에서 함수를 실제로 호출하기 위해 링크가 약간 수정되었습니다.

M|<H0hgH-GH

테스트 스위트.

APL (Dyalog) , 23 바이트

2∘{0>-/⍵:⍺⋄(⍺+1)∇-⍨\⌽⍵}

온라인으로 사용해보십시오!

어떻게?

2∘ -2의 초기 누산기로

-/⍵ -다음 학기이면

0> -0 이하

⍺-누산기를 반환하십시오. 그렇지 않으면,

(⍺+1) -누산기 증가

∇ -그리고 재귀

-⍨\⌽⍵ -마지막 두 항목이 반대로 바뀌 었습니다.

      {⍵} 8 2
8 2
      {⌽⍵} 8 2
2 8
      {-⍨\⌽⍵} 8 2
2 6

자바 (OpenJDK 8) , 44 바이트

int f(int a,int b){return b<0?1:1+f(b,a-b);}

온라인으로 사용해보십시오!

내가 찾은 가장 짧은 반복 (50 바이트)

(a,b)->{int c=1;for(;b>=0;c++)b=a-(a=b);return c;}

온라인으로 사용해보십시오!

dc , 24 바이트

?[dsb-1rlbrd0<a]dsaxz1-p

온라인으로 사용해보십시오!

설명

?                         # read input                | 71 120
 [dsb-1rlbrd0<a]          # push string               | [string] 71 120
                dsa       # copy top to register a    | [string] 71 120
                   x      # execute the string        | -5 27 1 1 1 1
                    z     # push length of stack      | 6 -5 27 1 1 1 1
                     1-   # decrement top by 1        | 5 -5 27 1 1 1 1
                       p  # print top

 # string in register a:

  dsb                     # copy top to register b    | 71 120
     -                    # subtract                  | 49
      1                   # push 1                    | 1 49
       r                  # swap top two elements     | 49 1
        lb                # load register b           | 71 49 1
          r               # swap top two elements     | 49 71 1
           d0<a           # if top < 0 execute register a

Z80 어셈블리, 10 바이트

이 버전은 작업의 "스트리트 크리드"버전을 시도합니다. 그러나 t1 = -314, t2 = 73 인 제안 된 테스트 사례의 경우이 프로그램은 "0"을 생성합니다. 솔직히 "2"보다 약간 더 의미가 있습니다.

SumacLen:
        xor a           ; HL = t[1], DE = t[2], A is the counter
Loop:   bit 7,h
        ret nz          ; stop if HL is negative
        inc a
        sbc hl,de       ; HL = t[3], DE = t[2]
        ex de,hl        ; HL = t[2], DE = t[3]
        jr Loop

Sjasmplus 어셈블러를 사용하여 작성된 ZX Spectrum 48K 용 테스트 프로그램은 여기에서 다운로드 할 수 있습니다 . 컴파일 된 스냅 샷 도 사용할 수 있습니다 .

자바 (OpenJDK 8) , 85 75 바이트

(b,c)->{int d,k=1;for(;;){if(c<0)break;else{d=c;c=b-c;b=d;k++;}}return k;};

온라인으로 사용해보십시오!

언 골프 :

(b,c)->{
    int d,k=1;
    for(;;){
        if(c<0)
            break;
        else{
            d=c;
            c=b-c;
            b=d;
            k++;
        }
    }
    return k;
};

공통 리스프, 59 42 바이트

(defun f(a b)(if(< b 0)1(1+(f b(- a b)))))

온라인으로 사용해보십시오!

펄 6 ,24 19 바이트

Brad Gilbert b2gills 덕분에 -5 바이트

{+(|@_,*-*...^0>*)}

온라인으로 사용해보십시오!

설명 : 괄호 안의 모든 것은 정확히 해당 시퀀스입니다 ( |@_처음 2 개의 항 (= 두 개의 매개 변수 임), *-*두 개의 인수를 취하여 그 차이를 리턴하는 함수이며 * <0정지 조건 (0보다 작은 항) 마지막 기간은) ^뒤에 생략합니다 .... 그런 다음 +연산자로 숫자 컨텍스트를 강제 실행 하여 시퀀스 길이를 산출합니다.