Çarpımsal undelta

9

Şimdi değerlerin "çarpımsal deltalarını" tanımlayalım olarak: $[\; 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} \;]$

Ters işlem - yani "çarpımsal undelta" - yukarıdaki işlem verilen değerlerle sonuçlanacak şekilde değerler döndürür.

Misal

Verilen değerler " çarpma undelta " işlemine genel bir çözüm : $[\; 1, 5, 3, 2 \;]$

[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}} \;]$

sıfır dışında herhangi bir değere ayarlanarak, örneğin ayarlanarak belirli bir çözüm elde edilebilir : $a_0$ $a_0 := 1$

[1, 1, 5, 15, 30]

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

Meydan okuma

Bu meydan okuma için göreviniz yukarıda tanımlandığı gibi " çarpma undelta " işlemini uygulamaktır .

kurallar

Girişler:

sıfır olmayan bir değer $a_0$
sıfır olmayan " çarpma deltalarının " boş olmayan bir listesi / dizisi / vektörü / ...

Çıktı, ilk öğenin $a_0$ olacağı ve " çoğaltıcı deltaların " girdi olacağı şekilde değerlerin bir listesi / dizisi / vektör / ... değeridir .

Not: Dil negatif tamsayılar hiçbir destek sahipse yerini alabilir sıfırdan tarafından pozitifliği .

Test senaryoları

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

— ბიმო
kaynak

İlk öğenin + olduğu tek bir uzunluk 1 + delta sayısı listesi alabilir miyiz?

— Adám

@ Adám: Buna hayır diyeceğim çünkü mevcut cevaplar için bir şeyler değişecek.

— ბიმო

Yanıtlar:

17

Haskell, 8 bayt

scanl(*)

Çevrimiçi deneyin!

— niml'i
kaynak

Kimsenin bunu yazıp yazmadığını kontrol ediyordum ve hiç kimsenin yazmadığını düşündüm ve "harika, sonra yazacağım" dedim ve sonra cevabınızı sayfanın alt kısmında gördüm. upvoted.

— Yel Değirmeni Kurabiye

9

APL (Dyalog), 3 bayt

×\∊

Çevrimiçi deneyin!

Soldaki numarayı ve sağdaki diziyi almam gerekirse:

@ H.PWiz sayesinde -2

7 5 3 bayt

×\,

— Quintec
kaynak

2

⊣,⊢sadece olabilir,

— H.PWiz

@ H.PWiz teşekkürler, tacitim son derece zayıf

— Quintec

Ebeveynlere ihtiyacınız yok; ×\,bir işlevi değerlendirir.

— Dennis

@Dennis Maalesef çalışmıyor

— Quintec

Parensleri saymanıza gerek yoktur, çünkü bazı durumlarda onlara ihtiyaç yoktur. f←×\örneğin çalışır. Btw, (-12 3 -17 1311)kalıcı bağlantıda olmalıdır (¯12 3 ¯17 1311).

— Dennis

8

R , 15 bayt

cumprod(scan())

Çevrimiçi deneyin!

Tam program. İşlev daha uzundur (girişleri "yapıştırmamıza" izin verilmediği sürece, dahili cumprodbir cevap olarak yeterli olacaktır):

R , 28 bayt

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

Çevrimiçi deneyin!

— Kirill L.
kaynak

5

MATL , 3 bayt

hYp

Çevrimiçi deneyin!

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

hYpMatl hakkında e gerçek.

— Giuseppe
kaynak

3

JavaScript (ES6), 27 bayt

Girişi alır (m)(a).

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

Çevrimiçi deneyin!

— Arnauld
kaynak

3

Japt, 3 bayt

å*V

açıklama

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

— kaba tüylü
kaynak

3

Python 3, 39 bayt

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

Alternatif yaklaşım. Bir jeneratör döndürür.

Çevrimiçi deneyin!

— Quintec
kaynak

2

Jöle , 3 bayt

;×\

Çevrimiçi deneyin!

— Outgolfer Erik
kaynak

2

Wolfram Dili (Mathematica) , 14 bayt

FoldList@Times

Çevrimiçi deneyin!

FoldList[Times, a0, {x1, x2, ..., xn}]istenen çıktıyı üretir. FoldList[Times]hala kendisini bekleyen saf bir işlev üreten körelmiş formdur a0ve {x1, x2, ..., xn}.

— Misha Lavrov
kaynak

2

Perl 6 , 9 bayt

{[\*] @_}

Çevrimiçi deneyin!

— nwellnhof
kaynak

2

Standart ML , 32 bayt

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

Çevrimiçi deneyin!

Ungolfed:

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

— Laikoni
kaynak

2

J , 6 5 bayt

Bubbler sayesinde -1 bayt

*/\@,

Çevrimiçi deneyin!

Açıklama:

Diadik bir fiil, sol argüman, katı a0olan - vektör

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

