^{もともと乗法的デジタルルート}

チャレンジ

^{基本的にタイトルが言うことをする}

方法

標準入力メソッドのいずれかで正の整数1 <= N <= 100000000が与えられた場合、 ゼロを無視してすべての数字を乗算します。

例：数字を入力して361218402ください：

• 3* 6=18
• 18* 1=18
• 18* 2=36
• 36* 1=36
• 36* 8=288
• 288* 4=1152
• 1152* 1 ^{（ゼロを無視するか、1に変換します）} =1152
• 1152* 2=2304

の出力361218402は2304

テストケース

1 => 1
他のすべての数字> 0 =>それ自体
10 => 1
20 => 2
100 => 1
999 => 729
21333 => 54
17801 => 56
4969279 => 244944
100000000 => 1

標準の抜け穴は禁止されており、これはcode-golfであるため、最短バイトカウントが優先されます。

70バイトのブレインフラックの回答で賞金を得たジョーキングおめでとうございます！

Pyt、3 バイト

ąžΠ

説明：

ą       Convert input to array of digits (implicit input as stack is empty)
 ž      Remove all zeroes from the array
  Π     Get the product of the elements of the array

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

Haskell、27バイト

foldr((*).max 1.read.pure)1

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

UniHaskellでゴルフをしていない-XUnicodeSyntax

import UniHaskell

f ∷ String → Int
f = product ∘ map (max 1 ∘ read ∘ pure)

説明

私が最初に持っていたものから始めましょう：

product.map(max 1.read.pure)

これは、文字列（または文字のリスト）s（）を引数として取る関数に評価される、ポイントのない式です。それはsにマッピングされ、基本的に各文字iを取得し、それをリスト（文字列にする）に注入し（）、それを読み取って文字列（）を評価し、最後にiと1の大きい方を取得します（）。次に、結果の整数のリスト（）を受け取ります。"301"max 1.read.pure["3", "0", "1"][3, 0, 1][3, 1, 1]product3

次に、次のように1バイトずつゴルフしました。

foldr((*).max 1.read.pure)1

これは、productと同等であるため機能しfoldr (*) 1ます。マッピングと折り畳みの代わりに、折り畳みによって2つを結合します。折り畳み(*).max 1.read.pureでは、ゼロ以外の各桁を取得し、アキュムレーターで乗算します。

Python 2、34バイト

f=lambda n:n<1or(n%10or 1)*f(n/10)

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

ゼリー、4バイト

Do1P

オンラインでお試しください！またはテストスイートを見る

使い方

Do1P - Main link. Argument: n (integer)  e.g. 1230456
D    - Digits                                 [1, 2, 3, 0, 4, 5, 6]
 o1  - Replace 0 with 1                       [1, 2, 3, 1, 4, 5, 6]
   P - Product                                720

R、40バイト

cat(prod((x=scan()%/%10^(0:12)%%10)+!x))

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

入力は12桁以下であることが保証されているため、これはうまく機能するはずです。桁をx（先頭のゼロを含む）として計算し、ゼロを1製品で置き換えて計算します。

cat(					#output
    prod(				#take the product of
         (x=				#set X to
	    scan()			#stdin
		  %/%10^(0:12)%%10)	#integer divide by powers of 10, mod 10, yields digits of the input, with leading zeros. So x is the digits of the input
                                   +!x  #add logical negation, elementwise. !x maps 0->1 and nonzero->0. adding this to x yields 0->1, leaving others unchanged
                                      ))

C（gcc）、39バイト

k;f(n){for(k=1;n;n/=10)k*=n%10?:1;k=k;}

最適化なしでコンパイルする必要があります（とにかくgccのデフォルト設定です）。

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

Brain-Flak、74 72 70バイト

-2数値の否定を取得することを提案してくれたNitrodonに感謝します。

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

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

これをさらにゴルフするには、合計を1で初期化する必要がないように乗算をやり直すなど、いくつかの方法があります。（-2バイト）

