乗法アンデルタ

9

値の「乗法デルタ」を定義してみましょう as： $[\; 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} \;]$

逆の演算、つまり「乗法アンデルタ」は、上記の演算が指定された値になるような値を返します。

例

与えられた値1、5、3、2「乗算アンデルタ」操作の一般的なソリューションは次のとおりです。 $[\; 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}} \;]$

特定のソリューションは、をゼロ以外の値に設定することで取得できます。たとえば、次のようなを設定します。 $a_0$ $a_0 := 1$

[1, 1, 5, 15, 30]

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

チャレンジ

この課題に対するあなたの仕事は、上で定義された操作「乗法アンデルタ」を実装することです。

ルール

入力は次のとおりです。

ゼロ以外の値 $a_0$
空ではないリスト/配列/ベクトル/ ...ゼロ以外の「乗法デルタ」

出力は、最初の要素がであり、「乗法デルタ」が入力であるような値のリスト/配列/ベクトル/ ...です。 $a_0$

注：言語が負の整数をサポートしていない場合は、ゼロ以外を正の整数に置き換えることができます。

テストケース

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

— ბიმო
ソース

最初の項目がa₀である、長さ1 +デルタ数の単一のリストを取得できますか？

— アダム

@アダム：それは既存の答えの状況を変えるので、私はそれに対してノーと言うつもりです。

— ბიმო

回答:

17

Haskell、8バイト

scanl(*)

オンラインでお試しください！

— ニミ
ソース

誰かがこれを書いたかどうかを確認していたところ、誰も書いていないと思い、「クール、それから書こう」と言って、ページの下部にあなたの答えを見ました。賛成。

— 風車のクッキー

9

APL（Dyalog）、3バイト

×\∊

オンラインでお試しください！

左側の数字と右側の配列を使用する必要がある場合：

-2 @ H.PWizに感謝

7 5 3バイト

×\,

— クインテック
ソース

2

⊣,⊢ちょうどすることができ,

— H.PWiz

H.PWizのおかげで、@、私の暗黙のは非常に弱いです

— Quintec

括弧は必要ありません。×\,関数に評価されます。

— デニス

@Dennisんが、残念ながら動作するようには思えない

— Quintec

いくつかの状況では不要なため、括弧を数える必要はありません。f←×\たとえば動作します。ところで、(-12 3 -17 1311)あなたのパーマリンクのはであるべきです(¯12 3 ¯17 1311)。

— デニス

8

R、15バイト

cumprod(scan())

オンラインでお試しください！

完全なプログラム。関数はより長くなります（入力を「接着」することが許可されていない限り、組み込みcumprodは完全な答えで十分です）：

R、28バイト

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

オンラインでお試しください！

— キリル・L
ソース

5

MATL、3バイト

hYp

オンラインでお試しください！

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

hYpMATLに関する電子は本物です。

— ジュゼッペ
ソース

3

JavaScript（ES6）、27バイト

入力をとして受け取ります(m)(a)。

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

オンラインでお試しください！

— アーノールド
ソース

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

代替アプローチ。ジェネレータを返します。

オンラインでお試しください！

— クインテック
ソース

2

ゼリー、3バイト

;×\

オンラインでお試しください！

— Erik the Outgolfer
ソース

2

Wolfram言語（Mathematica）、14バイト

FoldList@Times

オンラインでお試しください！

FoldList[Times, a0, {x1, x2, ..., xn}]必要な出力を生成します。FoldList[Times]純粋関数はまだ待っている生産カリー化形式であるa0と{x1, x2, ..., xn}。

— ミシャ・ラブロフ
ソース

2

Perl 6、9バイト

{[\*] @_}

オンラインでお試しください！

— Nwellnhof
ソース

2

標準ML、32バイト

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

オンラインでお試しください！

非ゴルフ：

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

— ライコニ
ソース

2

J、6 5バイト

バブラーのおかげで-1バイト

*/\@,

オンラインでお試しください！

説明：

ダイアディック動詞、左の引数はa0、右の引数は-ベクトル

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

