ให้เรากำหนดค่า"delta multiplicative"ของค่าต่างๆ $[\; a_0, \cdots a_N, \;]$ เช่น:

[a_{1} / a_{0}, \dots, a_{i + 1} / a_{i}, \dots, a_{N} / a_{N - 1}]

$[\; a_1 / a_0, \cdots, a_{i+1} / a_i, \cdots, a_N / a_{N-1} \;]$

การดำเนินการย้อนกลับ - คือ"multiplicative undelta" - ส่งคืนค่าเช่นการดำเนินการข้างต้นส่งผลให้ค่าที่กำหนด

ตัวอย่าง

ค่าที่กำหนด $[\; 1, 5, 3, 2 \;]$ โซลูชันทั่วไปสำหรับการดำเนินการ " multiplicative undelta " คือ:

[a_{0}, \underset{a_{1}}{\underset{⏟}{a_{0} \cdot 1}}, \underset{a_{2}}{\underset{⏟}{a_{1} \cdot 5}}, \underset{a_{3}}{\underset{⏟}{a_{2} \cdot 3}}, \underset{a_{4}}{\underset{⏟}{a_{3} \cdot 2}}]

$[\; a_0, \quad \underset{a_1}{\underbrace{a_0 \cdot 1}}, \quad \underset{a_2}{\underbrace{a_1 \cdot 5}}, \quad \underset{a_3}{\underbrace{a_2 \cdot 3}}, \quad \underset{a_4}{\underbrace{a_3 \cdot 2}} \;]$

วิธีการแก้ปัญหาเฉพาะสามารถรับได้โดยการตั้งค่า $a_0$ เป็นค่าใด ๆ ที่ไม่ใช่ศูนย์ตัวอย่างเช่นโดยการตั้งค่า $a_0 := 1$ เราจะได้รับ:

[1, 1, 5, 15, 30]

$[\; 1, 1, 5, 15, 30 \;]$

ท้าทาย

งานของคุณสำหรับความท้าทายนี้คือการใช้การดำเนินการ " multiplicative undelta " ตามที่กำหนดไว้ข้างต้น

กฎระเบียบ

อินพุตคือ:

ค่าที่ไม่เป็นศูนย์ $a_0$
รายการ / อาเรย์ / เวกเตอร์ / ... ที่ไม่เป็นค่าว่างของ " delta แบบทวีคูณ "

เอาต์พุตเป็นรายการ / array / vector / ... ของค่าที่องค์ประกอบแรกคือ $a_0$ และที่ " multiplicative deltas " เป็นอินพุต

หมายเหตุ:ถ้าภาษาของคุณได้รับการสนับสนุนของจำนวนเต็มเชิงลบที่คุณไม่อาจแทนที่ไม่ใช่ศูนย์โดยในเชิงบวก

กรณีทดสอบ

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]

code-golf array-manipulation integer

— ბიმო
แหล่งที่มา

เราขอรายการเดลต้าที่มีความยาว 1 + หมายเลขเดียวได้ไหมรายการแรกคือa₀?

— Adám

@ Adám: ฉันจะบอกว่าไม่เพราะมันจะเปลี่ยนสิ่งสำหรับคำตอบที่มีอยู่

— ბიმო

17

Haskell ขนาด 8 ไบต์

scanl(*)

ลองออนไลน์!

— Nimi
แหล่งที่มา

ฉันกำลังตรวจสอบว่ามีใครเขียนหรือไม่และฉันคิดว่าไม่มีใครเขียนและฉันบอกว่า "เท่ห์แล้วฉันจะเขียน" แล้วก็เห็นคำตอบของคุณที่ด้านล่างของหน้า upvoted

— คุกกี้ Windmill

9

APL (Dyalog) 3 ไบต์

×\∊

ลองออนไลน์!

ถ้าฉันต้องใส่ตัวเลขทางซ้ายและอาร์เรย์ทางด้านขวา:

