Zdefiniujmy f _n (k) jako sumę pierwszych k wyrazów liczb naturalnych [1, ∞), gdzie każda liczba jest powtarzana n razy.

k       | 0    1    2    3    4    5    6    7    8    9
--------+-------------------------------------------------
f_1(k)  | 0    1    3    6    10   15   21   28   36   45
deltas  |   +1   +2   +3   +4   +5   +6   +7   +8   +9
--------+-------------------------------------------------
f_2(k)  | 0    1    2    4    6    9    12   16   20   25
deltas  |   +1   +1   +2   +2   +3   +3   +4   +4   +5
--------+-------------------------------------------------
f_3(k)  | 0    1    2    3    5    7    9    12   15   18
deltas  |   +1   +1   +1   +2   +2   +2   +3   +3   +3

Przeciw-przekątne tego jako kwadratowy układ są podobne do sekwencji OEIS A134546 .

Wyzwanie

Napisz program / funkcję, która przyjmuje dwie nieujemne liczby całkowite n i k oraz wyjścia f _n (k) .

Dane techniczne

Zasady Standard I / O zastosowania .
Standardowe luki są zabronione .
Twoje rozwiązanie może mieć indeks 0 lub indeks 1 dla n i / lub k, ale proszę podać, które.
Wyzwanie to nie polega na znalezieniu najkrótszego podejścia we wszystkich językach, chodzi raczej o znalezienie najkrótszego podejścia w każdym języku .
Twój kod będzie oceniany w bajtach , zwykle w kodowaniu UTF-8, chyba że określono inaczej.
Wbudowane funkcje, które obliczają tę sekwencję są dozwolone, ale zalecane jest rozwiązanie, które nie polega na wbudowanym.
Zachęca się do wyjaśnień, nawet w przypadku „praktycznych” języków .

Przypadki testowe

W tych przypadkach testowych n ma indeks 1, a k indeks 0.

n   k      f_n(k)

1   2      3
2   11     36
11  14     17
14  21     28
21  24     27
24  31     38
31  0      0

W kilku lepszych formatach:

Realizacja referencyjna

To jest napisane w Haskell .

f n k = sum $ take k $ replicate n =<< [1..]

Wypróbuj online!

To wyzwanie zostało piaskownicy.

— całkowicie ludzki
źródło

Czy uważasz, że moja edycja poprawia formatowanie, czy jest to tylko moja przeglądarka?

— user202729,

@ user202729 Heh ... wygląda to źle w mojej przeglądarce, ale wątpię, by moje formatowanie wyglądało dobrze w większości przeglądarek ... Po prostu zachowam to w ten sposób, nie straci żadnego znaczenia. Po prostu wygląda dziwnie. : P

— totalnie ludzki,

Czy musimy obsłużyć sprawę f_n(0) = 0dla kindeksowania 0?

— Cinaski

9

„ Fajna, bez tytułu sekwencja ” Lol, nie jestem jedynym, który ma trudności z wymyślaniem nazw sekwencji, które wymyśliłem, widzę ..;)

— Kevin Cruijssen

3

@Fabian Nie, sumujesz tylko pierwsze kterminy z listy powtarzających się liczb naturalnych, a nie pierwsze n*k.

— Martin Ender

12

Rubin , 32 28 23 bajtów

->n,k{k.step(0,-n).sum}

Wypróbuj online!

Wyjaśnienie

Wyobraźmy sobie sumę jako pole trójkąta, na przykład n = 3 i k = 10:

*
*
*
**
**
**
***
***
***
****

Następnie sumują przez kolumnę zamiast rzędu: pierwsza kolumna k, a następnie k-n, k-2ni tak dalej.

— GB
źródło

8

Python 2 , 34 28 bajtów

lambda n,k:(k+k%n)*(k/n+1)/2

Wypróbuj online!

Dzięki Martin Ender, Neil i Mr Xcoder za pomoc.

— GB
źródło

1

k/nZresztą i tak nie potrzebujesz - k-(k/n)*njest po prostu k%n. Zobacz moją odpowiedź partii.

— Neil

28 bajtów

— Mr. Xcoder,

Dzięki. Nie sądziłem, że to może być takie proste.

— GB

8

Łuska , 4 bajty

Σ↑ṘN

Wypróbuj online!

Wyjaśnienie

To właśnie kończy się bezpośrednim tłumaczeniem implementacji referencyjnej w wyzwaniu:

   N  Start from the infinite sequence of all natural numbers.
  Ṙ   Replicate each element n times.
 ↑    Take the first k values.