使い方：

{ Loop over every number
  ([{}]((((()()()){}){}){}){}) Add 48 to the negative of the ASCII to get the negation of the digit
  { If the number is not 0
     ({<({}())><>([[]](){})<>}<><{}>)<> Multiply the total by the number
                                          If the total is on an empty stack, add 1
  } 
  {} Pop the excess 0
}<> Switch to the stack with the total

05AB1E、4バイト

0KSP

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

説明

0K     # remove zeroes
  S    # split to list of digits
   P   # product

J、_{17 14} 13バイト

-4バイト（@GalenIvanov提供）

[:*/1>.,.&.":

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

おそらくいくつか改善することができます。編集：そしてそうだった。

説明

[: */ 1 >. ,.&.":
                 ": Convert to string
             ,.     Convert row to column vector
               &.   Convert to numbers
      1 >.        Maximum of each element with 1 (convert 0 to 1)
   */              Product
[:                 Cap fork

&.-underは、右側の動詞、次に左側の動詞、次に右側の動詞の逆を適用する気の利いた副詞です。また、技術的にはeval（".-do）を使用して数値に戻すこともできます。

Python 2、43バイト

lambda n:eval('*'.join(`n`.replace(*'01')))

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

JavaScript（ES6）、28バイト

32ビット整数用に設計されています。

f=n=>!n||(n%10||1)*f(n/10|0)

テストケース

f=n=>!n||(n%10||1)*f(n/10|0)

console.log(f(1))        // => 1
console.log(f(10))       // => 1
console.log(f(20))       // => 2
console.log(f(100))      // => 1
console.log(f(999))      // => 729
console.log(f(21333))    // => 54
console.log(f(17801))    // => 56
console.log(f(4969279))  // => 244944

Bash + coreutils + sed + bc、27 24 23バイト

tr 0 1|sed s/\\B/*/g|bc

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

Brachylog、5バイト

⊇ẹ×ℕ₁

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

説明

⊇        Take a subset of the input
 ẹ       Split the subset into a list of digits
  ×      Product
   ℕ₁    This product must be in [1, +∞)

これは⊇、大きなサブセットから小さなサブセットに統一するために機能します。そのため、ゼロ以外の積をもたらす最初のものは、すべてのゼロが除外され、それ以外は何もない場合です。

Perl 5、23 + 1（-p）= 24バイト

$\=1;s/./$\*=$&||1/ge}{

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

Java 8、55 54 53 51バイト

int f(int n){return n>0?(n%10>0?n%10:1)*f(n/10):1;}

Port of @Dennis 'Python 2 answer。@RiaDの
おかげで-1バイト。

ここで試してみてください。

55 54バイトバージョン：

n->{int r=1;for(;n>0;n/=10)r*=n%10>0?n%10:1;return r;}

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

ジュリア0.6、26バイト

!x=prod(max.(digits(x),1))

使用例：

julia> !54
20

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

JavaScript（Node.js）、30バイト

f=([a,...b])=>a?(+a||1)*f(b):1

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

かかる文字列を入力として配列として扱い、それを、配列非構造によって第一の要素を分離します[a,...b]。文字に+a||1対応する数字を返しますa。残りは自己説明だと思います。

オクターブ、21バイト

バイトを保存してくれた@Luis Mendoと、別のバイトを保存してくれた@alephalphaに感謝します！

@(n)prod((k=n-48)+~k)

入力を数字列として受け取ります。

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

30バイト：

@(n)prod((k=num2str(n)-48)+~k)

入力を数値として受け取ります。

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

Brain-Flak、88バイト

読み取り可能なバージョン：

#Push a 1 onto the alternate stack. Return to the main stack
(<>())<>

#While True:
{

    #Push the current digit minus 48 (the ASCII value of '0') onto the alternate stack
    ({}[((((()()()){}){}){}){}]<>)

    #If it's not 0...
    {
        (<

            #Multiply the top two values (the current digit and the current product that started at 1)
            ({}<>)({<({}[()])><>({})<>}{}<><{}>)

        #Also push a 0
        >)

    #Endwhile
    }

    #Pop the 0
    {}

    #Return to the main stack
    <>

#Endwhile
}

#Toggle to the alternate stack, and implicitly display
<>

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

Clojure、56バイト

(fn[n](apply *(replace{0 1}(map #(-(int %)48)(str n)))))

かなり基本的です。数値を文字列に変換し、各文字から48を減算して、数値に戻します。次に、各0を1に置き換え*て、結果の数値リストに適用します（リスト全体で減少*します）。数値または文字列化された数値を受け入れることができます。

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

(defn non-zero-prod [n]
  (let [; Abusing strings to get each digit individually
        str-n (str n)

        ; Then turn them back into numbers
        digits (map #(- (int %) 48) str-n)

        ; Substitute each 0 for a 1
        replaced (replace {0 1} digits)]

    ; Then get the product
    (apply * replaced)))

MATL、5バイト

!UXzp

入力は文字列として取得されます

MATL Onlineでお試しください！または、Try It Onlineでテストケースを確認してください！

説明

!     % Implicit input: string (row vector of chars). Transpose into
      % a column vector of chars
U     % Convert from string to number. Treats each row independently,
      % producing a column vector of numbers
Xz    % Keep only nonzeros
p     % Product. Implicit display

Befunge、23 22バイト

1<*_$#`.#0@#:+!:-"0"~$

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

説明

1<                        Push 1, turn back left, and push a second 1.       
                     $    Drop one of them, leaving a single 1, the initial product.

                -"0"~     Read a char and subtract ASCII '0', converting to a number.
             +!:          If it's 0, make it 1 (this is n + !n).
      `  0  :             Then test if it's greater than 0, to check for EOF.
   _                      If it is greater than 0, it wasn't EOF, so we continue left.
  *                       Multiply with the current product, becoming the new product.
1<                        Now we repeat the loop, but this time push only a single 1...
                     $    ...which is immediately dropped, leaving the current product.

   _                      On EOF, the input value will be negative, so we branch right.
    $                     We don't need the input, so drop it.
       .  @               Leaving us with the product, which we output, then exit.

JavaScript（Node.js）、36 33バイト

入力を数値文字列として受け取り、それを配列に展開し、乗算によって値を減らすか、結果が0の場合に値を返す単純なJavaScript（ES6）メソッド。

Shaggyのおかげで3バイト節約

s=>[...s].reduce((a,b)=>b*a||a,1)

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

ルビー、42 40 35 32 27バイト

p eval (gets.chars-[?0])*?*

入力に改行がないと仮定します 主な影響を

@GolfWolfのおかげで-2バイト

@Conor O'Brienのおかげで-5バイト

Java（OpenJDK 8）、45バイト

s->s.chars().reduce(1,(a,b)->b<49?a:a*(b-48))

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

C＃、97バイト（最初のコードゴルフ）

static int X(int y){var z=y.ToString();int r=1;foreach(var q in z){if(q!=48){r*=q-48;}}return r;}

私はそれをメソッドでラップする必要があったのかどうかはわかりませんが、安全にするためにそれを含めました。

Intを受け取り、文字列に変換して、0を無視して各文字の倍数を返します。ascii値をcharとして読み取るプログラムを使用しているため、マイナス48になりました。

C＃（Visual C＃Interactive Compiler）、46バイト

i.Select(c=>c>48?c-48:1).Aggregate((p,c)=>p*c)

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

Haskell、36バイト

f n=product[read[d]|d<-show n,d>'0']

同じバイト数：

f n=product[max 1$read[d]|d<-show n]

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

ゼリー、6、5つのバイト

ṢU×\Ṁ

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

> <>、19バイト

1i:&0(?n&c4*-:0=+*!

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