Matematikte, belirli bir ilişkinin türünün (doğrusal, ikinci dereceden, vb.) Farkları hesaplamak olduğunu anlamanın bir yolu. Bunu yapmak için, karşılık gelen x değerleri arasındaki boşluğun aynı olduğu y değerlerinin bir listesini alırsınız ve her birini yukarıdaki sayıdan daha kısa bir sayı listesi oluşturarak yukarıdaki sayıdan çıkarın. Sonuçta ortaya çıkan liste tamamen aynı sayılardan oluşuyorsa, ilişkinin değeri 1'dir (doğrusaldır). Aynı değillerse, işlemi yeni listede tekrarlayın. Şimdi özdeşlerse, ilişkinin 2 farklılığı vardır (ikinci dereceden). Aynı değillerse, bu işleme onlar olana kadar devam edin. Örneğin, artan x değerleri için y değerleri [1,6,15,28,45,66] listeniz varsa:

First Differences:

1
6   1-6  =-5
15  6-15 =-9
28  15-28=-13
45  28-45=-17
66  45-66=-21

Second differences:

-5 
-9  -5+9  =4
-13 -9+13 =4
-17 -13+17=4
-21 -17+21=4

As these results are identical, this relation has a difference of 2

Senin görevin:

Girdi olarak bir tamsayı dizisi verildiğinde, yukarıda açıklandığı gibi dizilim tarafından tanımlanan ilişkinin farkını döndüren bir program veya işlev yazın.

Giriş:

Herhangi bir uzunlukta> 1 olabilen bir tamsayı dizisi.

Çıktı:

Girdi tarafından açıklanan ilişkinin farkını temsil eden bir tam sayı.

Test Durumları:

Input                            => Output
[1,2,3,4,5,6,7,8,9,10]           => 1
[1,4,9,16,25,36]                 => 2
[1,2,1]                          => 2 (when there is only one value left, all values are automatically identical, so the largest difference an array can have is equal to the length of the array-1)
"Hello World"                    => undefined behavior (invalid input)
[1,1,1,1,1,1,1,1,1]              => 0 (all elements are already identical)
[1, 3, 9, 26, 66, 150, 313, 610] => 6

puanlama:

Bu kod golf , her dilde bayt cinsinden en düşük puan, o dil için kazanıyor. Genel olarak en düşük puan yeşil onay işaretini alır.

Kabuğu , 6 bayt

İçin çalıştığı sürümünü kullanmama izin verdiğin için teşekkürler Leo[1,1,1,1,1,1]

←VE¡Ẋ-

Çevrimiçi deneyin!

açıklama

   ¡     Repeatedly apply function, collecting results in a list
    Ẋ-     Differences
 VE      Get the index of the first place in the list where all the elements are equal
←        Decrement

JavaScript (ES6), 47 bayt

f=a=>-a.every(x=>i=!x)||1+f(a.map(n=>n-a[++i]))

Test durumları

f=a=>-a.every(x=>i=!x)||1+f(a.map(n=>n-a[++i]))

console.log(f([1,2,3,4,5,6,7,8,9,10]))    // 1
console.log(f([1,4,9,16,25,36]))          // 2
console.log(f([1,2,1]))                   // 2
console.log(f([1,1,1,1,1,1,1,1,1]))       // 0
console.log(f([1,3,9,26,66,150,313,610])) // 6

MATL , 8 bayt

`dta}x@q

Çevrimiçi deneyin! Veya tüm test durumlarını doğrulayın .

açıklama

Bu, sonuç tüm sıfır veya boş olana kadar ardışık farklılıkları yinelemeyle karşılar. Çıktı, gerekli eksi 1 eksi sayısıdır.

`      % Do... while
  d    %   Consecutive diffferences. Takes input (implicitly) the first time
  t    %   Duplicate
  a    %   True if any element is nonzero. This is the loop condition
}      % Finally (execute before exiting the loop)
  x    %   Delete. This removes the array of all zeros
  @    %   Push iteration index
  q    %   Subtract 1. Implicitly display
       % End (implicit). Proceed with next iteration if top of the stack is true

R , 50 44 bayt

function(l){while(any(l<-diff(l)))F=F+1
F*1}

Çevrimiçi deneyin!

Bir diffalır l, onu ayarlar lve sonucun sıfır olmayan değerler içerip içermediğini kontrol eder. Eğer varsa, artım F(olarak başlatılmış FALSEdolaylı) ve döner F*1dönüştürme FALSEiçin 0her durumunda lzaten aynıdır.

Mathematica, 49 bayt

