Biorąc pod uwagę liczby całkowite N , P > 1, znajdź największą liczbę całkowitą Mtaką, że P ^ M ≤ N.

I / O:

Dane wejściowe podano jako 2 liczby całkowite Ni P. Wyjście będzie liczbą całkowitą M.

Przykłady:

4, 5 -> 0
33, 5 -> 2
40, 20 -> 1
242, 3 -> 4 
243, 3 -> 5 
400, 2 -> 8
1000, 10 -> 3

Uwagi:

Dane wejściowe zawsze będą prawidłowe, tzn. Zawsze będą liczbami całkowitymi większymi niż 1.

Kredyty:

Nazwa pochodzi od @cairdcoinheringaahing. Ostatnie 3 przykłady pochodzą od @Nitrodon, a zasługą za ulepszenie opisu jest @Giuseppe.

Brain-Flak , 74 bajty

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

Wypróbuj online!

Wykorzystuje to tę samą koncepcję, co standardowy algorytm dodatniej liczby całkowitej Brain-Flaka.

# Push P and P-1 on other stack
(({}<>)[()])

# Count iterations until N reaches zero:
({()<

  # While keeping the current value (P-1)*(P^M) on the stack:
  (({})<

    # Multiply it by P for the next iteration
    ({([{}]()({}))([{}]({}))}{})

  >)

  # Subtract 1 from N and this (P-1)*(P^M) until one of these is zero
  {<>({}[()])}{}

# If (P-1)*(P^M) became zero, there is a nonzero value below it on the stack
>}

# Subtract 1 from number of iterations
[()])

JavaScript (ES6), 22 bajty

Zaoszczędź 8 bajtów dzięki @Neil

Pobiera dane wejściowe w składni curry (p)(n).

p=>g=n=>p<=n&&1+g(n/p)

Wypróbuj online!

Excel, 18 bajtów

=TRUNC(LOG(A1,A2))

Przyjmuje wejście „n” w A1, a wejście „p” w A2.

Galaretka , 3 bajty

bḊL

To nie używa arytmetyki zmiennoprzecinkowej, więc nie ma problemów z precyzją.

Wypróbuj online!

Jak to działa

bḊL  Main link. Left argument: n. Right argument: p

b    Convert n to base p.
 Ḋ   Dequeue; remove the first base-p digit.
  L  Take the length.

Retina 0.8.2 , 35 bajtów

.+
$*
+r`1*(\2)+¶(1+)$
#$#1$*1¶$2
#

Wypróbuj online! Wyjaśnienie:

.+
$*

Konwertuj argumenty na jednoargumentowe.

+r`1*(\2)+¶(1+)$
#$#1$*1¶$2

Jeśli drugi argument dzieli pierwszy, zastąp pierwszy argument wynikiem #plus liczby całkowitej, odrzucając resztę. Powtarzaj to, aż pierwszy argument będzie mniejszy niż drugi.

#

Policz liczbę uruchomień pętli.

Japt, 8 bajtów

@<Vp°X}a

Spróbuj

Haskell , 30 bajtów

n!p=until((>n).(p^).(1+))(1+)0

Wypróbuj online!

Perl 6 , 13 bajtów

&floor∘&log

Wypróbuj online!

Łączenie składające się z dziennika i podłogi, domyślnie zawiera 2 argumenty, ponieważ dziennik pierwszej funkcji oczekuje 2. Wynik jest funkcją.

Haskell , 16 bajtów

(floor.).logBase

Wypróbuj online!

Haskell został zaprojektowany przez matematyków, więc ma ładny zestaw funkcji matematycznych w Preludium.

R , 25 bajtów

function(p,n)log(p,n)%/%1

Wypróbuj online!

Weź dziennik Pbazy Ni dokonaj podziału liczb całkowitych 1, ponieważ jest on krótszy niż floor(). Trochę to cierpi z powodu precyzji numerycznej, więc przedstawiam również poniższą odpowiedź, która nie powinna, oprócz ewentualnego przepełnienia liczb całkowitych.

R , 31 bajtów

function(p,n)(x=p:0)[n^x<=p][1]

Wypróbuj online!

Python 2 , 39 bajtów

lambda a,b:math.log(a,b)//1
import math

Wypróbuj online!

Rubinowy , 31 bajtów

OK, więc wszystkie te podejścia oparte na logach są podatne na błędy zaokrąglania, więc oto inna metoda, która działa z liczbami całkowitymi i jest wolna od tych problemów:

->n,p{(0..n).find{|i|p**i>n}-1}

Wypróbuj online!

Ale wracając do logarytmów, chociaż nie jest jasne, do jakiej precyzji musimy wesprzeć dane wejściowe, myślę jednak, że ta mała sztuczka rozwiązałaby problem zaokrąglania dla wszystkich mniej lub bardziej „realistycznych” liczb:

Ruby , 29 bajtów

->n,p{Math.log(n+0.1,p).to_i}

Wypróbuj online!

C (gcc) + -lm, 24 bajty

f(n,m){n=log(n)/log(m);}

Wypróbuj online!

