Tulis fungsi,, fyang mengambil bilangan bulat positif dan mengembalikan fungsi.

Fungsi baru yang dikembalikan harus identik dengan f. Namun, ketika "panggilan terminasi" terjadi, fseharusnya mengembalikan jumlah semua bilangan bulat yang dilewati.

Misalnya, g=f(4)(jika ffungsi pertama) harus diatur gke fungsi lain. h=g(3)akan melakukan hal yang sama. Namun, ketika Anda memanggil htanpa argumen (lihat di bawah untuk perincian), itu harus menghasilkan 7, karena itu adalah jumlah dari argumen fungsi sebelumnya. Dengan kata lain f(3)(4)() == 7,.

Perhatikan bahwa ini tidak sama dengan f(3,4)().

"Panggilan pemutusan" adalah salah satu opsi berikut (pilihan Anda):

• panggilan tanpa argumen
• null sebagai argumen
• nilai non-positif

Jumlah panggilan fungsi yang sewenang-wenang harus didukung, tidak ada batasan yang telah ditentukan.

Dijamin bahwa jumlah total tidak akan lebih besar dari 1'000.

Kita dapat berasumsi bahwa setidaknya ada satu panggilan dilakukan sebelum "panggilan penghentian".

Kode Anda tidak boleh menggunakan variabel statis, per-program, sehingga harus dimungkinkan untuk menjalankan percobaan beberapa kali dalam runtime yang sama dan mengamati perilaku yang persis sama.

Contoh:

f(1)() == 1
f(4)(2)(7)() == 13
f(4)(2)(7)(5)(2)() == 20

JavaScript (ES6), 18 byte

f=n=>m=>m?f(m+n):n

Berikan nilai palsu untuk mengambil jumlahnya. Nol dapat diizinkan dengan biaya 2 byte.

Cobalah online

Tidak Disatukan:

f = function(n) {
    return function(m) {
        if (m) {
            return f(m+n);
        } else {
            return n;
        }
    }
}

Haskell (GHC), 118 byte

Ini adalah 98 byte untuk kode dan 20 byte untuk flag compiler GHC -XFlexibleInstances, yang memungkinkan ekstensi sistem tipe.

class F a where f::Int->a
instance F(()->Int)where f n()=n
instance F a=>F(Int->a)where f=(f.).(+)

Ini mendefinisikan "fungsi" f, yang dapat dipanggil dengan bilangan bulat sembarang diikuti oleh unit (), setelah itu mengembalikan bilangan bulat. Diperlukan jenis anotasi. Cobalah online!

Penjelasan

Memaksa sistem jenis ketat Haskell untuk memungkinkan ini memerlukan beberapa keajaiban, yaitu, memungkinkan ekstensi GHC untuk instance typeclass fleksibel. Cara kerjanya adalah ffungsi polimorfik parametrik yang dibatasi oleh batasan kelas tipe: tipenya F a => Int -> a. Ini berarti fmengambil integer dan mengembalikan nilai tipe a, untuk semua tipe ayang termasuk dalam typeclass F. Fhanyalah nama dari typeclass yang menyediakan fungsi f; itu dinyatakan pada baris pertama.

Dua baris berikutnya adalah dua instance Funtuk tipe yang berbeda a. Baris kedua menyatakan bahwa jenis fungsi dari ()ke bilangan bulat milik F(di mana ()adalah tipe unit yang hanya anggota nilai ()), dan implementasinya adalah f n () = n; fungsi mengembalikan argumen pertamanya. Baris terakhir menyatakan bahwa jika amilik F, maka demikian juga jenis fungsi dari bilangan bulat ke a: dari suatu fungsi f :: Int -> akita dapat menghasilkan fungsi lain f :: Int -> Int -> a. Implementasinya adalah f m n = f (m+n)(kode menggunakan kombinator untuk membuatnya lebih pendek), di mana fdi sebelah kiri adalah yang baru, dan fdi sebelah kanan adalah yang lama. Ini pada dasarnya memberifargumen integer baru, yang ditambahkan ke yang berikutnya. Beragam argumen dijumlahkan seperti ini:

  f  a1   a2   a3   a4   a5  ()
