^{Pierwotnie multiplikatywny cyfrowy root}

Wyzwanie

^{Zasadniczo rób to, co mówi tytuł}

metoda

Biorąc pod uwagę dodatnią liczbę całkowitą 1 <= N <= 100000000 jedną z naszych standardowych metod wprowadzania , pomnóż każdą cyfrę razem, ignorując zera.

Np .: Weź numer, powiedz 361218402:

• 3* 6=18
• 18* 1=18
• 18* 2=36
• 36* 1=36
• 36* 8=288
• 288* 4=1152
• 1152* 1 ^{(zignoruj ​​zera lub zamień je na jedynki)} =1152
• 1152* 2=2304

Dane wyjściowe dla 361218402to2304

Przypadki testowe

1 => 1
każda inna cyfra> 0 => sama
10 => 1
20 => 2
100 => 1
999 => 729
21333 => 54
17801 => 56
4969279 => 244944
100000000 => 1

Standardowe luki są niedozwolone, a to jest golf golfowy , więc wygrywa najkrótsza liczba bajtów!

Gratulacje dla Jo Kinga, który otrzymał nagrodę za swoją 70-bajtową odpowiedź na atak mózgu!

Pyt , 3 bajty

ąžΠ

Wyjaśnienie:

ą       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

Wypróbuj online!

Haskell , 27 bajtów

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

Wypróbuj online!

Niegolfowany z UniHaskell i-XUnicodeSyntax

import UniHaskell

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

Wyjaśnienie

Zacznę od tego, co początkowo miałem:

product.map(max 1.read.pure)

Jest to wyrażenie bez punktów, które zwraca wartość do funkcji, która przyjmuje argument (lub listę znaków) s ( "301") jako argument. Mapuje max 1.read.purena s zasadniczo przy każdej postaci I , wstrzykując go do listy (co sprawia, że łańcuch) ( ["3", "0", "1"]), a następnie czyta je, który ocenia ciąg ( [3, 0, 1]) i wreszcie przy większej z I i 1 ( [3, 1, 1]). Następnie pobiera productwynikową listę liczb całkowitych ( 3).

Następnie grałem w golfa bajtem z:

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

Działa productto, ponieważ jest równoważne z foldr (*) 1. Zamiast mapować i składać, połączyłem te dwa, składając, z (*).max 1.read.purektórymi każda niezerowa cyfra pobiera i mnoży ją przez akumulator.

Python 2 , 34 bajty

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

Wypróbuj online!

Galaretka , 4 bajty

Do1P

Wypróbuj online! lub zobacz pakiet testowy

Jak to działa

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 bajtów

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

Wypróbuj online!

Ponieważ dane wejściowe mają nie więcej niż 12 cyfr, powinno to działać dobrze. Oblicza cyfry jako x(łącznie z zerami wiodącymi), a następnie zastępuje zera 1i oblicza produkt.

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 bajtów

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

Musi zostać skompilowany bez optymalizacji (co zresztą jest domyślnym ustawieniem gcc).

Wypróbuj online!

Brain-Flak , 74 72 70 bajtów

-2 dzięki Nitrodonowi za zasugerowanie uzyskania negacji liczby, abyś musiał tylko zwiększać, a nie zmniejszać później

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

Wypróbuj online!

Może istnieć kilka sposobów gry w golfa, takich jak powtórzenie mnożenia, aby uniknąć konieczności inicjalizacji sumy z wartością 1. (-2 bajty)

Jak to działa:

