させるnおよびはbより大きい正の整数です1。
nからの次の累乗までの距離を出力しbます。
ためn=5とb=3、次の電源3から5IS 9（3^2 = 9）、出力されるように9 - 5 = 4。
ためn=8とb=2、次の電源2から8IS 16（2^4 = 16）、出力されるように16 - 8 = 8。注nの力である2。この例では
テストケース：
n b output
212 2 44
563 5 62
491 5 134
424 3 305
469 8 43
343 7 2058
592 7 1809
289 5 336
694 3 35
324 5 301
2 5 3
回答:
ạæċ
二進リンク服用n左側にし、b右側にその結果を返します。
ạæċ - Link: number n, number b | n,b ∈ ℕ
æċ - ceiling n to the next power of b
ạ - absolute difference between n and that
;）
æċだ！」「うわー、これはすっごく難しい...」の代わりに
æċ_⁸
効率の悪い（しかし洗練された！）反復アプローチ（インスピレーションは@Neilの功績による）：
HowFarAway PROC
6A 01 push 1
58 pop rax ; temp = 1
Loop:
0F AF C2 imul eax, edx ; temp *= b
39 C8 cmp eax, ecx
72 F9 jb Loop ; keep looping (jump) if temp < n
29 C8 sub eax, ecx ; temp -= n
C3 ret ; return temp
HowFarAway ENDP
上記の関数は、2つの整数パラメーターn（ECXレジスターに渡される）とb（レジスターに渡される）を取りEDX、単一の整数結果（レジスター内）を返しますEAX。Cから呼び出すには、次のプロトタイプを使用します。
unsigned HowFarAway(unsigned n, unsigned b);
これは、32ビット整数の範囲に制限されています。完全に長いレジスタを使用して64ビット整数をサポートするように簡単に変更できますが、これらの命令をエンコードするにはより多くのバイトがかかります。:-)
push 1pop raxjmp
f(n,b,i){for(i=b;b<n;b*=i);n=b-n;}5バイトを節約し、gccでサポートされています
b-=n？
b-=nの順序を入れ替えればできますか？bn
@ZacharyTのおかげで2バイト節約
⊢-⍨⊣*1+∘⌊⍟
取りn右引数として、およびb左引数として。
計算します。b⌊logbn + 1⌋ - n
⊣-⍨⊢*1+∘⌊⍟⍨。
⊢-⍨⊣*1+∘⌊⍟は10バイトを取得しますが、それnは正しい引数でbあり、左の引数ですので、引数を交換しました。ZacharyTのトリック1+∘⌊を使って、ここまでそれを解決しました。
pryr::f({a=b^(0:n)-n;min(a[a>0])})匿名関数。bのすべての値を[0、n]の範囲のすべてのべき乗で保存し、それぞれからnを減算し、正の値のサブセットを計算し、minを返します。
TIOには、と呼ばれる非pryrバージョンがありf(n,b)ます。このバージョンはとして呼び出す必要がありますf(b,n)。
pryr::f({a=b^(0:n)-n;min(a[a>0])})数バイト短くなります。
pryr::f関数で新しい変数を定義するとき、私は運が悪かった。ここで機能しているようです。
sapply(x, sum)、それがsum引数に追加することは私を悩ますものです。
MickyTのおかげで-4バイト
Pwp.I|-.;)^0@O?|uq;<
次のような入力を読み込みます n,b
2x2x2立方体に適合：
P w
p .
I | - . ; ) ^ 0
@ O ? | u q ; <
. .
. .
I|I0 ：入力を読み取り、0（カウンター）をスタックにプッシュします
^w IPをループの適切な場所に配置します。
Pp-：計算b^(counter)、nスタックの先頭に移動、計算b^(counter) - n? ：負の場合は左に、0の場合はまっすぐ、正の場合は右
O@スタックの最上部（距離）を出力して終了します。|?スタックのトップがゼロであるかのように進みます<;qu;)：IPを正しい方向に向け、スタックの一番上（負/ゼロの数字）をnポップし、スタックの一番下に移動し、uターンし、スタックの一番上をポップ（b^(counter)）して、カウンターをインクリメントします^w現在、プログラムは継続しています。Pwp.I|-.;)^0@O?|uq;<
sLmʒ‹}α¬
説明
s # swap order of the inputs
L # range [1 ... n]
m # raise b to each power
ʒ‹} # filter, keep only the elements greater than n
α # calculate absolute difference with n for each
¬ # get the first (smallest)
ć代わりにを使用しました¬。
n。
yy:YAn^w-
入力694を検討3し、例として。
y % Implicitly take two inputs. Duplicate from below
% STACK: 694, 3, 694
y % Duplicate from below
% STACK: 694, 3, 694, 3
: % Range
% STACK: 694, 3, 694, [1 2 3]
YA % Base conversion (of 694 with "digits" given by [1 2 3]
% STACK: 694, 3, [3 3 2 3 1 2]
n % Number of elements
% STACK: 694, 3, 6
^ % Power
% 694, 729
w % Swap
% STACK: 729, 694
- % Subtract. Implicitly display
^ % 35
Rickのアプローチと非常に似ていますが、彼の許可を得て投稿しています（そして、バイトを節約するための助けもあります）。
n=>b=>g=(x=b)=>x>n?x-n:g(x*b)
f=
n=>b=>g=(x=b)=>x>n?x-n:g(x*b)
oninput=_=>o.value=f(+i.value)(+j.value)()
o.value=f(i.value=324)(j.value=5)()*{font-family:sans-serif;}
input{margin:0 5px 0 0;width:50px;}<label for=i>n: </label><input id=i type=number><label for=j>b: </label><input id=j type=number><label for=o>= </label><input id=o>#2^⌊1/#~Log~#2⌋#2-#&
ありがとうマーティン
I / O
[343、7]
2058
1/Log@##またはを使用できます#2~Log~#。または、入力の順序を入れ替えて使用することをお勧めしますLog@##。
#^Floor[...]#よりも短いです#^(Floor[...]+1)。また、Unicode演算子Floorもあります。
Log@##！実際、引数の順序を入れ替えると、#^⌊Log@##⌋#-#2&-5バイトの可能性があります（私は思う）！
コメンター@Steadyboxにヒントをありがとう
o;p(n,b){for(o=b;n>=b;)b*=o;return b-n;}
for代わりにすると、while2つのバイトを保存しますo;p(n,b){for(o=b;n>=b;)b*=o;return b-n;}
n/b代わりにn>=b
n、bそれとも単にカリー化したかは関係ありませんn）n。
n=>g=(b,p=b)=>p>n?p-n:g(b,p*b)とn=>b=>(g=p=>p>n?p-n:g(p*b))(b)。
f=(n,i)=>g=(b=i)=>b>n?b-n:g(b*i)30バイトのために働きますか？次のように呼び出す必要がありますf(324,5)()。編集：ああ、@ Neilが私を打ち負かしました。
2つの異なるアプローチ：
->(n,b){p b**(Math.log(n,b).to_i+1)-n}->(n,b){p b**(0..n).find{|x|b**x>n}-n}_q}a@nVpX
_ q}a@ nVpX
Z{Zq}aX{UnVpX} // Ungolfed
// Implicit: U, V = input integers
aX{ } // For each integer X in [0...1e9), take
VpX // V to the power of X
Un // minus U,
Z{ } // and return the first one Z where
Zq // Math.sqrt(Z) is truthy.
// Math.sqrt returns NaN for negative inputs, and 0 is falsy, so this is
// truthy iff Z is positive. Therefore, this returns the first positive
// value of V**X - U.
// Implicit: output result of last expression
f=lambda a,b,v=1:(a<v)*(v-a)or f(a,b,v*b)から始まり、厳密に超えて差を返すまでv=1繰り返し乗算する再帰関数。ba
注：結果はゼロになることはないため、再帰エラーを発生させることなくa>=v and f(a,b,v*b)or v-a置き換えられ(a<v)*(v-a)or f(a,b,v*b)ます。
リシのアイデアを使用して...
f=lambda n,b:(n<b)*(b-n)or b*f(n/b,b)b-nであると同時にゼロになることはないため、フォームを切り替えることで別のバイトを保存できn<bます）。
^ʰ↙X>₁-
入力をリストとして受け取ります[b, n]。
>₁ n is strictly less than
^ ↙X some power of
ʰ b,
- and their difference is
the output.
簡単な解決策として、引数が文字列ではなく数値として扱われるように10バイトを使用しています。STDINへの出力。
編集：のスペースを削除するのを忘れてw=1 n=n+0、1バイトを節約します
n,b=...b=b+0p=b w=1n=n+0while p<=n do p=math.pow(b,w)w=w+1 end print(p-n)n,b=... -- unpack the argument into the variable n and b
b=b+0 -- set b's type to number
n=n+0 -- set n's type to number
p=b -- set a variable to track the current value of the powered b
w=1 -- set the nth power
while p<=n -- iterate untill the current power is greater or equals to n
do
p=math.pow(b,w) -- raise b to the power w
w=w+1 -- increment w
end
print(p-n) -- outputs p minus the following power of b1し、end必要に応じて？
1end、数字として解釈され、1eエラーがスローされ1enます。これは、数字に続く[abcdef]文字が他の文字を16進値として解釈できない場合にのみw=1while発生し、エラーがスローされません。
再帰やビット調整のない完全なプログラム：
i=1;n,b=input()
while n>=i:i*=b
print i-n入力形式：n, b。
2バイトを節約してくれたEriktheOutgolferに感謝します！
lambda n,b:b**-~int(math.log(n,b))-n
import mathPythonには派手なログや天井のビルトインはありません。そのため、私はゴルフのセンスを少し取り入れた明らかなアプローチを採用しました。
import math;lambda n,b:b**-~int(math.log(n,b))-n2バイトを節約し、メタコンセンサスごとに許可されます。
ceilは機能しません。
ceilでは機能しないため使用しませんでしたbが、@ Urielがインポートする前に、まだバイトを保存することを指摘しました。
(defun f(n b)(setq a b)(loop(when(> b n)(return(- b n)))(setq b(* b a))))