= f (a1 + a2)  a3   a4   a5  ()
= f (a1 + a2 + a3)  a4   a5  ()
= f (a1 + a2 + a3 + a4)  a5  ()
= f (a1 + a2 + a3 + a4 + a5) ()
=    a1 + a2 + a3 + a4 + a5

Pada fsetiap baris memiliki tipe yang berbeda.

Fungsi Haskell digulung secara otomatis, jadi jika Anda fhanya memberikan bilangan bulat, Anda mendapatkan sebuah fungsi.

Python 2, 42 41 36 byte

Solusi ini tidak akan pernah mengalami overflow, karena Python mendukung bilangan bulat presisi-sewenang-wenang. Nol adalah "nilai spesial".

f=lambda n:lambda m:m and f(m+n)or n

Cobalah online

Tidak Disatukan:

def f(n):
    def g(m=''):
        return f(m+n)if m<''else n
    return g

C, 62 58 byte, bersaing dengan garis batas

Disimpan 4 byte berkat Kevin! (Masih tidak menghapus typedef karena itu adalah sesuatu yang diperlukan untuk dipanggil.)

typedef(*(*B)(_))(_);q;f(x,o,_){x=x?(q+=x,f):(x=q,q=0,x);}

Fungsi untuk memanggil adalah f; Anda berhenti memanggilnya dan mendapatkan hasilnya dengan memanggilnya dengan nomor non-positif seperti 0. Coba test harness online!

Jadi, sejauh yang saya tahu, satu-satunya cara untuk "kari" fungsi yang memiliki beberapa tipe pengembalian adalah dengan melakukan salah satu dari yang berikut:

1. Keluarkan hasilnya ke fungsi untuk memberi tahu kompiler bahwa Anda ingin memanggil hasilnya lagi;
2. atau membuat union/ structtipe yang memiliki intsubtipe fungsi / referensial diri.

Saya mencoba melakukan (2), tetapi tampaknya agak bertentangan dengan semangat pertanyaan dan, terus terang, hampir tidak dapat dihilangkan. Jadi, sesuai dengan semangat tantangan, saya telah memilih opsi (1). Ini membutuhkan casting setiap fungsi yang dikembalikan ke fungsi, agar dapat digunakan.

Sintaks "currying" ini terlihat agak aneh, tetapi sangat mirip. Untuk meniru f(21)(1), seseorang harus menulis ((B)((B)f(21))(1))(0). Saya mendefinisikan Btipe sebagai fungsi yang mengambil integer dan mengembalikan pointer ke fungsi yang mengambil integer. Diperluas, ini terlihat seperti:

   ( (B)( (B) f(21) )(1) )(0)
//            f(21)            - call f with 21
//        (B)                  - cast to B, a function pointer
//      (           )(1)       - call with 1
//   (B)                       - cast to a function pointer
// (                     )(0)  - call with 0

Mathematica, 25 byte

f[x_]@y_=f[x+y]
f[x_][]=x

Cobalah online! (Menggunakan Matematika.)

Dimungkinkan untuk melakukan tiga byte lebih sedikit dengan porting jawaban JavaScript, tapi saya ingin menyajikan solusi Mathematica yang lebih idiomatis. Ini @hanya sedikit gula sintaksis, yang membuat solusinya setara dengan:

f[x_][y_]=f[x+y]
f[x_][]=x

Jadi ya idenya adalah bahwa di Mathematica Anda tidak bisa hanya mendefinisikan suatu fungsi f[x_]tetapi Anda dapat secara langsung melampirkan nilai ke ekspresi yang lebih rumit f, misalnya melalui f[x_]argumen lain. Dengan menyiapkan dua definisi untuk ini, kita bisa mendapatkan perilaku yang diinginkan:

• Definisi pertama runtuh satu f[x][y]panggilan ke f[x+y], sehingga mengkonsumsi satu "panggilan" dan menambahkan argumen di dalamnya. Aturan ini berlaku sampai kita tersisa f[sum][].
• Definisi kedua membongkar kasus terakhir ini dengan mendefinisikan seluruh hal untuk dievaluasi sum.

C ++, 72 byte

