Hãy để chúng tôi xác định "deltas nhân" của các giá trị $[\; a_0, \cdots a_N, \;]$ như:

Hoạt động ngược lại - cụ thể là "phép nhân undelta" - trả về các giá trị sao cho thao tác trên dẫn đến các giá trị đã cho.

Thí dụ

Cho các giá trị $[\; 1, 5, 3, 2 \;]$ một giải pháp chung chohoạt động"nhân bội" là:

Một giải pháp đặc biệt có thể thu được bằng cách thiết lập $a_0$ đến bất kỳ giá trị khác hơn không, ví dụ bằng cách thiết lập $a_0 := 1$ , chúng tôi sẽ nhận được:

Thử thách

Nhiệm vụ của bạn cho thử thách này là thực hiện thao tác " nhân bội " như được định nghĩa ở trên.

Quy tắc

Đầu vào là:

• giá trị khác không $a_0$
• một danh sách không trống / mảng / vectơ / ... của " deltas nhân " khác không

Đầu ra là một danh sách / mảng / vector / ... các giá trị như vậy mà yếu tố đầu tiên là $a_0$ và cho đó là " đồng bằng châu thổ nhân giống " là những đầu vào.

Lưu ý: Nếu ngôn ngữ của bạn không có hỗ trợ của số nguyên âm, bạn có thể thay thế khác không bằng cách tích cực .

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

2 [21] -> [2,42]
1 [1,5,3,2] -> [1,1,5,15,30]
-1 [1,5,3,2] -> [-1,-1,-5,-15,-30]
7 [1,-5,3,2] -> [7,7,-35,-105,-210]
2 [-12,3,-17,1311] -> [2,-24,-72,1224,1604664]
-12 [7,-1,-12,4] -> [-12,-84,84,-1008,-4032]
1 [2,2,2,2,2,2,2,2] -> [1,2,4,8,16,32,64,128,256]

Haskell, 8 byte

scanl(*)

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

APL (Dyalog), 3 byte

×\∊

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

Nếu tôi phải lấy số ở bên trái và mảng bên phải:

-2 cảm ơn @ H.PWiz

7 5 3 byte

×\,

R , 15 byte

cumprod(scan())

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

Chương trình đầy đủ. Chức năng dài hơn (trừ khi chúng ta được phép "dán" các đầu vào lại với nhau, do đó, tích hợp cumprodsẽ đủ là một câu trả lời hoàn chỉnh):

R , 28 byte

function(i,x)cumprod(c(i,x))

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

MATL , 3 byte

hYp

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

            #implicit input, x_0 and A
h           #horizontally concatenate
Yp          #cumulative product
            #implicit output

Các hYpe về MATL là có thật.

JavaScript (ES6), 27 byte

Đưa đầu vào là (m)(a).

m=>a=>[m,...a.map(x=>m*=x)]

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

Japt, 3 byte

å*V

Thử nó

Giải trình

        :Implicit input of array U and integer V
å       :Cumulatively reduce U
 *      :By multiplication
  V     :With an initial value of V

Python 3, 39 byte

def f(a,b):
    for x in[1]+b:a*=x;yield a

Cách tiếp cận khác. Trả về một máy phát điện.

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

Thạch , 3 byte

;×\

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

Ngôn ngữ Wolfram (Mathicala) , 14 byte

FoldList@Times

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

FoldList[Times, a0, {x1, x2, ..., xn}]tạo ra sản lượng mong muốn. FoldList[Times]là hình thức curried tạo ra một hàm thuần túy vẫn đang chờ nó a0và {x1, x2, ..., xn}.

Perl 6 , 9 byte

{[\*] @_}

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

ML chuẩn , 32 byte

fun f(x::r)a=a::f r(a*x)|f&a=[a]

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

Ung dung:

fun f (x::xr) a = a :: f xr (a*x)
  | f    _    a = [a]

J , 6 5 byte

-1 byte nhờ Bubbler

*/\@,

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

Giải trình:

Một động từ diadic, đối số bên trái là a0, đối số thứ nhất - vectơ

     @, - append the vector to a0 and 
  */\   - find the running product

Mẻ, 69 byte

@set/pa=
@echo %a%
@for %%d in (%*) do @set/aa*=%%d&call echo %%a%%

