Penghitungan zero-sum

25

Tulis program atau fungsi yang diberi n ≥ 1 mengembalikan jumlah solusi menjadi ± 1 ± 2 ± 3 ± ... ± n = 0.

Untuk n = 6 tidak ada solusi, jadi jawabannya adalah 0. Untuk n = 4 ada dua solusi, jadi jawabannya adalah 2 (dua solusi adalah 1 - 2 - 3 + 4 = -1 + 2 + 3 + 4 - 4 = 0).

Ini adalah urutan OEIS A063865 . Beberapa contoh input / outpus adalah:

n       a(n)
1       0
2       0
3       2
4       2
5       0
6       0
7       8
8       14
9       0
10      0
11      70
12      124
13      0
14      0
15      722
16      1314

Kode terpendek dalam byte menang.

code-golf math arithmetic

— orlp
sumber

2

Terkait

— Manish Kundu

1

@ManishKundu Hm, saya akan mengatakan bahwa itu terlihat seperti target dupe yang mungkin bagi saya, cukup tempelkan "panjang" di akhir atau alih-alih "filter dengan jumlah sama dengan" lakukan "jumlahkan setiap kemudian hitung" untuk membuat jawaban untuk ini .

— Erik the Outgolfer

2

@EriktheOutgolfer Saya tidak menyadari tantangan itu, tetapi jawaban untuk ini bisa sangat berbeda, lihat milik saya misalnya.

— orlp

2

@ManishKundu Saya baru saja menjelaskan bagaimana tantangan ini berbeda ...

— orlp

2

Ya, saya melihat itu. Meskipun sangat disayangkan bahwa Anda secara tidak sengaja memukulkan pertanyaan Anda sendiri, Anda tidak harus dipaksa untuk memberikan suara yang tidak Anda setujui.

— Dennis

Jawaban:

10

JavaScript (ES6), 35 byte

Disimpan 1 byte berkat @tsh

f=(n,s)=>n--?f(n,n-~s)+f(n,n+~s):!s

Cobalah online!

— Arnauld
sumber

9

Bahasa Wolfram (Mathematica) , 33 byte