#define O(P)operator()(P){return{P+a};}int
struct F{F O(int(m))O()a;}f;

Ini mendefinisikan tipe Fyang bertindak sebagai fungsi yang diminta, dan variabel ftipe yang akan dipanggil. Ini berlaku pada C ++ 11 dan bekerja dengan versi online GCC, clang, icc dan VC ++.

Pemakaian:

int main() {
  return f(1)(2)(3)(); // returns 6
}

Penjelasan:

Setelah preprocessing dan memformat ulang, sepertinya:

struct F {
  F operator()(int(m)) { return{int(m)+a}; }
  int operator()() { return {+a}; }
  int a;
} f;

Ini biasanya ditulis:

struct F {
  F operator()(int m) { return {m+a}; }
  int operator()() { return a; }
  int a;
} f;

return a;dan return {+a};melakukan hal yang sama, karena unary +tidak mengubah nilai, dan kawat gigi redundan di sekitar nilai kembali diperbolehkan. int mdan int(m)melakukan hal yang sama, karena kurung redundan di sekitar nama variabel diizinkan, termasuk parameter fungsi. return {m+a};dan return {int(m)+a};melakukan hal yang sama, sebagai pemeran mdari intke inttidak mengubah nilainya. Perubahan ini membuat dua operator()kelebihan beban lebih dekat dalam sintaks, memungkinkan definisi makro tunggal untuk dipanggil dua kali. Memilih urutan yang tepat untuk ketiga anggota memungkinkan kata pertama dari baris berikutnya ( int) juga dimasukkan dalam definisi makro.

Ruby, 23 byte

f=->n{->m{m ?f[n+m]:n}}

Pemakaian:

f[1][2][3][nil]
=> 6

C, 104 96 byte

#define a(i)s(i)|b
#define b(i)u(i)|c
#define c(i)u(i)|b
b,c,d;s(i){b=c=i;i=d;}u(i){c=b+=i;i=d;}

Menggunakan metode dari tautan yang dibagikan @JulianWolf. Argumen terakhir harus 0.

Cobalah online!

Math.JS, 38 Bytes

f(x)=i(x,0)
i(x,y)=x<0?y:j(z)=i(z,y+x)

Sebut saja dengan f(number_a)(number_b)(...)(negative_number)

Jika kami diizinkan menentukan panggilan awal, 12 byte ( f(x)=i(x,0)\n) dapat dijatuhkan, dan itu bisa dipanggil dengani(number_one,0)(number_two)(...)(negative_number)

Cobalah!

Penjelasan

Seperti yang ditunjukkan pada LaTex di atas, f(x)cukup panggil i(x,0), lalu, i(x,y)mengembalikan nilai yif xkurang dari 0, atau fungsi j(z)=i(z,x+y), yang mengambil satu argumen, yang loop. Menambah nilai y.

C, 232 206 byte

#include<string.h>
#include<stdlib.h>
#define f(X)s(""#X)?0:g
#define g(X)u(""#X)?0:h
#define h(X)u(""#X)?0:g
g=0,h=0;s(char*s){g=h=atoi(s);return 0;}u(char*s){char*a=strlen(s)?s:"0";g=h+=atoi(a);return 0;}

Ini mungkin dapat di-golf secara signifikan, tetapi harus berfungsi sebagai bukti konsep bahwa C dapat digunakan, tanpa ekstensi bahasa *, untuk menyelesaikan masalah ini dengan menelepon tanpa argumen daripada dengan nilai ajaib.

* @hvd telah mencatat bahwa, sementara ini bekerja di luar kotak menggunakan gcc, beberapa perilaku tidak didefinisikan dalam standar C, yang berarti bahwa ini mungkin tidak portabel. Gunakan dengan risiko Anda sendiri!

Tidak Disatukan:

#include <stdio.h>
#include <string.h>
#include <stdlib.h>

#define f(X) start("" #X) ? 0 : f0
#define f0(X) update("" #X) ? 0 : f1
#define f1(X) update("" #X) ? 0 : f0

long f0 = 0;
long f1 = 0;

int start(const char *s) {
    f0 = f1 = strtol(s, NULL, 10);

    return 0;
}