$a_0$

Lisp thường gặp, 67 byte

(lambda(a l &aux(y 1))(mapcar(lambda(x)(setf y(* y x)))(cons a l)))

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

Chồng , 2 byte

G*

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

Điều này tương đương với câu trả lời của nimi trong Haskell : scanl(*), có nghĩa là giảm từ bên trái bằng cách nhân và trả về tất cả các kết quả một phần.

05AB1E , 5 3 byte

šηP

-2 byte nhờ @BMO .

Dùng 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:

š      # Prepend the (implicit) input-integer at the start of the (implicit) input-list
       #  i.e. -12 and [7,-1,-12,4] → ["-12",7,-1,-12,4]
 η     # Prefixes of this new list
       #  i.e. ["-12",7,-1,-12,4]
       #   → [["-12"],["-12",7],["-12",7,-1],["-12",7,-1,-12],["-12",7,-1,-12,4]]
  P    # Take the product of each inner list (and output implicitly)
       #  i.e. [["-12"],["-12",7],["-12",7,-1],["-12",7,-1,-12],["-12",7,-1,-12,4]]
       #   → [-12,-84,84,-1008,-4032]

Bình thường, 6 byte

*FR._s

Kiểm tra cái đó ở đây!

Ngoài ra, 7 byte:

.u*NYEQ

Kiểm tra nó ở đây!

Cái đầu tiên lấy đầu vào là một tuple, cái thứ hai lấy đầu vào là hai dòng riêng biệt.

Cảm ơn @Sok đã giúp tôi có được bản đồ tốt và tiết kiệm 1 byte.

Python 2 , 40 byte

f=lambda a,b:[a]+(b and f(a*b[0],b[1:]))

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

Đáng ngạc nhiên, việc chuyển sang Python 3 và sử dụng các trình tạo ở đó chỉ tiết kiệm 1 byte so với giải pháp đệ quy.

PowerShell , 29 byte

param($a,$b)$a;$b|%{($a*=$_)}

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

Giả định này chỉ xuất ra các giá trị là tốt.

> .\scratch.ps1 1 (1,5,3,2)
1
1
5
15
30

Nếu điều đó không ổn, điều này thực sự xây dựng danh sách và sau đó đẩy nó sangString mà in theo cùng một cách.

param($a,$b)$c=,$a;$b|%{$c+=$_*$c[-1]};$c #41 bytes

MathGolf , 6 5 byte

\{\o*

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

Tôi nghĩ rằng điều này có thể là 5 byte ( \{\o*) nhưng \hướng dẫn có vẻ hơi sai khi xử lý đầu vào. Điều này hiện đã được sửa trong phiên bản mới nhất.

Giải trình:

\       Swap arguments, pushing both to stack
 {      Foreach loop over second argument
  \o    Output counter with newline
    *   Multiply counter by current element
        Implicitly output the last element

Python 2 , 47 byte

lambda n,A:reduce(lambda a,c:a+[a[-1]*c],A,[n])

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

Than , 12 byte

ＩＥ⁺⟦Ｎ⟧ＡΠ⊞Ｏυι

Hãy thử trực tuyến! Liên kết là phiên bản dài dòng của mã. Giải trình:

    Ｎ           Input a₀
   ⟦ ⟧          Wrap in a list
      Ａ         Input deltas as a list
  ⁺              Concatenate lists
 Ｅ              Map over elements
           ι    Current element
          υ     Predefined empty list variable
        ⊞Ｏ      Push and return updated list
       Π        Product
Ｉ               Cast to string
                Implicitly print each value on its own line

K (oK) , 9 byte

{(*\)x,y}

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

Tham gia số đầu tiên vào đầu vào thứ hai dưới dạng danh sách, sau đó trả về kết quả nhân liên tiếp

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

Nhập đầu vào của bạn sau chức năng như bên dưới và sau đó chạy, vì tôi không chắc cách sử dụng đầu vào đúng cho ngôn ngữ này trong TiO

{(*\)x,y}[1;1 5 3 2]

dc , 13 byte

p[*pz1<A]dsAx

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

p[*pz1<A]dsAx
p               # Print the first element
  *p            # Multiply top elements on the stack
 [  z1<A]dsAx   # until only one element is left