Sumacシーケンスは、t ₁およびt _2の2つの整数で始まります。

次の項、t ₃、= t ₁ -t ₂

より一般的には、t _n = t _n-2 -t _n-1

シーケンスは、t _n <0のときに終了します。

あなたの課題：Sumacシーケンスの長さをt ₁およびt ₂から印刷するプログラムまたは関数を作成します。

• 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

Haskell、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-&

これは負の入力を処理します（最後の2つのテストケース）。

オンラインでお試しください！または、すべてのテストケースを確認します。

説明

`        % 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

Mathematica、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でも動作しているようです）
PrincePolkaのおかげで-1バイト

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

オンラインでお試しください！

Python 2、29バイト

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

オンラインでお試しください！

1の代わりにTrueを返します。

JavaScript（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) -アキュムレーターを増やす

∇ -そして再帰

-⍨\⌽⍵ -最後の2つの項目が逆転し、差異が生じました。

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

Java（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のテストプログラムは、ここからダウンロードできます。コンパイルされたスナップショットも利用できます。

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

Common Lisp、59 42バイト

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

オンラインでお試しください！

Perl 6、24 19バイト

Brad Gilbert b2gillsのおかげで-5バイト。

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

オンラインでお試しください！

説明：括弧内のすべてがまさに問題のシーケンス（|@_最初の2つの用語（= 2つのパラメーター）で*-*あり、2つの引数を取り、それらの差を返す関数で* <0あり、停止条件（0未満の用語）です） 。）の^後の最後の用語は省略し...ます。次に、+演算子によって数値コンテキストを強制し、シーケンスの長さを求めます。