— ガレン・イワノフ
ソース

1

*/\@,まったく同じように動作します。

— バブラー

@バブラーはい、もちろん！ありがとうございました！

— Galen Ivanov

1

バッチ、69バイト

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

$a_0$

— ニール
ソース

1

Common Lisp、67バイト

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

オンラインでお試しください！

— レンゾ
ソース

1

ハスク、2バイト

G*

オンラインでお試しください！

これはHaskellのnimiの答えと同等ですscanl(*)。つまり、乗算を使用して左から削減し、すべての部分的な結果を返します。

— レオ
ソース

1

05AB1E、5 3 バイト

šηP

@BMOのおかげで-2バイト。

オンラインそれを試してみたり、すべてのテストケースを確認してください。

説明：

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

— ケビン・クルイセン
ソース

1

いいえ、s他の入力を取得するためにありました。:) sはスワップでありš、リストの先頭に追加されます。いずれにせよ、-2に感謝

— Kevin Cruijssen、2018年

1

Pyth、6バイト

*FR._s

ここでテストしてください！

または、7バイト：

.u*NYEQ

ここでテストしてください！

最初は入力をタプルとして受け取り、2番目は入力を2つの別々の行として受け取ります。

@Sokのおかげで、マッピングがうまくなり、1バイトを節約できました。

— スティーブンH.
ソース

1

あなたは、ように、第2の溶液中のマップを実装することで、バイトを保存することができますRのように、*FR._s- デモ

— ソック

@ソックニースキャッチ！私はMそれがうまくいくと仮定してみましたが、砂糖の解析に失敗しました-ほとんどの場合、解析がどのように行われたのか覚えていませんでしたF <pf2>。

— Steven H.

私は本当に入れ子にどのように理解していない、正直なところだろうM、F、L、およびRO）：1が働いてまで仕事は、私はちょうど束を試してみました

— ソック

1

Python 2、40バイト

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

オンラインでお試しください！

驚いたことに、Python 3への移行とそこでのジェネレーターの使用は、再帰的ソリューションよりも1バイトしか節約しません。

— スティーブンH.
ソース

1

PowerShell、29バイト

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

オンラインでお試しください！

これは、値を出力するだけで問題ないと想定しています。

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

これで問題ない場合は、実際にリストを作成してから、同じように出力するtoStringにプッシュします。

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

— ベスカ
ソース

ルールは次のとおりOutput is a list/array/vector/です。だから、最初は大丈夫です。

— mazzy

1

MathGolf、6 5バイト

\{\o*

オンラインでお試しください！

~~これは5バイト（\{\o*）かもしれないと思いますが\、入力を処理するときの命令は少しずれているようです。~~これは最新バージョンで修正されています。

説明：

\       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

— ジョーキング
ソース

暗黙の入力による ``の処理を再設計しました。スタック上のアイテムを同じ方法で処理しますが、入力から1つではなく2つの要素をスタックにポップします。このチャレンジに役立つと思います。

— maxb 2018年

0

Python 2、47バイト

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

オンラインでお試しください！

— チャス・ブラウン
ソース

ジェネレーターを使用したpython 3では、pythonソリューションの方が短いことが興味深いかもしれません

— Quintec

0

チャコール、12バイト

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

オンラインでお試しください！リンクはコードの詳細バージョンです。説明：

    Ｎ           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

— ニール
ソース

0

K（OK）、9バイト

{(*\)x,y}

オンラインでお試しください！

最初の数値をリストとして2番目の入力に結合し、乗算の連続した結果を返します

テストケース

以下のような関数の後に入力を入力し、実行します。TiOでこの言語の入力を適切に使用する方法がわからないためです。

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

— ソーフェキ
ソース

0

dc、13バイト

p[*pz1<A]dsAx

オンラインでお試しください！

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
ソース

弊社のサイトを使用することにより、あなたは弊社のクッキーポリシーおよびプライバシーポリシーを読み、理解したものとみなされます。

Licensed under cc by-sa 3.0 with attribution required.