{ 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 bajty

0KSP

Wypróbuj online!

Wyjaśnienie

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

J , _{17 14} 13 bajtów

-4 bajty dzięki uprzejmości @GalenIvanov

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

Wypróbuj online!

Prawdopodobnie można to poprawić. Edycja: i tak było.

Wyjaśnienie

[: */ 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 to fajny przysłówek, który stosuje czasownik po prawej stronie, następnie czasownik po lewej stronie, a następnie odwrotność czasownika po prawej stronie. Również konwersja z powrotem na liczby jest technicznie za pomocą eval ( ".-do).

Python 2 , 43 bajty

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

Wypróbuj online!

JavaScript (ES6), 28 bajtów

Zaprojektowany dla 32-bitowych liczb całkowitych.

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

Przypadki testowe

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 bajtów

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

Wypróbuj online!

Brachylog , 5 bajtów

⊇ẹ×ℕ₁

Wypróbuj online!

Wyjaśnienie

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

Działa to, ponieważ ⊇łączy duże podzbiory z małymi podzbiorami, więc pierwszym, który spowoduje powstanie niezerowego produktu, jest wykluczenie wszystkich zer i nic więcej.

Perl 5 , 23 + 1 ( -p) = 24 bajty

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

Wypróbuj online!

Java 8, 55 54 53 51 bajtów

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

Port odpowiedzi @Dennis na Python 2 .
-1 bajt dzięki @RiaD .

Wypróbuj tutaj.

55 54 bajtów wersja:

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

Wypróbuj online.

Julia 0.6, 26 bajtów

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

Przykład zastosowania:

julia> !54
20

Wypróbuj online!

JavaScript (Node.js) , 30 bajtów

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

Wypróbuj online!

Pobiera ciąg znaków jako dane wejściowe, traktuje go jako tablicę, a poprzez destrukcję tablicy oddziela pierwszy element [a,...b]. +a||1zwraca cyfrę odpowiadającą aznakowi. Wydaje mi się, że odpoczynek wyjaśnia się sam…

Oktawa , 21 bajtów

Dzięki @Luis Mendo za uratowanie bajtu i dzięki @alephalpha za uratowanie kolejnego bajtu!

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

Pobiera dane wejściowe jako ciąg cyfr.

Wypróbuj online!

30 bajtów:

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

Pobiera dane wejściowe jako liczbę.

Wypróbuj online!

Brain-Flak , 88 bajtów

Wersja do odczytu:

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

Wypróbuj online!

Clojure , 56 bajtów

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

Całkiem proste. Zamienia liczbę na ciąg znaków, a następnie odejmuje 48 od każdego znaku, aby przekształcić je z powrotem w liczby. Następnie zamienia każde 0 na 1 i stosuje *się do wynikowej listy liczb (która zmniejsza się *nad listą). Może zaakceptować numer lub numer strunowy.

Wypróbuj online!

(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 bajtów

!UXzp

Dane wejściowe są traktowane jako ciąg

Wypróbuj w MATL Online! Lub sprawdź przypadki testowe w Try It Online!

Wyjaśnienie

!     % 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 bajtów

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

Wypróbuj online!

Wyjaśnienie

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 bajtów

Prosta metoda Javascript (ES6), która pobiera dane wejściowe jako ciąg liczbowy, rozkłada je na tablicę, a następnie zmniejsza przez mnożenie lub zwraca wartość, jeśli wynikiem jest 0.

3 bajty zapisane dzięki Shaggy

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

Wypróbuj online!

Rubinowy, 42 40 35 32 27 bajtów

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

Zakłada brak wprowadzania nowych linii Znaczący wpływ

-2 bajty dzięki @GolfWolf

-5 bajtów dzięki @Conor O'Brien

Java (OpenJDK 8) , 45 bajtów

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

Wypróbuj online!

C # , 97 bajtów (pierwszy kod golfa)

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;}

Nie jestem pewien, czy musiałem zawinąć to w metodę, czy nie, więc po prostu umieściłem ją dla bezpieczeństwa.

Pobiera Int, konwertuje go na ciąg znaków i zwraca wielokrotność każdego z znaków ignorując 0. Musiał minus 48 ze względu na to, że program używa wartości ascii, ponieważ odczytuje ją jako znak.

C # (interaktywny kompilator Visual C #) , 46 bajtów

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

Wypróbuj online!

Haskell , 36 bajtów

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

Ta sama liczba bajtów:

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

Wypróbuj online!

Galaretka , 6 , 5 bajtów

ṢU×\Ṁ

Wypróbuj online!

> <> , 19 bajtów

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

Wypróbuj online!