-2 ขอบคุณ @ H.PWiz

7 5 3 ไบต์

×\,

— Quintec
แหล่งที่มา

2

⊣,⊢สามารถเป็นได้,

— H.PWiz

@ H.PWiz ขอบคุณโดยปริยายของฉันอ่อนแอมาก

— Quintec

คุณไม่จำเป็นต้องมี parens; ×\,ประเมินฟังก์ชั่น

— เดนนิส

@Dennis ดูเหมือนว่าจะไม่ทำงานอย่างน่าเสียดาย

— Quintec

คุณไม่จำเป็นต้องนับ parens เพราะไม่จำเป็นในบางสถานการณ์ f←×\ทำงานได้เช่น Btw ที่ในความคิดเห็นของคุณควรจะ(-12 3 -17 1311) (¯12 3 ¯17 1311)

— เดนนิส

8

R , 15 ไบต์

cumprod(scan())

ลองออนไลน์!

โปรแกรมเต็มรูปแบบ ฟังก์ชั่นนั้นยาวกว่า (ยกเว้นว่าเราได้รับอนุญาตให้ "กาว" อินพุตเข้าด้วยกันดังนั้นในตัวcumprodจะพอเพียงเป็นคำตอบที่สมบูรณ์):

R , 28 ไบต์

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

ลองออนไลน์!

— คิริลล์แอล
แหล่งที่มา

5

MATL , 3 ไบต์

hYp

ลองออนไลน์!

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

hYpอีเกี่ยวกับ MATL ที่เป็นจริง

— จูเซปเป้
แหล่งที่มา

3

JavaScript (ES6), 27 ไบต์

(m)(a)จะเข้าเป็น

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

ลองออนไลน์!

— Arnauld
แหล่งที่มา

3

Japt, 3 ไบต์

å*V

ลองมัน

คำอธิบาย

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

— มีขนดก
แหล่งที่มา

3

Python 3, 39 ไบต์

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

วิธีการทางเลือก ส่งคืนเครื่องกำเนิด

ลองออนไลน์!

— Quintec
แหล่งที่มา

2

เยลลี่ 3 ไบต์

;×\

ลองออนไลน์!

— Erik the Outgolfer
แหล่งที่มา

2

ภาษา Wolfram (Mathematica)ขนาด 14 ไบต์

FoldList@Times

ลองออนไลน์!

FoldList[Times, a0, {x1, x2, ..., xn}]สร้างผลลัพธ์ที่ต้องการ FoldList[Times]เป็นรูปแบบที่แกงกะหรี่ที่ผลิตฟังก์ชั่นบริสุทธิ์ยังคงรอให้มันและa0{x1, x2, ..., xn}

— Misha Lavrov
แหล่งที่มา

2

Perl 6 , 9 ไบต์

{[\*] @_}

ลองออนไลน์!

— nwellnhof
แหล่งที่มา

2

ML มาตรฐานขนาด 32 ไบต์

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

ลองออนไลน์!

Ungolfed:

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

— Laikoni
แหล่งที่มา

2

J , 6 5 ไบต์

-1 ไบต์ขอบคุณ Bubbler

*/\@,

ลองออนไลน์!

คำอธิบาย:

กริยา diadic, อาร์กิวเมนต์ซ้ายคือa0, rigth one - เวกเตอร์

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

— Galen Ivanov
แหล่งที่มา

1

*/\@, works exactly the same.

— Bubbler

@Bubbler Yes, of course! Thank you!

— Galen Ivanov

1

Batch, 69 bytes

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

Takes input of $a_0$ on STDIN and the deltas as command-line arguments.

— Neil
แหล่งที่มา

1

Common Lisp, 67 bytes

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

Try it online!

— Renzo
แหล่งที่มา

1

Husk, 2 bytes

G*

Try it online!

This is equivalent to nimi's answer in Haskell: scanl(*), which means reduce from the left using multiplication, and return all partial results.

— Leo
แหล่งที่มา

