関連：電子レンジをプログラムします。遅延マイクロ波入力の生成に触発されました。
整数非負の遅延値Nは、に最も近い整数の中で最小であるNすべての桁が同じであるが。
（何らかの方法で）指定されたNの遅延値を（何らかの方法で）返します。
N ≤ あなたの言語がデフォルトで非指数の形で表すことを最大の整数。1000000（この高すぎる要件のため、多くの興味深いソリューションが失われます。）
0 → 0
8 → 8
9 → 9
10 → 9
16 → 11
17 → 22
27 → 22
28 → 33
100 → 99
105 → 99
106 → 111
610 → 555
611 → 666
7221 → 6666
7222 → 7777
問題の同僚は、関係がないことを証明しました：一方が他方より短い9 / 11、99 / 111などを除いて、2つの連続した有効な答えは常に奇数距離離れているので、整数は正確にはありえませんそれらから等距離。
回答:
n=>~-(n*9+4).toPrecision(1)/9|0
各の遅延値を直接計算しますn。
編集：JavaScriptの整数型の制限により、最大277777778までしか機能しません。代替バージョン：
n=>((n*9+4).toPrecision(1)-1)/9>>>0
35バイト、最大16666666667まで動作します。
n=>((n=(n*9+4).toPrecision(1))-n[0])/9
38バイト、最大944444444444443で動作します。しかし、それでも2 53（9007199254740992）には足りません。
Number.MAX_SAFE_INTEGERため、このアルゴリズムを使用することもできませんでした。悲しいことに、最大の結果をハードコーディングすることが唯一の方法のようです。それでも+1。8e16 - 18e16
ḤRµDIASµÐḟµạ³ỤḢị
ḤRµDIASµÐḟµạ³ỤḢị Main link. Input: n
Ḥ Compute 2n.
R Yield [1, ..., 2n] or [0].
µ Begin a new, monadic chain. Argument: R (range)
D Convert to base 10.
I Compute all differences of consecutive decimal digits.
A Take the absolute values of the differences.
S Sum the absolute values.
µÐḟ Filter-false by the chain to the left.
µ Begin a new, monadic chain. Argument: L (lazy integers)
ạ³ Take the absolute difference of each lazy integer and n (input).
Ụ Grade up; sort the indices of L by the absolute differences.
This is stable, so ties are broken by earlier occurrence and,
therefore, lower value.
Ḣ Head; retrieve the first index, corresponding to the lowest
absolute difference.
ị Retrieve the item of L at that index.
WITH v(i)AS(SELECT 0 FROM DUAL UNION ALL SELECT DECODE(SIGN(i),0,-1,-1,-i,-i-1)FROM v WHERE LENGTH(REGEXP_REPLACE(:1+i,'([0-9])\1+','\1'))>1)SELECT:1+MIN(i)KEEP(DENSE_RANK LAST ORDER BY rownum)FROM v;
ゴルフをしていない
WITH v(i) AS
(
SELECT 0 FROM DUAL -- Starts with 0
UNION ALL
SELECT DECODE(SIGN(i),0,-1,-1,-i,-i-1) -- Increments i, alternating between negatives and positives
FROM v
WHERE LENGTH(REGEXP_REPLACE(:1+i,'([0-9])\1+','\1'))>1 -- Stop when the numbers is composed of only one digit
)
SELECT :1+MIN(i)KEEP(DENSE_RANK LAST ORDER BY rownum) FROM v;
haDQsM*M*`MTSl`Q
オンラインで試す：デモンストレーションまたはテストスイート
haDQsM*M*`MTSl`Q implicit: Q = input number
`Q convert Q to a string
l take the length
S create the list [1, 2, ..., len(str(Q))]
`MT create the list ["0", "1", "2", "3", ..., "9"]
* create every combination of these two lists:
[[1, "0"], [1, "1"], [1, "2"], ..., [len(str(Q)), "9"]]
*M repeat the second char of each pair according to the number:
["0", "1", "2", ..., "9...9"]
sM convert each string to a number [0, 1, 2, ..., 9...9]
D order these numbers by:
a Q their absolute difference with Q
h print the first one
2*:"@Vt!=?@]]N$vtG-|4#X<)
ブルートフォースを使用するため、多数の場合は時間がかかる場合があります。
2*: % range [1,2,...,2*N], where is input
" % for each number in that range
@V % push that number, convert to string
t!= % test all pair-wise combinations of digits for equality
? % if they are all equal
@ % push number: it's a valid candidate
] % end if
] % end for each
N$v % column array of all stack contents, that is, all candidate numbers
t % duplicate
G-| % absolute difference of each candidate with respect to input
4#X< % arg min
) % index into candidate array to obtain the minimizer. Implicitly display
n=>eval(`for(i=a=0;i<=n;a=i%10?a:++i)p=i,i+=a;n-p>i-n?i:p`)これは少し短くなりますがn > 1111111110、最大呼び出しスタックサイズを超えているため機能しません。したがって、技術的には無効です。
f=(n,p,a,i=0)=>n<i?n-p>i-n?i:p:f(n,i,(i-=~a)%10?a:i++,i)最初の値がより大きい値になるまですべての遅延数を反復処理しn、nこれと以前の数と比較して結果を決定します。
var solution =
n=>
eval(` // eval enables for loop without {} or return
for(
i=a=0; // initialise i and a to 0
i<=n; // loop until i > n, '<=' saves having to declare p above
a=i%10?a:++i // a = amount to increment i each iteration, if i % 10 == 0 (eg.
) // 99 + 11 = 110), increment i and set a to i (both become 111)
p=i, // set p before incrementing i
i+=a; // add the increment amount to i
n-p>i-n?i:p // return the closer value of i or p
`)N = <input type="number" oninput="R.textContent=solution(+this.value)"><pre id="R"></pre>9Ývy7L×})˜ïD¹-ÄWQÏ{¬
9Ý # Push 0..9
vy7L×})˜ # For each digit, 0-9, push 1-7 copies of that number.
ïD # Convert to integers, dupe the list.
¹ # Push original input (n).
-Ä # Push absolute differences.
WQ # Get min, push 1 for min indices.
Ï{¬ # Push indices from original array that are the min, sort, take first.
Min@Nearest[##&@@@Table[d(10^n-1)/9,{n,0,6},{d,0,9}],#]&
最初の引数を持つ純粋な関数は#、最大の入力で動作し10^6ます。
非負の整数nと数字の場合d、10^n-1 = 99...9（9繰り返しn回数）、したがってd(10^n-1)/9 = dd...d（d繰り返しn回数）。作成Tableのための値を0 <= n <= 6と0 <= d <= 9し、テーブルを平坦化、要素のリストを発見Nearestする#と取りますMin。
このバージョンは、任意の大きな整数に対して機能すると信じています。
Min@Nearest[##&@@@Table[d(10^n-1)/9,{n,0,IntegerLength@#},{d,0,9}],#]&