— Galen Ivanov
kaynak

1

*/\@,tamamen aynı şekilde çalışır.

— Bubbler

@ Kabarcık Evet, elbette! Teşekkür ederim!

— Galen Ivanov

1

Toplu, 69 bayt

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

Girdisini alır $a_0$ STDIN ve deltaları komut satırı bağımsız değişkenleri olarak kullanır.

— Neil
kaynak

1

Ortak Lisp, 67 bayt

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

Çevrimiçi deneyin!

— Renzo
kaynak

1

Kabuk , 2 bayt

G*

Çevrimiçi deneyin!

Bu, nimi'nin Haskell'deki cevabına eşdeğerdir : bu scanl(*), çarpma kullanarak soldan azaltmak ve tüm kısmi sonuçları döndürmek anlamına gelir.

— Aslan burcu
kaynak

1

05AB1E , 5 3 bayt

šηP

@BMO sayesinde -2 bayt .

Çevrimiçi deneyin veya tüm test senaryolarını doğrulayın .

Açıklama:

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

1

Hayır, sdiğer girişi almak için oradaydı. :) stakas ve šlistenin başında prepending edilir. Her iki durumda da -2 için teşekkürler

— Kevin Cruijssen

1

Pyth, 6 bayt

*FR._s

Bunu burada test edin!

Alternatif olarak 7 bayt:

.u*NYEQ

Burada test edin!

Birincisi girişi bir demet olarak alır, ikincisi girişi iki ayrı satır olarak alır.

Haritalamada ve 1 bayt tasarruf etmede bana yardımcı olduğu için @Sok'a teşekkürler.

— Steven H.
kaynak

1

Sen ikinci çözeltide haritayı uygulayarak bir bayt kaydedebilirsiniz Rolarak, *FR._s- gösteri

— Sok

@Sok Güzel yakala! Mİşe yarayacağını varsaymaya çalıştım , sonra şeker ayrıştırma hatası aldım - çoğunlukla için ayrışmanın nasıl F <pf2>çalıştığını hatırlamadığım için .

— Steven

Ben gerçekten iç içe anlamıyorum, dürüst olacağım M, F, L, ve Ro): Bir çalıştı kadar çalışma, sadece bir demet çalıştı

— Sok

1

Python 2 , 40 bayt

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

Çevrimiçi deneyin!

Şaşırtıcı bir şekilde, Python 3'e geçiş ve orada jeneratör kullanımı, özyinelemeli çözümden sadece 1 bayt tasarruf sağlar.

— Steven H.
kaynak

1

PowerShell , 29 bayt

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

Çevrimiçi deneyin!

Bu sadece değerlerin çıktısının iyi olduğunu varsayar.

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

Bu iyi değilse, bu aslında listeyi oluşturur ve ardından aynı şekilde yazdırılan toString öğesine iter.

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

— Veskah
kaynak

Kurallar şunlardır: Output is a list/array/vector/. Birincisi iyi.

— mazzy

1

MathGolf , 6 5 bayt

\{\o*

Çevrimiçi deneyin!

~~Bu 5 bayt ( \{\o*) olabilir düşünüyorum ama \giriş ile uğraşırken talimat biraz kapalı görünüyor.~~ Bu, en son sürümde düzeltildi.

Açıklama:

\       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
kaynak

`` Örtülü girdi ile '' kullanımını yeniden tasarladım. Yine de yığındaki öğeleri aynı şekilde işler, ancak şimdi girişten iki öğeyi yalnızca bir yerine yığına açar. Bu meydan okuma için yararlı olabileceğini düşünüyorum.

— maxb

0

Python 2 , 47 bayt

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

Çevrimiçi deneyin!

— Chas Kahve
kaynak

Jeneratörler kullanarak python 3'te bir python çözümünün daha kısa olması sizi ilgilendirebilir

— Quintec

0

Kömür , 12 bayt

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

Çevrimiçi deneyin! Bağlantı, kodun ayrıntılı versiyonudur. Açıklama:

    Ｎ           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
kaynak

0

K (oK) , 9 bayt

{(*\)x,y}

Çevrimiçi deneyin!

İlk sayıyı ikinci girdiye liste olarak ekler ve art arda çarpma sonuçlarını döndürür

Test Durumları

Girişinizi aşağıdaki gibi işlevden sonra girin ve çalıştırın, çünkü TiO'da bu dil için girişi düzgün bir şekilde nasıl kullanacağımdan emin değilim

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

— Thaufeki
kaynak

0

dc , 13 bayt

p[*pz1<A]dsAx

Çevrimiçi deneyin!

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
kaynak

Sitemizi kullandığınızda şunları okuyup anladığınızı kabul etmiş olursunuz: Çerez Politikası ve Gizlilik Politikası.

Licensed under cc by-sa 3.0 with attribution required.