int update(const char *s) {
    const char *a = strlen(s) ? s : "0";
    f0 = f1 += strtol(a, NULL, 10);

    return 0;
}

int main() {
    printf("f(1)()          -> %ld\n", f(1)());
    printf("f(1)(2)(0)(3)() -> %ld\n", f(1)(2)(0)(3)());
    printf("f(1)(-2)(3)()   -> %ld\n", f(1)(-2)(3)());
    printf("f()             -> %ld\n", f());

    return 0;
}

Mengkompilasi dan menjalankan dengan gcc arbitrary-length-currying.c -o arbitrary-length-currying && ./arbitrary-length-curryingoutput (setelah beberapa peringatan)

f(1)()          -> 1
f(1)(2)(3)(0)() -> 6
f(1)(-2)(3)()   -> 2
f()             -> 0

8086 kode mesin, 27 byte

00000000  bb 00 00 85 c0 74 13 01  d8 be 00 01 89 e7 47 47  |.....t........GG|
00000010  57 b9 1b 00 f3 a4 5b 89  47 01 c3                 |W.....[.G..|
0000001b

Kode mesin ini harus di alamat 0x100, dan mengasumsikan model kode kecil (cs = ds = es = ss). Lokasi fungsi dapat diubah tanpa biaya byte tambahan. Menempatkannya di offset 0akan menghemat satu byte ( xor si,sibukan mov si, 0x100)

Diperlukan konvensi panggilan

Ini mengasumsikan penelepon telah mengalokasikan setidaknya 27 byte pada stack. Dibutuhkan angka ax, dan mengembalikan penunjuk fungsi bx. Memanggil penunjuk ini dengan ax=0mengakhiri rantai, dan mengembalikan jumlahnya bx.
Jadi untuk panggilan pertama:

mov bp, sp
sub sp, 28
mov ax, number_to_add
call function
; new function pointer in bx

Kemudian, untuk setiap panggilan selanjutnya:

sub sp, 28
mov ax, number_to_add
call bx
; new function pointer in bx

Untuk mengakhiri:

mov ax, 0
call bx
; result in bx
mov sp, bp

Ungolfed (berkomentar pembongkaran kode mesin):

00000000  BB0000            mov bx,0x0      ; 0 is replaced after copying
00000003  85C0              test ax,ax
00000005  7413              jz 0x1a         ; if(ax==0) ret (with value in bx)
00000007  01D8              add ax,bx       ; arg += total
00000009  BE0001            mov si,0x100    ; address of the original: ds:0x100
0000000C  89E7              mov di,sp
0000000E  47                inc di
0000000F  47                inc di          ; dst = sp+2 = above return address
00000010  57                push di
00000011  B91B00            mov cx,0x1b
00000014  F3A4              rep movsb         ; copy the function code.
00000016  5B                pop bx            ; bx = start of copy destination
00000017  894701            mov [bx+0x1],ax   ; update total in the copied code
0000001A  C3                ret               ; with bx = function pointer

Setelah memanggil ini dengan AX yang bukan nol, bx = spdan buffer diisi dengan salinan kode mesin yang dimodifikasi function. 16-bit langsung dalam instruksi pertama menampung total. (Ini ditulis oleh instruksi terakhir sebelum ret.)

push diSaya pop bxbisa diganti dengan mov bx, di(sebelum rep movsb), membuatnya lebih sederhana tetapi tanpa penghematan.

Membutuhkan pemanggil untuk meneruskan pointer ke buffer dst di diakan menghemat 4 byte vs menghitungnya relatif terhadap sp.

Membuat fungsi alamat mulai sama dengan ukuran fungsi akan menghemat byte ( mov cx, si).

C #, 62 byte

dynamic f(int n)=>(System.Func<int,dynamic>)(m=>m<0?n:f(n+m));

Untuk mengakhiri panggilan masuk dalam nomor negatif misalnya

f(1)(2)(3)(-1) == 6

Scala, 58 karakter

case class f(n:Int){def apply(m:Int)=f(n+m)
def apply()=n}

Cobalah online

Tidak Disatukan:

case class f(n:Int){
  def apply(m:Int)=f(n+m)
  def apply()=n
}

Penjelasan:

Kode ini mendefinisikan case classf yang dipanggil dengan konstruktor yang mengambil int. Tentukan kelas kasus yang akan menghasilkan metode equals, hashcode, toString dan salin, dan objek pendamping dengan nama yang sama untuk mengaktifkan pembuatan objek tanpa newkata kunci.

Kelas ini memiliki metode terapkan berlebih: Satu mengambil integer lain untuk menambah dan membuat objek baru dengan jumlah yang diperbarui, dan satu tanpa argumen untuk mendapatkan jumlah.

Dalam Scala, objek apa pun dengan metode terapkan dapat disebut seperti metode, yang o.apply(x)dapat ditulis sebagai o(x). Ini digunakan dalam perpustakaan standar untuk array, daftar, peta dan Function1sifat yang diimplementasikan oleh fungsi anonim

Pyth, 19 byte

DhdDebR?bh+dbdR$end

Cobalah online!

Saya terkesan bahwa Javascript mengalahkan Pyth, tetapi sekali lagi Pyth tidak cukup dirancang untuk menjadi fungsi yang lewat.

Perl 5, 36 byte

sub f{my$n=pop;sub{@_?f($n+pop):$n}}

say f(1)->(); # 1
say f(1)->(2)->(3)->(); # 6

Brain-Flak , 6 byte

Sebenarnya saya hanya memperhatikan bahwa karena ToS adalah format pengembalian yang valid, maka 0 tidak benar-benar diperlukan yang menghemat 2 byte:

({{}})

Cobalah online!

Pengiriman asli, 8 byte

Gunakan 0sebagai nilai khusus:

({{}}{})

Cobalah online!

Penjelasan

Mengingat argumen suatu ₁ , sebuah ₂ , ..., a _n , 0 tumpukan awalnya terlihat seperti ini:

                                                       a _n

                                                       ⋮

                                                       a ₂

                                                       a ₁

                                                       0

Kode kemudian melanjutkan, muncul setiap satu _i , terakumulasi mereka, muncul dengan 0 menambahkan mereka dan mendorong hasilnya:

(      )  -- push the following value:
 {  }     --   while ToS ≠ 0 (sums the runs):
  {}      --     pop 1 element
     {}   --   pop the remaining 0 & add it

Solusi alternatif, 8 byte

Alih-alih memunculkan 0 dan menambahkannya ke jumlah, kita juga dapat menukar tumpukan karena yang benar awalnya kosong:

({{}}<>)

Cobalah online!

Menggunakan -rflag, 0 ada di bagian atas stack, jadi kita bisa pop dulu:

({}{{}})

Cobalah online!

{}({{}})

Cobalah online!

C (GCC), 83 byte

Golf C pertama saya! Ada beberapa solusi C lain, tetapi yang ini agak berbeda. Penggunaan preprosesor adalah murni kosmetik. Pendekatan ini pertama kali dibahas dalam jawaban Conor O'Brien di sini .

#define r union r
t=0;r{int v;r(*f)();};r e;r f(a){t+=a;e.v=a?f:t;t*=a>0;return e;}

Nilai terminal adalah nol. Nilai kembali adalah gabungan, jadi untuk memanggil hasilnya, gunakan bidang f, dan untuk mengakses nilai akhir, gunakan bidang v, misalnya

f(1).f(2).f(3).f(0).v

Cobalah secara Online

Keterbatasan

Variabel global memegang total running. Meskipun hal ini secara eksplisit dilarang, pengajuan tersebut mendukung pemanggilan berulang (totalnya diatur ulang dalam panggilan terminal), yang tampaknya menjadi alasan untuk larangan negara global.

Pointer ke fdisimpan ke serikat kembali melalui intanggota, jadi ini jelas tidak portabel. Saya tidak yakin apakah ini berfungsi pada GCC di semua platform atau hanya di Linux atau hanya di x86 atau hanya dengan ELF atau ... Jika ada yang tahu detail tentang ini, silakan komentar atau kirim pesan!

APL (Dyalog Classic) , 48 47 46 ₄₄ 32 byte

∇r←(a f)x
r←⍎'(a+x)f'↓⍨-0=x
∇
0f

Cobalah online!

Berakhir dengan melewati nol. Sintaks panggilan:((0 f 1) 2) 0

-15 byte terima kasih kepada @ngn

Membutuhkan ⎕IO←0

Setiap kiat bermain golf dipersilakan!

Perl 6 , 31 byte

sub f(\n){->$m?{$m??f n+$m!!n}}

Dyvil , 34 byte

infix int apply(i:int,j:int=0)=i+j

Penggunaan :

0() // = 0
0(1)() // = 1
0(1)(2)() // = 3

Jejak ()dapat dihilangkan.

Penjelasan :

Menentukan operator penjajaran yang mengambil dua int dan menambahkannya. Parameter jmemiliki nilai default 0untuk mendukung panggilan tanpa argumen. Dalam 0contoh di atas bukan nama, tetapi literal.

Julia v0.5 +, 52 byte

type F n end
F()=0
(f::F)()=f.n
(f::F)(x)=(f.n+=x;f)

Sebut sebagai F. Ini mungkin bisa dibuat jauh lebih pendek dengan mengadopsi metode OO yang lebih sedikit, tapi saya selalu suka mendapatkan kesempatan untuk menggunakan idiom ini.

Jika dapat diasumsikan bahwa "setidaknya satu panggilan akan dilakukan sebelum panggilan terminasi", baris kedua dapat dihilangkan untuk menghemat 6 byte.

Julia 0,5 , 18 byte

!n=k->k>0?!(n+k):n

Cobalah online!

R, 40 byte

f=function(x)function(y)`if`(y,f(x+y),x)

0 bertindak sebagai nilai berhenti di sini. Untuk dua byte lagi, kita bisa menghilangkannya.

Masalahnya adalah bahwa R tidak memiliki lambda bawaan yang ringkas. Tetapi jika kita menambahkan satu , kita bisa mendapatkan kode hingga 26 byte :

f=x->(y->`if`(y,f(x+y),x))

(Ya, itu sah R. Itu hanya perlu impor.)

PHP, 44 Bytes

Sebuah Ide dari @ user63956

Panggilan penghentian 0

function f($i){return[$_GET[0]+=$i][$i]?:f;}

Versi Online

Panggilan pemutusan dengan NULLkebutuhan [$i]untuk[+$i]

PHP, 47 Bytes

function f($i){global$s;return$i?f.!$s+=$i:$s;}

Versi Online

PHP, 52 Bytes

Pemutusan panggilan NULLatau nilai lain yang salah dalam PHP

function f($i){global$s;$i?$s+=$i:print$s;return f;}

jika program harus berakhir setelah Output ganti print$sdengan die("$s")+ 2 Bytes

Versi Online

PowerShell, 86 byte

$f={$n=$args[0];$f=(gv f).value;{if($args){&$f($args[0]+$n)}else{$n}}.getnewclosure()}

Cobalah online!

Kode uji:

&(&(&(&(&(&$f 4)2)7)5)2)

Output: 20

Python 3 , 63 byte

f=lambda n,l=[]:n and(l.append(n)or f)or sum(l)*(l.clear()or 1)

Cobalah online!

Berakhir dengan 0

Python, 69 byte

def f(a=0,s=[]):
    if a:
        return lambda b=0:f(b,s+[a])
    return sum(s)

Oktaf, 39 byte

function r=f(n)r=@(m)merge(m,f(m+n),n);

* Argumen panggilan terminasi adalah 0.

Cobalah online!

* endfunctiondiperlukan untuk menambahkan beberapa kode lainnya.

R, 54 52 byte

f=function(x){g=function(y='')'if'(y>'',f(x+y),x);g}

Disimpan 2 byte berkat MickyT!

Mirip dengan salah satu jawaban python. Tidak Disatukan:

f=function(x){
  g=function(y=''){
    if(y>''){
      f(y+x)
      }
      else{x}
  }
  g
}

Berjalan sebagai

> f(1)(2)(4)()
[1] 7

C ++ (gcc) , 95 91 byte

struct f{int s;f(int t):s(t){}int operator()(){return s;}f operator()(int t){return s+t;}};

Cobalah online!