Một chuỗi Sumac bắt đầu với hai số nguyên: t ₁ và t ₂ .

Thuật ngữ tiếp theo, t ₃ , = t ₁ - t ₂

Tổng quát hơn, t _n = t _n-2 - t _n-1

Trình tự kết thúc khi t _n <0.

Thử thách của bạn: Viết chương trình hoặc chức năng in độ dài của chuỗi Sumac, bắt đầu bằng t ₁ và t ₂ .

• t ₁ và t ₂ là các số nguyên trong phạm vi ngôn ngữ của bạn.
• Tiêu chuẩn áp dụng.

Các trường hợp thử nghiệm

t1  t2       sumac_len(t1,t2)

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

Tiền thưởng đường phố tín dụng:

3    -128    1
-314 73      2

Đây là môn đánh gôn, vì vậy câu trả lời ngắn nhất bằng byte thắng.

Husk , 8 byte

→V<¡oG-↔

Đưa đầu vào dưới dạng danh sách 2 yếu tố. Hãy thử trực tuyến!

Giải trình

→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 byte

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

Hãy thử trực tuyến!

Tôi thực sự muốn có một cách để khớp mẫu cho một số âm ...

Giải trình

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

Husk , 12 11 byte

V<0t¡ȯF-↑2↔

Hãy thử trực tuyến!

Mất tín dụng đường phố thưởng cho bất cứ điều gì có giá trị.

Giải trình

    ¡ȯ       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.

Ruby , 29 byte

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

Hãy thử trực tuyến!

MATL , 13 byte

`yy-y0<~]N2-&

Điều này xử lý đầu vào tiêu cực (hai trường hợp thử nghiệm cuối cùng).

Hãy thử trực tuyến! Hoặc xác minh tất cả các trường hợp thử nghiệm .

Giải trình

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

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

Hãy thử trực tuyến!

Không ngắn lắm. Đưa đầu vào ngược.

Giải trình

(
 (())   #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 byte

[DŠ-D0‹#]NÌ

Hãy thử trực tuyến!

Giải trình

Đưa đầu vào là 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

Toán học, 55 byte

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

Hãy thử trực tuyến!

và bây giờ là cách tiếp cận nhàm chán thường xuyên của @totallyhuman

Toán học, 25 byte

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

Hãy thử trực tuyến!

J , 22 byte

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

Làm thế nào nó hoạt động:

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

Hãy thử trực tuyến!

C (gcc) , 32 27 26 byte

-5 byte nhờ lạm dụng gcc hoàn toàn của con người (dường như cũng hoạt động trên tcc)
-1 byte nhờ PrincePolka

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

Hãy thử trực tuyến!

Python 2 , 29 byte

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

Hãy thử trực tuyến!

Trả về Đúng thay vì 1 .

JavaScript (ES6), 24 byte

Trả về true thay vì 1 .

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

Các trường hợp thử nghiệm

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

Bình thường , 11 byte

Đây là một hàm đệ quy có hai đối số Gvà H. Liên kết được sửa đổi một chút để thực sự gọi hàm trên đầu vào đã cho.

M|<H0hgH-GH

Bộ thử nghiệm.

APL (Dyalog) , 23 byte

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

Hãy thử trực tuyến!

Làm sao?

2∘ - với tích lũy ban đầu là 2,

-/⍵ - nếu nhiệm kỳ tiếp theo

0> - dưới 0,

⍺- trả lại bộ tích lũy. nếu không thì,

(⍺+1) - tăng tích lũy

∇ - và tái diễn với

-⍨\⌽⍵ - hai mục cuối cùng đảo ngược và khác biệt.

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

Java (OpenJDK 8) , 44 byte

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

Hãy thử trực tuyến!

Lặp lại ngắn nhất tôi tìm thấy (50 byte)

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

Hãy thử trực tuyến!

dc , 24 byte

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

Hãy thử trực tuyến!

Giải trình

?                         # 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

Hội Z80, 10 byte

Phiên bản này cố gắng thực hiện phiên bản "tín dụng đường phố" của nhiệm vụ. Tuy nhiên, đối với trường hợp thử nghiệm được đề xuất trong đó t1 = -314, t2 = 73 chương trình này tạo ra câu trả lời "0", thật lòng mà nói, có ý nghĩa hơn một chút so với "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

Có thể tải xuống chương trình thử nghiệm cho ZX Spectrum 48K bằng trình biên dịch Sjasmplus tại đây . Một ảnh chụp nhanh được biên dịch cũng có sẵn .

Java (OpenJDK 8) , 85 75 byte

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

Hãy thử trực tuyến!

vô dụng:

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

Lisp thường gặp, 59 42 byte

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

Hãy thử trực tuyến!

Perl 6 ,24 19 byte

-5 byte nhờ b2gills Brad Gilbert.

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

Hãy thử trực tuyến!

Giải thích : Toàn bộ nội dung trong ngoặc đơn chính xác là chuỗi trong câu hỏi ( |@_là 2 thuật ngữ đầu tiên (= hai tham số), *-*là một hàm lấy hai đối số và trả về sự khác biệt của chúng và * <0là điều kiện dừng (thuật ngữ nhỏ hơn 0) . Chúng tôi bỏ qua thuật ngữ cuối cùng với ^sau ...). Sau đó, chúng ta buộc bối cảnh số của +toán tử, tạo ra độ dài của chuỗi.