İlgili: Mikrodalga fırınımı programlayın . Esinlenerek tembel mikrodalga girişi oluşturun .

Negatif olmayan tamsayı N'in tembel değeri, tüm rakamları aynıyken N'ye en yakın tamsayıların en küçük değeridir .

Belirli bir değerin tembel değerini (herhangi bir şekilde) N olarak geri döndürün (herhangi bir şekilde) .

N ≤ Dil varsayılan olarak olmayan üs şeklinde temsil ettiğini büyük tamsayı. 1000000 (Bu çok yüksek gereksinim nedeniyle çok sayıda ilginç çözüm kayboldu.)

Test durumları:

   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 

Söz konusu meslektaşım hiçbir bağın olmayacağını kanıtladı: 9/11, 99/111 vs. hariç, biri diğerinden daha kısa olduğu sürece, iki ardışık geçerli cevap her zaman ayrı bir mesafedir, bu nedenle hiçbir tamsayı tam olarak olamaz. onlardan eşit.

JavaScript (ES6), 31 bayt

n=>~-(n*9+4).toPrecision(1)/9|0

Her birinin tembel değerini doğrudan hesaplar n.

Düzenleme: Yalnızca JavaScript tamsayı türündeki sınırlamalar nedeniyle 277777778’e kadar çalışır. Alternatif versiyonlar:

n=>((n*9+4).toPrecision(1)-1)/9>>>0

35 bayt, 16666666667'ye kadar çalışır.

n=>((n=(n*9+4).toPrecision(1))-n[0])/9

38 byte, 944444444444443. kadar çalışır Ama bu yine de 2 bir yolu kısadır ⁵³ 9007199254740992 olduğunu.

Jöle, 16 bayt

ḤRµDIASµÐḟµạ³ỤḢị

Çevrimiçi deneyin!

Nasıl çalışır

Ḥ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.

Oracle SQL 11.2, 200 bayt

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;

Un-golfed

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;

Pyth - 26 bayt

Bu cevap her zaman en küçük değeri bir bağla döndürmez, ancak bu özellik belirtilmez, bu nedenle 3 baytlık bir açıklama beklenir .

hSh.g.a-kQsmsM*RdjkUTtBl`Q

Test Takımı .

Pyth, 16 bayt

haDQsM*M*`MTSl`Q

Çevrimiçi deneyin: Gösteri veya Test Paketi

Açıklama:

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

MATL , 25 bayt

2*:"@Vt!=?@]]N$vtG-|4#X<)

Kaba kuvvet kullanır, bu yüzden büyük sayılar için biraz zaman alabilir.

Çevrimiçi deneyin!

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

Perl, 32

Neil tarafından hazırlanan güzel JavaScript çözümü.

$_=0|1/9*~-sprintf"%.e",$_*9+4.1

Başarısız başlıyor 5e15

Mathematica, 122 bayt

f@x_:=Last@Sort[Flatten@Table[y*z,{y,1,9},{z,{FromDigits@Table[1,10~Log~x+1-Log[10,1055555]~Mod~1]}}],Abs[x-#]>Abs[x-#2]&]

X adlı işlev.

JavaScript (ES6), 59 bayt

n=>eval(`for(i=a=0;i<=n;a=i%10?a:++i)p=i,i+=a;n-p>i-n?i:p`)

Özyinelemeli Çözüm (56 bayt)

Bu biraz daha kısadır, ancak n > 1111111110maksimum çağrı yığını boyutu aşıldığı için çalışmaz , bu nedenle teknik olarak geçersizdir.

f=(n,p,a,i=0)=>n<i?n-p>i-n?i:p:f(n,i,(i-=~a)%10?a:i++,i)

açıklama

1'den büyük olana kadar her tembel sayıyı tekrar eder, daha nsonra nsonucu belirlemek için bu ve önceki sayı ile karşılaştırır .

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>

Japt , 18 bayt

9*U+4 rApUs l¹/9|0

Çevrimiçi deneyin!

_{Dayanarak Neil'ın tekniği}

Rekabet etmeyen çözüm :

*9+4 h /9|0

05AB1E , 20 bayt

9Ývy7L×})˜ïD¹-ÄWQÏ{¬

Çevrimiçi deneyin!

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.

Mathematica, 56 bayt

Min@Nearest[##&@@@Table[d(10^n-1)/9,{n,0,6},{d,0,9}],#]&

İlk argümanla saf fonksiyon #, girişe kadar çalışır 10^6.

Negatif olmayan bir tamsayı için nve bir rakam d, 10^n-1 = 99...9( 9tekrar nkez), yani d(10^n-1)/9 = dd...d( dtekrar nkez). Bir oluşturur Tableait değerlerin 0 <= n <= 6ve 0 <= d <= 9ardından tabloyu düzleştirir elemanların listesini bulur Nearestetmek #ve alır Min.

Bu sürümün isteğe bağlı olarak büyük tamsayılar için çalışacağına inanıyorum:

Min@Nearest[##&@@@Table[d(10^n-1)/9,{n,0,IntegerLength@#},{d,0,9}],#]&