Count[{1,-1}~Tuples~#.Range@#,0]&

Menghitung n-tupel 1 dan -1 yang memiliki titik produk dengan Range[n]0.

Cobalah online!

— alephalpha
sumber

9

Haskell , 42 byte

f n=sum[1|0<-sum<$>mapM(\x->[x,-x])[1..n]]

Cobalah online!

Ini 2 1 byte lebih pendek dari fungsi rekursif yang bisa saya tulis.

— H.Piz
sumber

6

05AB1E , 10 byte

X®‚sã€ƶO_O

Cobalah online!

Penjelasan

X®‚          # push [1,-1]
   sã        # cartesian product with input
     €ƶ      # multiply each element in each list with its 1-based index
       O     # sum each list
        _    # logical negation of each sum
         O   # sum

— Emigna
sumber

1

+1 untuk O_O...

— Buah Esolanging

Kode .. itu menatapku. Apa yang saya lakukan?

— caird coinheringaahing

5

C (gcc), 45 62 52 50 byte

f(n,r){n=n?f(n-1,r+n)+f(n-1,r-n):!r;}F(n){f(n,0);}

Pelabuhan Kevin Cruijssen Java 8 jawaban .

Cobalah online di sini .

Perhatikan bahwa karena perbaikan yang disarankan dalam komentar, kode menghasilkan perilaku yang tidak terdefinisi sampai tidak berfungsi ketika dikompilasi dengan dentang.

Berkat etene untuk bermain golf 3 byte. Terima kasih kepada Kevin Cruijssen karena bermain golf 10 byte lebih banyak. Terima kasih kepada Christoph untuk bermain golf 2 byte lagi.

Versi tidak disatukan:

f(n, r) { // recursive function - return type and parameter type are omitted, they default to int
    n = // instead of returning, we set n - dirty trick
        n ? // if n is not 0, recurse
        f(n-1,r+n) // +n
       +f(n-1,r-n) // -n
        !r; // else if r != 0 return 0 else return 1
}
F(n) { // function to start the recursion; again implicitly int(int)
    n = f(n, 0); // call the recursive function; this time we simply don't return
}

— Ketidakseimbangan
sumber

1

Anda dapat mengurangi 3 byte dengan menggantinya r?0:1dengan !r. 42 byte

— etene

2

Sepertinya Anda mengambil input tambahan di sini untuk menetapkan nilai awal r, yang tidak diizinkan.

— Shaggy

1

@etene Terlihat dengan baik, terima kasih!

— OOBalance

2

@KevinCruijssen lebih baik lagi yang kedua n=tidak diperlukan baik: f(n,r){n=n?f(n-1,r+n)+f(n-1,r-n):!r;}F(n){f(n,0);}.

— Christoph

2

@OOBalance, triknya adalah pelengkap dua . Ini berarti -x = ~x+1dan karenanya ~x = -x-1.

— Christoph

5

05AB1E , 9 8 byte

Terima kasih kepada Emigna karena telah menghemat satu byte!

Kode:

LæO·sLO¢

Menggunakan penyandian 05AB1E . Cobalah online!

Penjelasan

L           # Create the list [1, 2, .., input]
 æ          # Compute the powerset of this list
  O         # Sum each list
   ·        # Double each element
    sLO     # Compute the sum of [1, 2, .., input]
       ¢    # Count the number of occurrences

— Adnan
sumber

4

MATL , 14 13 byte

[la]Z^G:!Y*~s

Terima kasih kepada @Giuseppe karena menghemat 1 byte!

Cobalah online! Atau verifikasi semua kasus uji .

Penjelasan

Pertimbangkan n = 3sebagai contoh. Tumpukan ditampilkan terbalik, yaitu, yang terbaru muncul di bawah.

[la]   % Push array [1 -1]
       % STACK: [1 -1]
Z^     % Cartesian power with inplicit input n
       % STACK: [ 1  1  1
                  1  1 -1
                  1 -1  1
                  1 -1 -1
                 -1  1  1
                 -1  1 -1
                 -1 -1  1
                 -1 -1 -1]
G:     % Push n, range: gives [1 2 ... n]
       % STACK: [ 1  1  1
                  1  1 -1
                  1 -1  1
                  1 -1 -1
                 -1  1  1
                 -1  1 -1
                 -1 -1  1
                 -1 -1 -1],
                 [1  2  3]
!      % Transpose
       % STACK: [ 1  1  1
                  1  1 -1
                  1 -1  1
                  1 -1 -1
                 -1  1  1
                 -1  1 -1
                 -1 -1  1
                 -1 -1 -1],
                 [1
                  2
                  3]
Y*     % Matrix multiplication
       % STACK: [6
                 0
                 2
                -4
                 4
                -2
                 0
                -6]
~      % Logical negation
       % STACK: [0
                 1
                 0
                 0
                 0
                 0
                 1
                 0]
s      % Sum of vector. Implicit display
       % STACK: 2

— Luis Mendo
sumber

4

Jelly , 8 byte

ŒPS€ċÆṁ$

Cobalah online!

Bagaimana itu bekerja

ŒPS€ċÆṁ$  Main link. Argument: n

ŒP        Take the powerset of [1, ..., n].
  S€      Take the sum of each subset.
       $  Combine the two links to the left into a monadic chain.
     Æṁ       Compute the median of the sums, i.e, (1 + ... + n)/2.
    ċ         Count the occurrences of the median.

— Dennis
sumber

3

Python 2, 74 byte

def f(n):l=k=1;exec"l+=l<<n*k;k+=1;"*n;return(l>>n*n*-~n/4)%2**n*(~-n%4>1)

Lebih dari pengajuan yang menyenangkan, perhitungan fungsi penghasil langsung

— orlp
sumber

3

Oktaf (dengan Paket Komunikasi), 39 byte

@(n)sum((2*de2bi(0:2^n-1)-1)*(1:n)'==0)

Cobalah online!

Penjelasan:

Ambil rentang 0 ... n ^ 2-1 dan ubah menjadi biner. Ini memberikan matriks dengan semua kombinasi 0 dan 1 . Kalikan dengan 2 dan kurangi 1 untuk mendapatkan matriks dengan semua kombinasi -1 dan +1 .

Ambil titik-produk dengan rentang 1 ... n untuk mendapatkan semua kombinasi ± 1 ± 2 ... ± n . Hitung berapa banyak yang nol.

Pada dasarnya hal yang sama, jumlah byte yang sama:

@(n)nnz(~((2*de2bi(0:2^n-1)-1)*(1:n)'))

— Stewie Griffin
sumber

3

APL (Dyalog) , 31 22 byte

9 byte disimpan berkat @ H.PWiz

1⊥0=⊂∘⍳+.×¨∘,3-2×∘⍳⍴∘2

Cobalah online!

— Uriel
sumber

3

Python 2 dan 3, 50 byte

Pendekatan rekursif seperti sebagian besar jawaban:

f=lambda n,r=0:f(n-1,r+n)+f(n-1,r-n)if n else r==0

Panggilan rekursif ganda terlalu banyak byte ... Mungkin ada cara untuk menyederhanakannya.

— etene
sumber

3

Java 8, 72 71 70 byte

n->f(0,n)int f(int r,int n){return n>0?f(r+n,--n)+f(r+~n,n):r==0?1:0;}

Port dari jawaban JavaScript (ES6) @Arnauld .
-2 byte terima kasih kepada @ OlivierGrégoire .

Cobalah online.

Penjelasan:

n->                 // Method with integer parameter and integer return-type
  f(0,n)            //  Call the recursive method with 0 and this parameter

int f(int r,int n){ // Recursive method with integer as both two parameters and return-type
  return n>0?       //  If `n` is not 0 yet:
    f(r+n,--n)      //   Recursive call with `r+n` (and `n` lowered by 1 first with `--n`)
    +f(r+~n,n)      //   + Recursive call with `r-n` (and `n` also lowered by 1)
   :r==0?           //  Else-if `r` is 0
     1              //   Return 1
    :               //  Else:
     0;}            //   Return 0

— Kevin Cruijssen
sumber

3

Haskell , 55 byte

Pendekatan sederhana menghitung semua jumlah itu dan memeriksa berapa banyak yang nol.

f 0=[0]
f n=[(n+),(n-)]>>=(<$>f(n-1))
g x=sum[1|0<-f x]

Cobalah online!

EDIT: @ H.PWiz memiliki solusi yang lebih pendek dan jauh lebih elegan menggunakan mapM!

— cacat
sumber

3

Utilitas Bash + GNU, 63 byte

Bash mungkin bisa melakukan lebih baik dari ini dengan fungsi rekursif, tapi saya tidak bisa menahan jenis eval/ pelarian / ekspansi semacam ini :

p=eval\ printf\ %s
$p\\\\n \$[$($p \\\{+,-}{1..$1})]|grep -c ^0

Cobalah online!

Pembaruan: Saya tidak berpikir bash dapat melakukan lebih baik dengan fungsi rekursif. Ini adalah yang terbaik yang bisa saya lakukan untuk skor 90 . evalneraka itu kalau begitu.

— Trauma Digital
sumber

3

Brachylog , 12 byte

⟦₁{{ṅ|}ᵐ+0}ᶜ

Cobalah online!

Penjelasan

⟦₁               The range [1, …, Input]
  {       }ᶜ     Count the number of times the following predicate succeeds on that range:
   {  }ᵐ           Map for each element of the range:
    ṅ                Negate
     |               Or do nothing
        +0         The sum of the elements after the map is 0

— Fatalisasi
sumber

2

Oktaf , 42 byte

@(n)sum((dec2bin(0:2^n-1)*2-97)*(1:n)'==0)

Cobalah online!

— Luis Mendo
sumber

Yah, +1 kurasa. :) Tidak melihat ini ketika saya memposting milik saya.

— Stewie Griffin

Heh. Saya belum melihat milik Anda sampai sekarang

— Luis Mendo

2

J , 32 byte

1#.0=1#.1+i.*"1[:<:@+:@#:[:i.2^]

Cobalah online!

Tentu ada banyak ruang untuk bermain golf. Penjelasan akan mengikuti.

— Galen Ivanov
sumber

2

Haskell , 41 byte

(%0)
n%k|n<1=0^k^2|m<-n-1=m%(k+n)+m%(k-n)

Cobalah online!

— Tidak
sumber

Bagus, saya punya hal yang sama, tetapi 0^abs k.

— H.PWiz

1

Jelly , 10 byte

RżN$ŒpS€ċ0

Cobalah online!

— Biarawati Bocor
sumber

1

Perl 5 , `-p`35 byte

#!/usr/bin/perl -p
$_=grep!eval,glob join"{+,-}",0..$_

Cobalah online!

— Ton Hospel
sumber

1

Pari / GP , 30 byte

n->Pol(prod(i=1,n,x^i+x^-i))%x

Cobalah online!

— alephalpha
sumber

1

Prolog (SWI) , 99 byte

p(0,0,1).
p(0,_,0).
p(X,Y,Z):-A is X-1,B is Y+X,p(A,B,C),D is Y-X,p(A,D,E),Z is C+E.
X*Y:-p(X,0,Y).

Cobalah online!

— Emigna
sumber

1

Pyth, 14 13 byte

lf!s.nT*F_BRS

Penjelasan

lf!s.nT*F_BRS
            SQ  Take the list [1, ..., <implicit input>].
         _BR    Get the pairs [[1, -1], [2, -2], ...].
       *F       Take the Cartesian product.
 f!s.nT         Find the ones where the flattened sum is 0.
l               Take the length.

1

CJam , 25 byte

ri,:)_Wf*:a.+:m*:e_1fb0e=

Cobalah online!

Ini adalah terjemahan yang cukup langsung dari solusi 05AB1E @ emigna. Ini tentu saja golf.

— Buah Esolanging
sumber

1

Stax , 9 byte

è%é┐╬@₧╠¬

Jalankan dan debug itu

~~Salah satu jawaban terpendek sejauh ini~~ dikalahkan oleh Jelly.

Saya merasa bahwa secara eksplisit memeriksa tanda-tanda yang menjumlahkan ke nol tidak begitu golf, jadi alih-alih saya mengambil PowerPet dan memeriksa berapa banyak set di PowerPet memiliki jumlah setengah dari jumlah segitiga ke-n. Metode ini, tidak mengherankan, dari kompleksitas waktu yang sama dengan memeriksa tanda-tanda mana yang dijumlahkan menjadi nol.

Setara ASCII:

RS{|+Hmx|+#

— Weijun Zhou
sumber

0

Pyth , 10 byte

/mysdySQsS

Cobalah online. Atau, verifikasi semua kasus uji sekaligus .

Penjelasan:

/mysdySQsS    Implicit: Q=input()
      SQ      Generate range [1...Q]
     y        Generate powerset of above
 m            Map d in the above over...
  ysd         ... double the sum of d
        sS    Sum of range [1...Q] (final Q is implicit)
/             Count the matches (implicit output)

— Sok
sumber

0

J , 28 byte

(*>:){1j3#1+//.@(*/)/@,.=@i.

Menggunakan definisi lain dari OEIS di mana a(n) = coefficient of x^(n(n+1)/4) in Product_{k=1..n} (1+x^k) if n = 0 or 3 mod 4 else a(n) = 0.

Cobalah online!

Penjelasan

(*>:){1j3#1+//.@(*/)/@,.=@i.  Input: n
                          i.  Range [0, n)
                        =     Self-Classify. Forms an identity matrix of order n
          1           ,.      Stitch. Prepend 1 to each row
                    /         Reduce using
                                Convolution
                 */               Product table
           +//.                   Sum along anti-diagonals
      1j3#                    Copy each once, padding with 3 zeroes after
     {                        Index at n*(n+1)
  >:                            Increment n
 *                              Times n

— mil
sumber

0

Sekam , 9 byte

#½Σḣ¹mΣṖḣ

Cobalah online!

Penjelasan

#½Σḣ¹mΣṖḣ  Implicit input
        ḣ  [1..input]
       Ṗ   Powerset
     mΣ    Sum each list
#          Count occurrence of
   ḣ¹        [1..input]
 ½Σ          Half of sum

— Fyr
sumber

0

Gol> <> , 26 byte

:IFPlMF2K+}:@-}||0lMF$z+|h

Cobalah online! atau Jalankan test case dari 1 hingga 16!

Bagaimana itu bekerja

:IFPlMF2K+}:@-}||0lMF$z+|h

Main outer loop
:IFPlMF ...... ||
:        Duplicate top; effectively generate two explicit zeroes
         Top is the loop counter `i`;
         the rest is the generated 2**i sums
 I       Take input as number
  F ........... |  Pop n and loop n times
   P     i++
    lM   Push stack length - 1, which is 2**(i-1)
      F ...... |   Loop 2**(i-1) times

Main inner loop: generate +i and -i from 2**(i-1) previous sums
2K+}:@-}
          Stack: [... x i]
2K        [... x i x i]    Copy top two
  +}      [x+i ... x i]    Add top two and move to the bottom
    :@    [x+i ... i i x]  Duplicate top and rotate top 3
      -}  [i-x x+i ... i]  Subtract and move to the bottom

Counting zeroes
0lMF$z+|h
0lM        Push zero (zero count) and 2**n (loop count)
   F...|   Loop 2**n times
    $z+    Swap top two; Take logical not; add to the count
        h  Print top as number and halt

— Bubbler
sumber

Dengan menggunakan situs kami, Anda mengakui telah membaca dan memahami Kebijakan Cookie dan Kebijakan Privasi kami.

Licensed under cc by-sa 3.0 with attribution required.