Bilangan bulat yang diberikan N , P > 1, temukan bilangan bulat terbesar Msehingga P ^ M ≤ N.

I / O:

Input diberikan sebagai 2 bilangan bulat Ndan P. Outputnya adalah integer M.

Contoh:

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

Catatan:

Input akan selalu valid, yaitu selalu lebih besar dari 1.

Kredit:

Kredit untuk nama tersebut masuk ke @cairdcoinheringaahing. 3 contoh terakhir adalah oleh @Nitrodon dan kredit untuk meningkatkan deskripsi pergi ke @Giuseppe.

Brain-Flak , 74 byte

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

Cobalah online!

Ini menggunakan konsep yang sama dengan algoritma pembagian integer positif Brain-Flak standar.

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

Disimpan 8 byte berkat @Neil

Mengambil input dalam sintaks currying (p)(n).

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

Cobalah online!

Excel, 18 byte

=TRUNC(LOG(A1,A2))

Mengambil input "n" di A1, dan input "p" di A2.

Jelly , 3 byte

bḊL

Ini tidak menggunakan aritmatika floating-point, jadi tidak ada masalah presisi.

Cobalah online!

Bagaimana itu bekerja

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 byte

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

Cobalah online! Penjelasan:

.+
$*

Konversikan argumen menjadi unary.

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

Jika argumen kedua membagi yang pertama, ganti argumen pertama dengan hasil #plus bilangan bulat, buang sisanya. Ulangi ini sampai argumen pertama kurang dari yang kedua.

#

Hitung berapa kali loop berjalan.

Japt, 8 byte

@<Vp°X}a

Cobalah

Haskell , 30 byte

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

Cobalah online!

Perl 6 , 13 byte

&floor∘&log

Cobalah online!

Rangkaian penyusun log dan lantai, secara implisit memiliki 2 argumen karena fungsi pertama log mengharapkan 2. Hasil adalah fungsi.

Haskell , 16 byte

(floor.).logBase

Cobalah online!

Haskell dirancang oleh ahli matematika sehingga memiliki seperangkat fungsi terkait matematika yang bagus di Prelude.

R , 25 byte

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

Cobalah online!

Ambil log Pbasis Ndan lakukan pembagian integer 1, karena lebih pendek dari floor(). Ini sedikit menderita dari ketepatan numerik, jadi saya menyajikan jawaban di bawah ini juga, yang seharusnya tidak, terlepas dari kemungkinan integer overflow.

R , 31 byte

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

Cobalah online!

Python 2 , 39 byte

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

Cobalah online!

Ruby , 31 byte

OK, jadi semua pendekatan berbasis log itu rentan terhadap kesalahan pembulatan, jadi di sini adalah metode lain yang bekerja dengan bilangan bulat dan bebas dari masalah itu:

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

Cobalah online!

Tetapi kembali ke logaritma, meskipun tidak jelas sampai ketepatan apa kita harus mendukung input, tapi saya pikir trik kecil ini akan menyelesaikan masalah pembulatan untuk semua lebih atau kurang angka "realistis":

Ruby , 29 byte

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

Cobalah online!

C (gcc) + -lm, 24 byte

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

Cobalah online!

Emojicode , 49 48 byte

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

Cobalah online!

APL (Dyalog Unicode) , 2 byte

⌊⍟

Cobalah online!

Cukup mudah.

⍟ Catatan

⌊ lantai

05AB1E , 6 byte

Lm¹›_O

Cobalah online!

JavaScript , 40 33 byte

-3 byte terima kasih kepada DanielIndie

Mengambil input dalam sintaks currying.

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

Cobalah online!

Pari / GP, 6 byte

logint

(built-in ditambahkan dalam versi 2.7, Mar 2014. Membawa dua argumen, dengan referensi ketiga opsional yang, jika ada, diatur ke pangkalan yang diangkat ke hasil)

Python 2, 3, 46 byte

-1 berkat jonathan

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

Python 1, 47 byte

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

JavaScript (Node.js) , 22 byte

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

Cobalah online!

Fungsi rekursif kari. Gunakan sebagai g(P)(N). Kurang rentan terhadap kesalahan floating-point daripada menggunakanMath.log , dan (saya percaya) kode memberikan nilai yang benar selama kedua input adalah integer aman (di bawah 2**52).

Haskell , 35 34 byte

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

Terima kasih @Laikoni untuk menghemat 1 byte

Cobalah online!

J , 5 byte

<.@^.

Cobalah online!

Bahasa Wolfram (Mathematica) 15 10 Bytes

Floor@*Log 

(membutuhkan urutan terbalik pada input)

Pengiriman asli

⌊#2~Log~#⌋&

Keempat (gforth) , 35 byte

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

Cobalah online!

Bisa menghemat 5 byte dengan menukar parameter input yang diharapkan, tetapi pertanyaan menentukan N harus menjadi yang pertama (argumen dapat dibuat bahwa dalam bahasa postfix "Pertama" berarti top-of-stack, tapi saya akan tetap berpegang pada surat aturan untuk sekarang)

Penjelasan

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 byte

s.lF

Disimpan 2 byte berkat Mmenomic
Cobalah online

Bagaimana itu bekerja

.lis log _B (A)
Sejujurnya, saya tidak tahu cara Fkerjanya. Tetapi jika itu berhasil, itu akan berhasil.
smemotong float ke int untuk memberi kita integer tertinggi untuk M.

Bertanya-tanya , 9 byte

|_.sS log

Contoh penggunaan:

(|_.sS log)[1000 10]

Penjelasan

Versi verbal:

floor . sS log

Ini adalah gaya pointfree tertulis. sSmeneruskan item daftar sebagai argumen ke fungsi (dalam hal ini, log).

Gforth , 31 Bytes

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

Pemakaian

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

Cobalah online!

Penjelasan

Sayangnya FORTH menggunakan stack-point-stack khusus. Untuk itu saya harus SWAP(bertukar) nilai input sehingga mereka sampai ke tumpukan floating point dalam urutan yang benar. Saya juga harus memindahkan nilai ke tumpukan itu S>F. Ketika memindahkan hasil floating-point kembali ke integer ( F>S) saya mendapat manfaat untuk mendapatkan pemotongan gratis.

Versi lebih pendek

Membentang persyaratan dan memberikan input dalam format float dan urutan yang tepat, ada versi yang lebih pendek dengan 24 byte.

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

Cobalah online!

Sekam , 8 7 4 byte

Lt`B

Cobalah online!

C (gcc) , 61 byte

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

Cobalah online!

Japt , 5 byte

ìV ÊÉ

Cobalah online!

8 byte

N£MlXÃäz

Cobalah online!