(s=#;t=0;While[!SameQ@@s,s=Differences@s;t++];t)&  

thanx @alephalpa -6 bayt ve @hftf -1 bayt

ve burada @hftf'den başka bir yaklaşım var

Mathematica, 49 bayt

Length@NestWhileList[Differences,#,!SameQ@@#&]-1&

Jöle , 7 bayt

-Iß$E?‘

Çevrimiçi deneyin!

açıklama

-Iß$E?‘  Input: array A
     ?   If
    E    All elements are equal
         Then
-          Constant -1
         Else
   $       Monadic chain
 I           Increments
  ß          Recurse
      ‘  Increment

Japt , 10 7 bayt

è@=ä-)d

Çevrimiçi deneyin!

Sonucun girdi dizisinin uzunluğu dahilinde olmasının garanti edildiğine güvenir.

açıklama

è@=ä-)d     Implcit input of array U
 @          For each value in U...
  =ä-)      Update U to be equal to its subsections, each reduced by subtraction
      d     Check if any values in that are truthy
è           Count how many items in that mapping are true

Sonunda, bu diziyi eşler
[1, 3, 9, 26, 66, 150, 313, 610]için [true, true, true, true, true, true, false, false],
içerdiği 6 trues.

Önceki 10 bayt sürümü

@=ä-)e¥0}a

Çevrimiçi deneyin!

Perl 6 , 37 bayt

{($_,{@(.[] Z- .[1..*])}...*.none)-2}

Çevrimiçi deneyin!

Açıklama: Fonksiyon girişi bir liste olarak alır. Daha sonra şöyle bir özyinelemeli bir dizi oluşturur: ilk eleman orijinal listedir ( $_), sonraki elemanlar {@(@$_ Z- .[1..*])}önceki eleman üzerinde çağrılarak döndürülür ve bu koşul *.nonedoğru oluncaya kadar tekrarlanır , bu sadece liste ya da boş veya yalnızca sıfır içeriyor (veya teknik olarak diğer falsey değerleri). Daha sonra listeyi alırız ve 2'yi çıkarırız ki bu onu ilk önce sayısal bağlama zorlar (ve sayısal bağlamdaki listeler, elemanlarının sayısına eşittir) ve sonunda, sonuçta elemanların sayısından daha az 2 döndürür. liste.

Garip blok {@(@$_ Z- .[1..*])}sadece verilen listeyi alır ( .[]- Zen dilim denir - boş parantezle indeksleme tüm listeyi verir), eksi operatörünü ( Z-) ilk eleman olmadan aynı liste ile ( .[1..*]) ekler ( ) ve bir listeye zorlar ( @(...)- buna ihtiyacımız var çünkü zip yalnızca bir kez tekrarlanabilen tek yönlü bir liste olan bir Seq döndürür. Bu da sevmediğimiz bir şeydir.) İşte bu.

Java 8, 191 + 58 = 249 198 140 byte.

51 bayt için teşekkürler PunPun1000.
58 bayt için teşekkürler Nevay.

int f(int[]a){int x=a.length-1,b[]=new int[x];for(;x-->0;)b[x]=a[x+1]-a[x];return java.util.Arrays.stream(a).distinct().count()<2?0:1+f(b);}

Çevrimiçi Deneyin!

Çevrimiçi Deneyin (198 byte version)

Yani, bu benim PPCG'de ilk gönderim (ve ilk defa bir golf kodlaması zorluğu yapıyor). Herhangi bir yapıcı eleştiri memnuniyetle karşılanır ve takdir edilir. Herhangi bir şeyi doğru ifade etmekten çekinmiyorsanız, gönderim kurallarını izlemeye çalıştım.

Güzelleştirilmiş versiyonu:

int f(int[] a) {
    int x = a.length - 1, b[] = new int[x];
    for (; x-- > 0;) {
        b[x] = a[x + 1] - a[x];
    }
    return java.util.Arrays.stream(a).distinct().count() < 2 ? 0 : 1 + f(b);
}

Haskell, 46 bayt

g l|all(==l!!0)l=0|0<1=1+g(zipWith(-)l$tail l)

Bu sadece recurses - zipWith(-)l$last lfark listesidir l. ve gsoruyu cevaplayan işlevdir.

Kotlin , 77 bayt

ilk yazı, 2 defa kotlin'deki son cevabı düzenlemeye çalıştı;

{var z=it;while(z.any{it!=z[0]})z=z.zip(z.drop(1),{a,b->a-b});it.size-z.size}

@jrtapsell den sınava girdi

TryItOnline

APL (Dyalog Klasik) , 22 17 bayt

{1=≢∪⍵:0⋄1+∇2-/⍵}

Çevrimiçi deneyin!

-5 bayt için @ngn için teşekkürler!

Nasıl?

• { ... }, işlev
• 1=≢∪⍵:0, eğer her eleman argümanda eşit ise, return 0
• 1+∇2-/⍵Aksi takdirde, nfarklılıkların 1 + 'sini döndürür (yani, n-1ona bir tane ekler n)