1

05AB1E, 5 3 bytes

šηP

-2 bytes thanks to @BMO.

Try it online or verify all test cases.

Explanation:

š      # 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]

— Kevin Cruijssen
แหล่งที่มา

1

No, the s was there to get the other input. :) s is swap, and š is prepending at the start of the list. Either way, thanks for the -2

— Kevin Cruijssen

1

Pyth, 6 bytes

*FR._s

Test that one here!

Alternatively, 7 bytes:

.u*NYEQ

Test it here!

The first takes input as a tuple, the second takes input as two separate lines.

Thanks to @Sok for helping me with getting good at mapping and saving 1 byte.

— Steven H.
แหล่งที่มา

1

You can save a byte by implementing the map in the second solution as R, as in *FR._s - demonstration

— Sok

@Sok Nice catch! I had tried M assuming it'd work, then got a sugar parse failure - mostly because I didn't remember how the parsing for F <pf2> worked.

— Steven H.

I'll be honest, I don't really understand how nested M, F, L, and R work, I just tried a bunch until one worked :o)

— Sok

1

Python 2, 40 bytes

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

Try it online!

Surprisingly, the move to Python 3 and use of generators there only saves 1 byte over the recursive solution.

— Steven H.
แหล่งที่มา

1

PowerShell, 29 bytes

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

Try it online!

This assumes just outputting the values is fine.

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

If that's not fine, this actually builds the list and then pushes it to toString which prints the same way.

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

— Veskah
แหล่งที่มา

Rules are: Output is a list/array/vector/. So, the first is fine.

— mazzy

1

MathGolf, 6 5 bytes

\{\o*

Try it online!

~~I think this could be 5 bytes (\{\o*) but \ instruction seems a little off when dealing with input.~~ This is now fixed in the latest version.

Explanation:

\       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

— Jo King
แหล่งที่มา

I have redesigned the handling of `` with implicit input. It still handles items on the stack the same way, but now it pops two elements from the input onto the stack instead of just one. I think it could be useful for this challenge.

— maxb

0

Python 2, 47 bytes

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

Try it online!

— Chas Brown
แหล่งที่มา

It may be of interest to you that a python solution is shorter in python 3 using generators

— Quintec

0

Charcoal, 12 bytes

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

Try it online! Link is to verbose version of code. Explanation:

    Ｎ           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

— Neil
แหล่งที่มา

0

K (oK), 9 bytes

{(*\)x,y}

Try it online!

Joins the first number to the second input as a list, and then returns successive results of multiplication

Test Cases

Enter your input after the function like below and then run, as I'm unsure how to use input properly for this language in TiO

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

— Thaufeki
แหล่งที่มา

0

dc, 13 bytes

p[*pz1<A]dsAx

Try it online!

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

— eush77
แหล่งที่มา

undelta แบบทวีคูณ

ตัวอย่าง

ท้าทาย

กฎระเบียบ

กรณีทดสอบ

Haskell ขนาด 8 ไบต์

APL (Dyalog) 3 ไบต์

R , 15 ไบต์

R , 28 ไบต์

MATL , 3 ไบต์

JavaScript (ES6), 27 ไบต์

Japt, 3 ไบต์

คำอธิบาย

Python 3, 39 ไบต์

เยลลี่ 3 ไบต์

ภาษา Wolfram (Mathematica)ขนาด 14 ไบต์

Perl 6 , 9 ไบต์

ML มาตรฐานขนาด 32 ไบต์

J , 6 5 ไบต์

คำอธิบาย:

Batch, 69 bytes

Common Lisp, 67 bytes

Husk, 2 bytes

05AB1E, 5 3 bytes

Pyth, 6 bytes

Python 2, 40 bytes

PowerShell, 29 bytes

MathGolf, 6 5 bytes

Explanation:

Python 2, 47 bytes

Charcoal, 12 bytes

K (oK), 9 bytes

dc, 13 bytes