Emojicode , 49 48 bajtów

🍇i🚂j🚂➡️🚂🍎➖🐔🔡i j 1🍉

Wypróbuj online!

APL (Dyalog Unicode) , 2 bajty

⌊⍟

Wypróbuj online!

Całkiem proste.

⍟ Log

⌊ piętro

05AB1E , 6 bajtów

Lm¹›_O

Wypróbuj online!

JavaScript , 40 33 bajtów

-3 bajty dzięki DanielIndie

Pobiera dane wejściowe w składni curry.

a=>b=>(L=Math.log)(a)/L(b)+.001|0

Wypróbuj online!

Pari / GP, 6 bajtów

logint

(wbudowany dodany w wersji 2.7, marzec 2014. Bierze dwa argumenty, z opcjonalnym trzecim odniesieniem, które, jeśli jest obecne, jest ustawione na podstawę podniesioną do wyniku)

Python 2, 3, 46 bajtów

-1 dzięki jonathan

def A(a,b,i=1):
 while b**i<=a:i+=1
 return~-i

Python 1, 47 bajtów

def A(a,b,i=1):
 while b**i<=a:i=i+1
 return~-i

JavaScript (Node.js) , 22 bajty

m=>f=n=>n<m?0:f(n/m)+1

Wypróbuj online!

Cururs funkcja rekurencyjna. Użyj jako g(P)(N). Mniej podatny na błędy zmiennoprzecinkowe niż używanieMath.log i (uważam) kod podaje poprawne wartości, o ile oba wejścia są bezpiecznymi liczbami całkowitymi (poniżej 2**52).

Haskell , 35 34 bajtów

n!p=last.fst$span((<=n).(p^))[0..]

Dzięki @Laikoni za uratowanie 1 bajtu

Wypróbuj online!

J , 5 bajtów

<.@^.

Wypróbuj online!

Wolfram Language (Mathematica) 15 10 bajtów

Floor@*Log 

(wymaga odwróconej kolejności na wejściu)

Oryginalne zgłoszenie

⌊#2~Log~#⌋&

Dalej (gforth) , 35 bajtów

: f swap s>f flog s>f flog f/ f>s ;

Wypróbuj online!

Można zapisać 5 bajtów poprzez zamianę oczekiwanych parametrów wejściowych, ale pytanie określa, że ​​N musi być pierwsze (można argumentować, że w języku postfiksowym „Pierwszy” oznacza górę stosu, ale pozostanę przy literze reguł dla teraz)

Wyjaśnienie

swap       \ swap the parameters to put N on top of the stack
s>f flog   \ move N to the floating-point stack and take the log(10) of N
s>f flog   \ move P to the floating-point stack and take the log(10) of P
f/         \ divide log10(N) by log10(P)
f>s        \ move the result back to the main (integer) stack, truncating in the process

Pyth, 6 4 bajty

s.lF

Zaoszczędź 2 bajty dzięki Mmenomic
Wypróbuj online

Jak to działa

.lto log _B (A)
Szczerze mówiąc, nie mam pojęcia, jak to Fdziała. Ale jeśli to działa, to działa.
sobcina liczbę zmiennoprzecinkową do liczby całkowitej, aby dać nam najwyższą liczbę całkowitą M.

Cud , 9 bajtów

|_.sS log

Przykładowe użycie:

(|_.sS log)[1000 10]

Wyjaśnienie

Pełna wersja:

floor . sS log

Jest to napisane bezsensownie. sSprzekazuje elementy listy jako argumenty do funkcji (w tym przypadku, log).

Gforth , 31 bajtów

SWAP S>F FLOG S>F FLOG F/ F>S .

Stosowanie

242 3 SWAP S>F FLOG S>F FLOG F/ F>S . 4 OK

Wypróbuj online!

Wyjaśnienie

Niestety FORTH używa dedykowanego stosu zmiennoprzecinkowego. W tym celu muszę SWAP(wymienić) wartości wejściowe, aby dotarły do ​​stosu zmiennoprzecinkowego w odpowiedniej kolejności. Muszę także przenieść wartości na ten stos S>F. Podczas przenoszenia wyniku zmiennoprzecinkowego z powrotem na liczbę całkowitą (F>S ), mam tę zaletę, że otrzymuję obcięcie za darmo.

Krótsza wersja

Rozciągając wymagania i wprowadzając dane w formacie zmiennoprzecinkowym oraz we właściwej kolejności, istnieje krótsza wersja z 24 bajtami.

FLOG FSWAP FLOG F/ F>S .
3e0 242e0 FLOG FSWAP FLOG F/ F>S . 4 OK

Wypróbuj online!

Łuska , 8 7 4 bajtów

Lt`B

Wypróbuj online!

C (gcc) , 61 bajtów

i(n,t,l,o,g){for(l=g=0;!g++;g=g>n)for(o=++l;o--;g*=t);g=--l;}

Wypróbuj online!

Japt , 5 bajtów

ìV ÊÉ

Wypróbuj online!

8 bajtów

N£MlXÃäz

Wypróbuj online!