Jöle , 7 bayt

IÐĿEÐḟL

Çevrimiçi deneyin!

açıklama

IÐĿEÐḟL  Main link
 ÐĿ      While results are unique (which is never so it stops at [])
I        Take the increments, collecting intermediate values # this computes all n-th differences
    Ðḟ   Filter out
   E     Lists that have all values equal (the first n-th difference list that is all equal will be removed and all difference lists after will be all 0s)
      L  Take the length (this is the number of iterations required before the differences become equal)

Jonathan Allan sayesinde -1 bayt

05AB1E , 7 bayt

[DË#¥]N

Çevrimiçi deneyin!

açıklama

[         # start loop
 D        # duplicate current list
  Ë       # are all elements equal?
   #      # if so, break
    ¥     # calculate delta's
     ]    # end loop
      N   # push iteration counter

JavaScript (ES6), 58 bayt

f=a=>+(b=a.slice(1).map((e,i)=>e-a[i])).some(e=>e)&&1+f(b)

Python 2 , 65 bayt

Jonathan Allan sayesinde -7 bayt.

f=lambda l,c=1:any(l)and f([j-i for i,j in zip(l,l[1:])],c-1)or-c

Çevrimiçi deneyin!

Dyalog APL, 19 bayt

≢-1+(≢2-/⍣{1=≢∪⍵}⊢)

Açıklama:

≢                      length of input
 -1+(             )    minus 1+
     ≢                 length of
      2-/              differences between elements
         ⍣             while
          {1=≢∪⍵}      there is more than 1 unique element
                 ⊢     starting with the input

k , 21 bayt

#1_(~&/1_=':)(1_-':)\

Bu, k ile çalışır, ancak OK'de değildir, çünkü OK, döngü sırasında koşulu kontrol etmeden önce çalışır (önce koşulu kontrol etmenin tersine, sonra kodu çalıştırır). Bu nedenle, OK'de 1 1 1 1 1örnek düzgün çalışmayacaktır.

İnternetten deneyin

Açıklama:

   (        )       \ /while(
    ~&/               /      not(min(
       1_=':          /              check equality of all pairs))) {
             (1_-':)  /    generate difference list
                      /    append to output }
#1_                   /(length of output) - 1

Haskell , 66 61 60 bayt

z=(=<<tail).zipWith
f=length.takeWhile(or.z(/=)).iterate(z(-))

Çevrimiçi deneyin!

Christian Sievers sayesinde 5 bayt kurtarıldı

Proud-haskeller sayesinde 1 bayt kurtarıldı

iterate(z(-)) farklılık listelerini hesaplar.

or.z(/=) Bu listelerde eşit olmayan elemanlar olup olmadığını test eder.

length.takeWhile fark listelerini eşit olmayan elemanlarla sayar.

Java (OpenJDK 8) , 98 94 bayt

a->{int o=0,i,z=1;for(;z!=0;o++)for(i=a.length-1,z=0;i>o;a[i]-=a[--i])z|=a[o]^a[i];return~-o;}

Çevrimiçi deneyin!

Japt , 7 bayt

Farklı bir uygulama ile Justin ile aynı yaklaşım (ancak bağımsız türetilmiş) .

£=äaÃèx

Dene

açıklama

Dizinin örtük girişi U.

£   Ã

Her elemanın üzerinde eşleyin.

äa

Her sıralı äelement çiftini ( ) alın Uve mutlak farkla ( a) azaltın .

=

Bu diziyi yeniden atayın U.

èx

Sayma ( è), ilave edilerek azaltıldığında truti (yani sıfır olmayan) döndüren alt dizilerin sayısını.

TI-Basic, 19 bayt

While max(abs(ΔList(Ans
ΔList(Ans
IS>(A,9
End
A

Varsayılan olarak, değişkenler sıfırdan başlar. Ayrıca, IS>(yararlı bir şey için kullanacağımı hiç düşünmedim .

C # (.NET Core) , 70 69 + 18 bayt

Kevin Cruijssen sayesinde -1 bayt

g=a=>i=>a.Distinct().Count()>1?g(a.Zip(a.Skip(1),(y,z)=>y-z))(i+1):i;

Doğru çalışması için çağrı yaparken 0 verilmelidir. Ayrıca bayt sayısına dahil:

using System.Linq;

Çevrimiçi deneyin!

Açıklama:

g = a => i =>                      // Function taking two arguments (collection of ints and an int)
    a.Distinct()                   // Filter to unique elements
    .Count() > 1 ?                 // If there's more than one element
        g(                         //     Then recursively call the function with
            a.Zip(                 //     Take the collection and perform an action on corresponding elements with another one
                a.Skip(1),         //         Take our collection starting at second element
                (y, z) => y - z    //         Perform the subtraction
            )
        )(i + 1)                   //     With added counter
        : i;                       // Otherwise return counter

Yinelemeli sürüm 84 + 18 bayt:

a=>{int i=0;for(;a.Distinct().Count()>1;i++)a=a.Zip(a.Skip(1),(y,z)=>y-z);return i;}

Çevrimiçi deneyin!

Clojure, 62 bayt

#(loop[c % i 0](if(apply = c)i(recur(map -(rest c)c)(inc i))))

Güzel bir =şekilde herhangi bir sayıda argüman alabilir ve tek bir argüman "kendisiyle" aynıdır. (apply = [1 2 3])olarak idam edilir (= 1 2 3).

Pyth , 15 bayt

W.E.+Q=.+Q=hZ)Z

Tüm test durumlarını doğrulayın.

Nasıl?

Açıklama # 1

W.E.+Q=hZ=.+Q)Z   ~ Full program.

W                 ~ While...
 .E.+Q            ~ ... The deltas of Q contain a truthy element.
      =hZ         ~ Increment a variable Z, which has the initial value of 0.
         =        ~ Transform the variable to the result of a function applied to itself...
          .+Q     ~ ... Operate on the current list and deltas.
             )Z   ~ Close the loop and output Z.

Perl 5 , 83 + 1 (-a) = 84 bayt

sub c{$r=0;$r||=$_-$F[0]for@F;$r}for(;c;$i=0){$_-=$F[++$i]for@F;$#F--}say y/ //-$#F

Çevrimiçi deneyin!

Bir boşlukla ayrılmış sayılar listesi olarak giriş yapın.

Pyke , 11 bayt

W$D}ltoK)Ko

Burada dene!

Pyth, 10 bayt

tf!t{.+FQt

1'den indekslersek, öncüyü kaldırarak bir bayt kaydedebiliriz t.

Çevrimiçi Deneyin

açıklama

tf!t{.+FQt
 f        T  Find the first (1-indexed) value T...
     .+FQt   ... such that taking the difference T - 1 times...
  !t{        ... gives a set with more than one value in it.
t            0-index.

Kotlin , 83 bayt

{var z=it
var c=0
while(z.any{it!=z[0]}){c++
z=(0..z.size-2).map{z[it+1]-z[it]}}
c}

Beautified

{
    // Make input mutable
    var z=it
    // Count for returning
    var c=0
    // While the array is not identical
    while (z.any { it != z[0] }) {
        // Increment count
        c++
        // Update list to differences
        z = (0..z.size-2).map { z[it+1] - z[it] }
    }
    // Return count
    c
}

Ölçek

var n:(List<Int>)->Int =
{var z=it
var c=0
while(z.any{it!=z[0]}){c++
z=(0..z.size-2).map{z[it+1]-z[it]}}
c}

data class TestData(var input: List<Int>, var output: Int)

fun main(args: Array<String>) {
    val items = listOf(
        TestData(listOf(1,2,3,4,5,6,7,8,9,10), 1),
        TestData(listOf(1,4,9,16,25,36), 2),
        TestData(listOf(1,2,1), 2),
        TestData(listOf(1,1,1,1,1,1,1,1,1), 0),
        TestData(listOf(1, 3, 9, 26, 66, 150, 313, 610), 6)
    )

    val fails = items.map { it to n(it.input) }.filter { it.first.output != it.second }

    if (fails.isEmpty()) {
        println("Test passed")
    } else {
        fails.forEach {println("FAILED: $it")}
    }
}

TryItOnline

Swift 4 , 90 bayt

func f(_ a:[Int])->Int{return a.contains{$0 != a[0]} ?f(zip(a, a.dropFirst()).map(-))+1:0}

Alternatif, kapanmaya dayalı uygulama:

var f: ((_ input: [Int]) -> Int)!
f = {a in a.contains{$0 != a[0]} ?f(zip(a, a.dropFirst()).map(-))+1:0}

test durumları:

let testcases: [(input: [Int], expected: Int)] = [
    (input: [1,2,3,4,5,6,7,8,9,10],           expected: 1),
    (input: [1,4,9,16,25,36],                 expected: 2),
    (input: [1,2,1],                          expected: 2),
    (input: [1,1,1,1,1,1,1,1,1],              expected: 0),
    (input: [1, 3, 9, 26, 66, 150, 313, 610], expected: 6),
]

for (caseNumber, testcase) in testcases.enumerated() {
    let actual = f(testcase.input)
    assert(actual == testcase.expected,
        "Testcase #\(caseNumber) \(testcase.input) failed. Got \(actual), but expected \(testcase.expected)!")
    print("Testcase #\(caseNumber) passed!")
}