Σ     Sum them.

— Martin Ender
źródło

5

APL (Dyalog) , 12 10 8 bajtów

+/∘⌈÷⍨∘⍳

Wypróbuj online!

npo lewej stronie k(0 indeksowanych) po prawej stronie.

— Uriel
źródło

5

Mathematica, 40 bajtów

Tr@Sort[Join@@Range@#2~Table~#][[;;#2]]&

Wypróbuj online!

Tr[Range@(s=⌊#2/#⌋)]#+#2~Mod~#(s+1)&

Wypróbuj online!

Mathematica, 18 bajtów

autor: Martin Ender

Tr@Range[#2,0,-#]&

Wypróbuj online!

n~Sum~{n,#2,0,-#}&

Wypróbuj online!

— J42161217
źródło

2

Tr@Range[#2,0,-#]&lub n~Sum~{n,#2,0,-#}&korzystając ze sztuczki z odpowiedzi Ruby GB.

— Martin Ender

5

MATL , 12 11 bajtów

:iY"Ys0h1G)

Wypróbuj online!

kjest indeksowany na 0. Pobiera dane wejściowe w odwrotnej kolejności.

Zapisano 1 bajt dzięki @Giuseppe

— Cinaski
źródło

5

Galaretka , 5 bajtów

Rxḣ³S

Jeszcze jeden bajt niż rozwiązanie Jelly @ Mr.Xcodera, ale to moje pierwsze zgłoszenie w Jelly i wciąż jestem zdezorientowany, jak milczenie Jelly wybiera operandy, więc nadal jestem zadowolony. Zwróć uwagę na kolejność wejściach są knastępnien .

Wyjaśnienie

Rxḣ³S
R           Range: [1,2,...,k]
 x          Times: repeat each element n times: [1,1,1,2,2,2,...,n,n,n]
  ḣ³        Head: take the first k elements. ³ returns the first argument.
    S       Sum

Wypróbuj online!

— dylnan
źródło

4

Galaretka , 4 bajty

1-indeksowany

Ḷ:‘S

Wypróbuj online! lub zobacz zestaw testowy .

— Pan Xcoder
źródło

Możesz zrobić indeksowanie 0, więc myślę, że Ḷ:Srównież działa

— dylnan

@dylnan Właściwie nie sądzę, że to właśnie oznacza tutaj indeksowanie 0.

— Wycofałem się

@dylnan Dzielenie przez zero jest błędem.

— Erik the Outgolfer

4

JavaScript (ES6), 24 21 bajtów

Pobiera dane wejściowe w składni curry (n)(k). Zwraca falsezamiast0 .

n=>g=k=>k>0&&k+g(k-n)

Przypadki testowe

Pokaż fragment kodu

let f =

n=>g=k=>k>0&&k+g(k-n)

console.log(f(1 )(2 )) // 3
console.log(f(2 )(11)) // 36
console.log(f(11)(14)) // 17
console.log(f(14)(21)) // 28
console.log(f(21)(24)) // 27
console.log(f(24)(31)) // 38

Expand snippet

W jaki sposób?

n =>             // main unamed function taking n
  g = k =>       // g = recursive function taking k
    k > 0 &&     // if k is strictly positive:
      k +        //   add k to the final result
      g(k - n)   //   subtract n from k and do a recursive call

Jest to podobne do odpowiedzi Ruby @ GB .

Wyzwanie opisuje, jak budować „schody” od lewej do prawej, podczas gdy ta funkcja rekurencyjna buduje je od dołu do góry. Przy n = 2 i k = 11 :

— Arnauld
źródło

3

Partia, 34 bajty

@cmd/cset/a(%2+%2%%%1)*(%2/%1+1)/2

Znalazłem formułę zamkniętą. Pierwszy argument nma indeks 1, drugi argument kma indeks 0.

— Neil
źródło

3

Python 2 , 29 bajtów

lambda n,k:sum(range(k,0,-n))

Wypróbuj online!

Dzięki totalnie ludzkiemu za -3 bajty!

Python 2 , 30 bajtów

f=lambda n,k:k>0and k+f(n,k-n)

Wypróbuj online!

— Pan Xcoder
źródło

3

Haskell , 28 bajtów

n#k|m<-k`mod`n=sum[m,m+n..k]

Wypróbuj online!

Podejście to znalazłem po prostu, używając pewnych parametrów zakresu. Zdecydowanie nie najkrótszy, ale całkiem fajnie, że istnieje tak wiele różnych podejść.

— całkowicie ludzki
źródło

3

C, 38 34 bajtów

Definicja rekurencyjna.

-4 bajty dzięki Steadybox .

f(n,k){return k--?1+f(n,k)+k/n:0;}

Wypróbuj online!

32 bajty autorstwa pana Xcodera , GB

f(n,k){return(k+k%n)*(k/n+1)/2;}

Wypróbuj online!

— Colera Su
źródło

34 bajty w Pythonie , 36 bajtów w C

— Mr. Xcoder

1

Stosując podejście GB, 32 bajty

— Mr. Xcoder

tio.run/… -> 28 bajtów

— GB

1

34 bajty (wersja rekurencyjna): f(n,k){return k--?1+f(n,k)+k/n:0;} Wypróbuj online!

— Steadybox

3

R , 37 33 31 bajtów

-6 bajtów dzięki Giuseppe

function(n,k)sum(rep(1:k,,k,n))

Wypróbuj online!

Nic fajnego. ~~Te [0:k]uchwyty przypadku, gdy k = 0.~~

— Nie dotyczy
źródło

1

Tutaj możesz pozbyć się aparatów ortodontycznych. Jeśli użyjesz argumentów w kolejności rep.default, możesz się ich pozbyć [0:k]za pomocą, rep(1:k,,k,n)ale wtedy twoja odpowiedź jest w zasadzie rturnbull, ale z podstawową R zamiastR + pryr

— Giuseppe

1

Nadal możesz pozbyć się aparatów ortodontycznych! {}

— Giuseppe,

podstawienie [0: k] mnie dopadło i zapomniałem o

— aparatach

2

C ++, 53 bajty

Po prostu użyj formuły. nma indeks 1 i indeks k0.

[](int n,int k){return k/n*(k/n+1)/2*n+k%n*(k/n+1);};

Wypróbuj online!

— Colera Su
źródło

Zaoszczędź kilka bajtów, nadużywając ~operatora. [](int n,int k){return-k/n*~(k/n)/2*n-k%n*~(k/n);};

— ceilingcat

2

J , 13 bajtów

1#.]{.(#1+i.)

Jak to działa:

Lewy argument to n, prawy to k.

i. generuje listę 0..k-1

1+ dodaje jeden do każdej liczby na liście, yealding 1,2, ..., k

# tworzy haczyk z powyższym, więc n kopii każdego elementu listy jest kopiowane.

]{. weź pierwszy n z nich

1#. znajdź ich sumę według przelicznika podstawowego.

Wypróbuj online!

— Galen Iwanow
źródło

Lubię hak.

— cole

2

Retina , 29 26 bajtów

\d+
$*
(?=.*?(1+)$)\1
$'
1

Wypróbuj online! Link zawiera przypadki testowe i nagłówek, aby sformatować je zgodnie z preferowanym wejściem ( knajpierw 0-indeksowane , 1-indeksowane ndrugie). Zainspirowała mnie odpowiedź Ruby @ GB. Wyjaśnienie:

\d+
$*

Konwertuj na unary.

(?=.*?(1+)$)\1
$'

Dopasuj każdy ciąg znaków nwewnątrz ki zamień dopasowanie na wszystko po meczu. To k-n, k-2n, k-3n, ale nrównież po meczu, więc masz k, k-n,k-2n itd. To również mecze n, które jest po prostu usunięte (nie jest to już potrzebne).

Zsumuj wyniki i przelicz z powrotem na dziesiętne.

— Neil
źródło

2

Pyth , 5 bajtów

s%_ES

Wypróbuj tutaj!

Odpowiedź Ruby na port GB. Port mojej galaretki miałby 6 bajtów:+s/Rvz

— Pan Xcoder
źródło

2

Perl 6 , 39 bajtów

->\n,\k{(0,{|($_+1 xx n)}...*)[^k].sum}

Sprawdź to

n i k są oparte na 1

Rozszerzony:

-> \n, \k { # pointy block lambda with two parameters ｢n｣ and ｢k｣

  ( # generate the sequence

    0,         # seed the sequence (this is why ｢k｣ is 1-based)

    {          # bare block lambda with implicit parameter ｢$_｣
      |(       # slip this into outer sequence
        $_ + 1 # the next number
        xx n   # repeated ｢n｣ times (this is why ｢n｣ is 1-based)
      )
    }

    ...        # keep doing that until

    *          # never stop

  )[ ^k ]      # get the first ｢k｣ values from the sequence
  .sum         # sum them
}

— Brad Gilbert b2gills
źródło

2

Kotlin , 40 bajtów

{n:Int,k:Int->Array(k,{i->i/n+1}).sum()}

Wypróbuj online!

— alves
źródło

2

Java (OpenJDK 8) , 23 bajty

n->k->(k+k%n)*(k/n+1)/2

Wypróbuj online!

Port w Python 2 GB odpowiedzi .

— Olivier Grégoire
źródło

1

05AB1E , 9 bajtów

FL`}){I£O

Wypróbuj online!

Wyjaśnienie

F           # n times do
 L`         # pop top of stack (initially k), push 1 ... topOfStack
   }        # end loop
    )       # wrap stack in a list
     {      # sort the list
      I£    # take the first k elements
        O   # sum

— Emigna
źródło

1

Python 2 , 44 bajty

f=lambda n,k:sum(sorted(range(1,k+1)*n)[:k])

Wypróbuj online!

— TFeld
źródło

1

Python 2 , 38 bajtów

lambda n,k:sum(i/n+1for i in range(k))

Wypróbuj online!

— Pręt
źródło

1

Clojure, 54 bajty

#(nth(reductions +(for[i(rest(range))j(range %)]i))%2)

Drugi argument kma indeks 0, podobnie jak (f 14 20)28.

— NikoNyrh
źródło

1

APL + WIN, 13 bajtów

+/⎕↑(⍳n)/⍳n←⎕

Monity o wprowadzenie ekranu dla n, a następnie dla k. Początek indeksu = 1.

— Graham
źródło

1

Brain-Flak , 78 bajtów

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

Wypróbuj online!

Jestem pewien, że można to zrobić lepiej, ale to początek.

— Kreator pszenicy
źródło

1

Japt , 7 6 bajtów

Pierwotnie zainspirowany przez rozwiązaniem GB i przekształcił się w port!

Pobiera kjako pierwsze wejście i njako drugie.

õ1Vn)x

Spróbuj

Wyjaśnienie

Domniemane wprowadzanie liczb całkowitych U=ki V=n. Wygeneruj tablicę liczb całkowitych ( õ) od 1do Uz krokiem Vnegated ( n) i zmniejsz ją przez dodanie ( x).

— Kudłaty
źródło

1

R , 27 bajtów

Anonimowa funkcja, która przyjmuje kiw ntej kolejności. Tworzy listę długości k(trzeci argument rep), który składa się z 1przez k(pierwszy argument rep), każdy element powtarzalny nrazy (czwarty parametr rep). Następnie pobiera sumę tej listy.

nma indeks 1 i indeks k0. Zwraca błąd dla n<1.

pryr::f(sum(rep(1:k,,k,n)))

Wypróbuj online!

— rturnbull
źródło

1

Befunge, 27 bajtów

&::00p&:10p%+00g10g/1+*2/.@

Wypróbuj online

Pobiera k, a następnie n jako dane wejściowe. Wykorzystuje odpowiedź GB jako podstawę matematyczną.

— Jo King
źródło

fajna, bez tytułu sekwencja

Wyzwanie

Dane techniczne

Przypadki testowe

Realizacja referencyjna

Rubin , 32 28 23 bajtów

Wyjaśnienie

Python 2 , 34 28 bajtów

Łuska , 4 bajty

Wyjaśnienie

APL (Dyalog) , 12 10 8 bajtów

Mathematica, 40 bajtów

Mathematica, 18 bajtów

MATL , 12 11 bajtów

Galaretka , 5 bajtów

Galaretka , 4 bajty

JavaScript (ES6), 24 21 bajtów

Przypadki testowe

W jaki sposób?

Partia, 34 bajty

Python 2 , 29 bajtów

Python 2 , 30 bajtów

Haskell , 28 bajtów

C, 38 34 bajtów

R , 37 33 31 bajtów

C ++, 53 bajty

J , 13 bajtów

Retina , 29 26 bajtów

Pyth , 5 bajtów

Perl 6 , 39 bajtów

Rozszerzony:

Kotlin , 40 bajtów

Java (OpenJDK 8) , 23 bajty

05AB1E , 9 bajtów

Python 2 , 44 bajty

Python 2 , 38 bajtów

Clojure, 54 bajty

APL + WIN, 13 bajtów

Brain-Flak , 78 bajtów

Japt , 7 6 bajtów

Wyjaśnienie

R , 27 bajtów

Befunge, 27 bajtów